Var A,B:real; C:integer; Begin WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); While C <> 0 do Begin Write('Введите два числа: '); ReadLn(A,B); Write('ответ: '); Case C of 1:WriteLn(A+B); 2:WriteLn(A-B); 3:WriteLn(A*B); 4:WriteLn(A/B); End; WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); End; WriteLn('Пока!'); End.
Вывод результат, точно как в условии:
Var A,B:real; C:integer; Begin WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); While C <> 0 do Begin Write('Введите два числа: '); ReadLn(A,B); Write('ответ: '); Case C of 1: if B < 0 then WriteLn(A,B,'=',A+B) else WriteLn(A,'+',B,'=',A+B); 2: if B < 0 then WriteLn(A,'+',-B,'=',A-B) else WriteLn(A,B,'=',A-B); 3: if B < 0 then WriteLn(A,'*(',B,')=',A*B) else WriteLn(A,'*',B,'=',A*B); 4: if B < 0 then WriteLn(A,':(',B,')=',A/B) else WriteLn(A,':',B,'=',A/B); End; WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); ReadLn(C); End; WriteLn('Пока!'); End.
Const N = 13; Var A,B:array[1..N] of integer; i:integer; S1,S2:real; Begin Randomize; S1:=0; S2:=0; Write('A('); For i:= 1 to N-1 do Begin A[i]:=random(201)-100; Write(A[i],',') End; A[N]:=random(201)-100; Write(A[N],')'); WriteLn;
Write('B('); For i:= 1 to N-1 do Begin B[i]:=random(201)-100; Write(B[i],',') End; B[N]:=random(201)-100; Write(B[N],')'); WriteLn; WriteLn; Write('|A| = '); For i:= 1 to N do Begin S1:=S1+A[i]*A[i]; End; S1:=Sqrt(S1); WriteLn(S1); Write('|B| = '); For i:= 1 to N do Begin S2:=S2+B[i]*B[i]; End; S2:=Sqrt(S2); WriteLn(S2); WriteLn; Write('Ближайшая точка: '); if S1 < S2 then WriteLn('A') else WriteLn('B') End.
uses crt;
var
y,x,b: real;
begin
clrscr;
read (x,b);
y:=4*x/(12*b)+10;
writeln ('y=',y);
readln ();
end.