begin
var (a, b, c) := (1.5, 2.0, -0.75);
var x := ReadReal('Введите x');
var y := a * Exp(-Sqrt(x)) * Cos(b * x) + c;
Println(y);
(a, b, c) := (2, 0.7, 0.5);
var t := ReadReal('Введите t');
var z := a * Cos(b * t * Sin(t)) + c;
Println(z);
(a, b) := (2, 1.2);
z := Sqrt(a + b * Exp(Sin(x)) + 1);
Println(z);
end.
Var i:integer;
begin
for i:=100 to 999 do if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');
end.
{While}
Var i:integer;
begin
i:=100;
while i<=999 do begin
if( if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' '); inc(i); end;
end.
{Repeat}
Var i:integer;
begin
i:=100;
repeat
begin
if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');
inc(i); end;
until i<1000;
end.
Первая программа
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.
Вторая программа
Она состоит из процедуры и выводит на экран начальное уравнение, корни уравнения и дискриминант.
program sqrturavnenie;
uses crt;
Var a, b, c:Real;
procedure sq(a, b, c:Real);
Var d, x1, x2:Real;
Begin
d:=b*b-4*a*c;
Writeln ('d= ', d) ;
If d>=0 then begin
x1:=(-b+sqrt(d)) /(2*a);
x2:=(-b-sqrt(d))/(2*a);
If x1=x2 then
Writeln ('x1= ', x1:6:2)
else
Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)
End
Else
Writeln ('Корней нет!');
End;
begin
Clrscr ;
Writeln ('a= ');
Readln (a);
Writeln ('b= ');
Readln (b);
Writeln ('c=') ;
Readln (c);
Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);
sq(a, b, c);
Readln
end.
С комментариями будет трудно
begin
var (a, b, c) := (1.5, 2.0, -0.75);
var x := ReadReal('Введите x');
var y := a * Exp(-Sqrt(x)) * Cos(b * x) + c;
Println(y);
(a, b, c) := (2, 0.7, 0.5);
var t := ReadReal('Введите t');
var z := a * Cos(b * t * Sin(t)) + c;
Println(z);
(a, b) := (2, 1.2);
z := Sqrt(a + b * Exp(Sin(x)) + 1);
Println(z);
end.
Пример диалога дан на картинке