Распечатать таблицу
значений функции F для x,
изменяющегося в интервале от x0
до xk с шагом h.
Значения x0, xk,
h вводятся пользователем.
var x,f,h,x0,xk,a:real;
const b=3;
BEGIN
WRITELN('AAAAEOA X0,x, Xk,h');
READLN(X0,x, Xk,a);
x:=x0;
while x<3 do
begin
F:=a*x+cos(x)+sqrt(ln(abs(x-3)));
end;
write(f:4:3);
write(' ');
while x=3 do
begin
f:=(x*x-b*b)+cos (pi)*x;
end;
write(f:4:3);
write(' ');
while x<3 do
begin
F:=(x-b)*sin(2*pi)*x;
end;
write(f:4:3);
<span>end.</span>
program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
<h2>Ошибки</h2>
var p,i,x,count: integer;
begin
count := 0;
<u>p := </u><em><u>0 </u></em><u>;
</u>
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
<u>writeln(</u><em><u>х </u></em><u>);
</u>
writeln(p);
end
else
writeln('NO')
<u>end </u>
<u />
- Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицу
- В конце выводится последнее введённое число, а нужно вывести количество
- После end не стоит точка
<h3>Правильный вариант программы</h3>
var p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
