1) Дополните таблицу положительного и отрицательного воз- действия на жизнь человека: ПОЛОЖИТЕЛЬНОЕ ВОЗДЕЙСТВИЕ ОТРИЦАТЕЛЬНОЕ ВОЗДЕЙСТВИЕ Доступность общения Компьютерная зависимость 2 Доступность любой «Перегруз» ненужной информации информацией 3 Автоматизация работы Сложность чтения с экрана 4 Возможность индивидуального Спам, фрагментарное чтение обучения 5 Наглядность, возможность Подмена реальности создавать презентации виртуальным миром
Const n=20; var x,y : array[1..n] of integer; i,a,b,c : integer; f:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=random(101)-50; write(x[i],' '); end; writeln; a:=0; b:=0; c:=0; for i:=1 to n do begin if x[i]<0 then a:=a+x[i]; if x[i] mod 2 = 0 then b:=b+1; if (c=0)and(x[i]>0) then c:=i; end; writeln('A=',a,' B=',b,' C=',c); f:=c+((a+b)/(10-c+a)); writeln('F=',f:5:2); end.
Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))
//PascalABC //NaaMan //Программа расчитана ТОЛЬКО на факториалы //Проверки ошибочного ввода НЕТ var n, result, i : real; begin write('Введите факториал > '); readln(n); if (n = 1) then result := 1 else begin i := 2; while n <> 1 do begin n := n / i; result := i; i := i + 1; end; end; writeln('Число ', result); end.
var x,y : array[1..n] of integer;
i,a,b,c : integer; f:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(101)-50;
write(x[i],' ');
end;
writeln;
a:=0; b:=0; c:=0;
for i:=1 to n do
begin
if x[i]<0 then a:=a+x[i];
if x[i] mod 2 = 0 then b:=b+1;
if (c=0)and(x[i]>0) then c:=i;
end;
writeln('A=',a,' B=',b,' C=',c);
f:=c+((a+b)/(10-c+a));
writeln('F=',f:5:2);
end.
Пример:
Исходный массив:
10 -37 1 31 -22 45 3 32 -2 48 -19 -48 39 22 -39 -29 -49 8 -16 22
A=-261 B=10 C=1
F= 2.00