1.Даны целые числа m и n. Если числа неравны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если они равны то заменить числа нулями.
Program pr1; { даны целые числа m и n. Если числа неравны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если они равны то заменить числа нулями. }
uses crt;
var m,n:integer;
begin
clrscr;
writeln('введите два числа');
readln(m,n);
if m=n then begin n:=0;m:=0
end
else if m<n then m:=n
else n:=m;
writeln('полученные данные m=',m , ' n=',n);
end.
Вид экрана:
2. Дано двузначное число. Определить кратна ли трем сумма его цифр.
Program pr2; { Дано двузначное число. Определить кратна ли трем сумма его цифр}
uses crt;
var ed,des,n,m,s:integer;
begin
clrscr;
writeln('введите двузначное число');
readln(n);
ed:=n mod 10;
des:=n div 10;
s:=ed+des;
if s mod 3=0 then
writeln('суммма цифр числа ',n,' кратна трем')
else writeln('сумма цифр числа ',n,' не кратна трем');
end.
Вид экрана:
3. Найти max(min(a,b),min(c,d))
program pr3; {найти max(min(a,b),min(c,d))}
uses crt;
var a,b,c,d,min1,min2,max:integer;
begin
clrscr;
writeln('введите четыре числа');
readln(a,b,c,d);
{нахождение мимнимального из чисел a и b}
if a<b then min1:=a
else min1:=b;
{нахождение мимнимального из чисел c и d}
if c<d then min2:=c
else min2:=d;
{нахождение максимального}
if min1<min2 then max:=min1
else max:=min2;
writeln(‘max(min(‘,a,’,’,b,’),min(‘,c,’,’,d,’))=’, max);
end.
Вид экрана:
4. Решение квадратного уравнения.
Program pr4; {решение квадратного уравнения}
uses crt;
var a,b,c,d,x1,x2,x:real;
begin
clrscr;
writeln('введите коэфиценты a,b,c больше нуля');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then begin x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('корни уровнения равны', x1:5:3,x2:5:3);
end;
if d=0 then begin x:=-b/(2*a);
writeln('корень уровнения равен', x:5:3);
end;
if d<0 then writeln('корней нет');
end.
Вид экрана:
Операторы варианта (выбора)
Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.
program pr1; {Составить програму, которая по данному числу (1-12) выводит название соответсвующего ему месяца.}
uses crt;
var n:byte;
begin
clrscr;
writeln('введите число которое соответствует какому либу месяцу (1-12)');
readln(n);
case n of
1:writeln('январь');
2:writeln('февраль');
3:writeln('март');
4:writeln('апрель');
5:writeln('май');
6:writeln('июнь');
7:writeln('июль');
8:writeln('август');
9:writeln('сентябрь');
10:writeln('октябрь');
11:writeln('ноябрь');
12:writeln('декабрь');
else writeln('такого месяца нет');
end;
end.
Вид экрана:
Программа выполняющая по номеру какое либо действие над числами.
program pr2;{ Программа выполняющая по номеру какое либо действие над числами.}
uses crt;
var a,b:integer;n:byte;
begin
clrscr;
writeln('введите два положительных числа');
readln(a,b);
writeln('выберите операцию: 1-сложение, 2-вычитание, 3-умножение, 4-деление');
readln(n);
case n of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'-',b,'=',a-b);
3:writeln(a,'*',b,'=',a*b);
4:writeln(a,'/',b,'=',a/b:5:2);
end;
end.
Вид экрана:
