Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачки по паскалю!!
Народ помогите решить несложные задачки по паскалю.
Через 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... .

Заранее спасибо!!!!

1 | Автор: 41k1n | 2011-04-16, 19:13   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-04-16, 21:56   |  Репутация: [ + 211 ]
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
3 | Автор: Berestovskiy | 2011-04-16, 22:35   |  Репутация: [ + 211 ]
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
4 | Автор: Berestovskiy | 2011-04-16, 22:44   |  Репутация: [ + 211 ]
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
5 | Автор: Berestovskiy | 2011-04-16, 22:46   |  Репутация: [ + 211 ]
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
6 | Автор: Berestovskiy | 2011-04-16, 22:50   |  Репутация: [ + 211 ]
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) )
8 задание чуть позже будет...


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2011-04-16, 22:54   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: