на языке PASCAL
Напишите программу, которая выводит оси координат и график функции, один на выбор:
1) y=sin(x);
2) y=cos(x);
3) y=x2;
4) y=x3.
Графики строятся в виде точек (если точек много и они очень близки друг другу, то они образуют линию), через цикл FOR – это подсказка для решения.
n=20;
var
p:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
Writeln('Последовательность чисел');
for i:=1 to n do
begin
p[i]:=Random(51)-25;
Write(p[i],' ')
end;
Writeln;
k:=0; s:=0; i:=1;
repeat
if p[i]>0 then begin s:=s+p[i]; Inc(k) end;
Inc(i);
until (k=4) or (i>n);
Writeln('Сумма первых четырех положительных чисел равна ',s)
end.
Тестовое решение:
Последовательность чисел
-12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14
Сумма первых четырех положительных чисел равна 41
Приведу в пример A и B, они могут принимать два значения истинна и не истинна, тоесть + или -
И
Если A истинно и B истинно, то выражение истинно
если A или B не истинно, то выражение не истинно
ИЛИ
Если или A или B истинно, то выражение истинно
Может быть такое что и A и B истинны, в этом случае выражение тоже истинно
>, <, >=, <=, =
> - больше
< - меньше
>= - больше либо равно
< - меньше либо равно
= - равно
если к примеру A = 10, а B = 20.
A > B? Нет. Выражение не истинно.
A < B? Да. Выражение истинно.
A >= B? Нет. Выражение не истинно.
A <= B? Да. Выражение истинно.
A = B? Нет. Выражение не истинно.