Написать программу, которая выводит таблицу значений функции у = \х - 2| + |х + 1|. диапазон изменения аргумента - от -4 до 4, шаг приращения аргумента — 0,5.

231

317

Посмотреть ответы 2

Ответы на вопрос:

nadezda19831

Информатика

4,5(61 оценок)

Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var x: real; begin x: =-4.5; writeln('x y'); for var i: =1 to 17 do begin x: =x+0.5; writeln(x,' ',abs(x-2)+abs(x+1)); end; readln; end. пример: x _ y -4 _ 9 -3.5 _ 8 -3 _ 7 -2.5 _ 6 -2 _ 5 -1.5 _ 4 -1 _ 3 -0.5 _ 3 0 _ 3 0.5 _ 3 1 _ 3 1.5 _ 3 2 _ 3 2.5 _ 4 3 _ 5 3.5 _ 6 4 _ 7

Thelow26

Информатика

4,8(82 оценок)

Первая программа может выглядеть так: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i, x: integer; priznak: boolean; begin clrscr; priznak: =false; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(200); write(a[i]: 5); end; writeln; write(' x = '); readln(x); writeln; for i: =1 to n do if x=a[i] then begin writeln (' x = ', a[i], ' index = ', i); priznak: =true; end; if priznak=false then writeln (' '); readln; end. 2. а вот реверс: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas; i: integer; begin clrscr; writeln(' massiv: '); for i: =1 to n do begin a[i]: =-100+random(201); write(a[i]: 5); end; writeln; writeln(' revers: '); for i: =n downto 1 do write(a[i]: 5); writeln; readln; end. и. наконец, последняя программа: uses crt; const n=5; var i, x : integer; p: longint; begin clrscr; p: =1; writeln(' wwod massiva: '); for i: =1 to n do begin readln (x); p: =p*x; end; writeln; writeln(' p = ', p); writeln; readln; end.