Var j : real ;
BEGIN
J := 2*SQR(A)+3*SQRT(A) ;
WRITE(J)
END.2
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM FOOL ;
VAR X , Y , Z : REAL ;
BEGIN X := 2.0 ; Y := 0.0 ;
WHILE X <=22.0 DO
LABEL 20.0 ;
Z := SQR(Y)-SQRT(X) ;
X := X+0.2 ;
END ;
WRITE(Z)
END.5
При выполнении этого фрагмента (условный оператор)
Var x, y, max: integer;
begin
………
if x > max then y := max
else y := x; y получит значение переменной х, если только это значение не превышает max, в противном случае у станет равно max;
При выполнении этого фрагмента (условный оператор)
Var x, y, max: integer;
begin
………
if x > max then max := х;
y := x; переменная у всегда будет иметь значение переменной х, а в max запоминается максимальное значение х;
Найти ошибку в программе
var a, b, c, d:;
begin
a := 1; b := 2; c := 3; d := 4;
if a > b then
if c < d then
if c < 0 then
c := 0
else
a := b;
if a > b then
if c then
if c then
c := 0
else
else
else
a := b;не указан тип переменных;
Следующая программа при вводе одного из символов выведет на экран:
Var
ch: Char;
begin
readln (ch);
case ch of
‘n’ , ‘N’ : writeln (‘нет’);
‘y’ , ‘Y’ : writeln (‘да’);
end
end. y или Y выведет на экран слово «да», а при вводе n или N – слово «нет»;
На какой строке программы находится ошибка
Program Marzhan;
var x, y: integer;
begin
read (x);
if х < -12 then y: = sin(x)
else if (x >= -12) and (x <=9) then y: =1/sin(x)
else if x>9 then y: =sin(x)*cos(x);
write y;
end. Найти ошибку в программе
Условие: x, y, z – действительные числа.
U = min2 { x + y + z; xy; x + 2.5 xy } + xyz
Program Marzhan;
Var x, y, z, min, U : real;
Begin
Read (x, y, z);
a := x + y + z;
b := x*y;
c := x + 2.5*x*y;
if (a < b ) and (a <c ) then min := a
else if (b < c) and ( b < a ) then min := b
else min :=c;
U := sqr (min) + x*y*z;
Write (U);
end. Всписке описания переменных отсутствуют a, b, c;
Найти ошибку в программе
Program Mar42;
var l, m, n, X1,X2,X3: byte;
read (l, m, n);
if ( l <=3) and ( l >=1) then X1:= l
else if ( m <=3) and ( m >=1) then X2:= m
else if ( n <=3) and ( n >=1) then X3:= n;
writeln (‘1<=l<=3 ‘, X1);
writeln (‘1<=m<=3 ‘, X2);
writeln (‘1<=n<=3 ‘, X3); отсутствуют операторные скобки begin…end;