Народ помогите решить несложные задачки по паскалю.
Через 4 дня сдавать а я не шарю их делать!
1)Составте программу, которая для заданного Х вычесляет значение функции У=100+Х, если Х=10, Х=20, Х=30; У=2*Х, если Х<10; У=Х-100, если X>30.
2)Составить программу замены всех элементов целой таблицы Х от 1 до 10 числом 0.
3)Составить программу замены положительных элементов вещественной таблицы У от 1 до 10 на 0.
4)Составить программу замены отрицательных элемонтов вещественной таблицы У от 1 до 10 на их квадраты.
5)Составить программу, увеличивающую на 2 все елементы вещественной таблицы У от 1 до 10, которые больше 10.
6)Составить программу, которая изменяет значения целой таблицы У от 1 до 10 следующим образом:
У[i]=3 на У[i]=2; У[i]=2 на У[i]=1; У[i]=1 на У[i]=3.
7)Составить программу замены елементов вещественной таблицы У от 1 до 10, имеющих чётные порядковые номера числом 100.
8)Составить программу, с помощью которой элементы таблицы У от 1 до 10 заполняются последовательностью 1,3,1,3... . Заранее спасибо!!!!
|
|
|
|
2)
var
i,n:byte;
begin
writeln('Введите размерность таблицы');
read(n);q:=n;
writeln('Вводите элементы таблицы');
for i:=1 to n do
read(n);
for i:=1 to q do
write('0',' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
3)
var
a:array[0..9]of byte;i,n:byte;
begin
writeln('Введите размерность таблицы');
read(n);
writeln('Вводите элементы таблицы');
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then a[i]:=0;end;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
4)
var
a:array[0..9]of byte;i,n:byte;
begin
writeln('Введите размерность таблицы');
read(n);
writeln('Вводите элементы таблицы');
for i:=1 to n do begin
read(a[i]);
if a[i]<0 then a[i]:=sqr(a[i]);end;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
5)
var
a:array[0..9]of byte;i,n:byte;
begin
writeln('Введите размерность таблицы');
read(n);
writeln('Вводите элементы таблицы');
for i:=1 to n do begin
read(a[i]);
if a[i]>10 then a[i]:=a[i]+2;end;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
6) Условия не понял...
7)
var
a:array[0..9]of byte;i,n:byte;
begin
writeln('Введите размерность таблицы');
read(n);
writeln('Вводите элементы таблицы');
for i:=1 to n do begin
read(a[i]);
if a[i] mod 2 = 0 then a[i]:=100;end;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) )
8 задание чуть позже будет...
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
