. 1. Найти максимальное число из трёх.
program max;
uses crt;
var a,b,c,max : integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln©;
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (b write('max=',max);
readln;
end.
2. Вычислить функцию y=(|a+b|^2)/(sqrt(x)+1)^a/b-(ln(b-cosa^10)e^x)/strt(|sinx|-8)
program fun;
uses crt;
label 1;
var a,b,x : integer; y:real;
begin
clrscr;
1: write('a=');readln(a);
write('b=');readln(b);
write('x=');readln(x);
if (b>0) and (x>0) and (sin(x)<>8) and (a>0)then begin
y:=sqr(abs(a+b))/(exp(a/b*ln(sqrt(x)+1)))-(ln(b)-cos(exp(10*ln(a)))*exp(x))/sqrt(abs(sin(x)-8));
writeln('y=',y:5:2);
end else begin writeln('Vvedite drugie znacheniya'); goto 1;
end;
readln;

end.
3. Ввести номер студента из списка. Вывести его фамилию. Предусмотреть в программе выбор не менее 5 альтернатив.
program student;
uses crt;
label 1;
var k: integer; s:string;
begin
clrscr;
1: writeln('Vvedite nomer studenta'); readln(k);
case k of
1: s:='Petrov Sasha';
2: s:='Sidorov Inan';
3: s:='Kim Slava';
4: s:='Bizaev Aibek';
5: s:='Abaeva Saule';
end;
if k>5 then begin
writeln ('Vvedite drugoi nomer'); goto 1; end;
writeln('Student ',k,' - ',s);
readln;
end.
4. Даны два числа. Вывести первое, если оно больше второго и оба, ели это не так.
program 4A;
uses crt;
var
a,b:real;
begin
clrscr;
writeln('Vvedite 2 chisla a, b');
read(a,b);
if a>b then writeln('a=',a) else
writeln('a=',a:2:2,' b=',b:2:2);
readkey
end.

Скачать методички (классные уроки) для учителей по разным предметам: история, литература, физика. Как провести урок с учеником, вам поможет грамотно составленный план урока. Занятия по математике, литературе, физике, информатике, химии, психологии.

.