www.proshkolu.ru/club/pascalabc/file2/212740
program ivan;
uses crt;
var p :string;
begin
writeln ('Куда путь держишь?');
readln (p);
if p='направо' then writeLn ('Коня потеряешь');
if p='налево' then writeLn ('Голову сложишь');
if p='прямо' then writeLn ('Невесту найдешь');
end.
1.Из трех чисел найти минимальное
program prim4a;
uses crt;
var x,y,z,min:integer;
begin
clrscr;
writeln('x,y,z-?');
readln(x,y,z);
min:=x;
if y<min then min:=y;
if z<min then min:=z;
writeln('min=',min);
readln;
end.
2.Даны три действительных числа a,b,c.
Найдите наибольшее из них.
3.Напишите программу, которая бы запрашивала возраст мужчины и сообщила, сколько лет ему осталось до пенсии, либо что он туже пенсионер.
program pr7;
uses crt;
var x:integer;
begin
clrscr;
writeln(`god rogdenija: `);
readln(x);
x:=2013-x;
x:=65-x;
if x0 then writeln(`ostalos `,x,`let`) else writeln(`pensioner`);
readln;
end.
4.Составьте программу, определяющую, пройдет ли график функции у=5х2-7х+2 через заданную точку с координатами (a,b).
program pr4;
uses crt;
var a,b,y:integer;
begin
clrscr;
writeln(`(x,y) `);
readln(a,b);
y:=5*a*a-7*a+2;
if y=b then writeln(`yes`) else writeln(`no`);
readln;
end.
5.Напишите программу которая определяет знак числа
(положительное или отрицательное).
program pr6;
uses crt;
var x,y:real;
begin
clrscr;
writeln(`x: `);
readln(x);
if (x=7) or (x=-3) then writeln(`net rechenija`);
else
begin
y:=5/((x-7)*(x+3));
writeln(`y=`,y);
end;
readln;
end.
6.Даны коэффициенты квадратного уравнения a,b,c.
Найти действительные корни этого уравнения.
program pr6;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln(`a,b,c: `);
readln(a,b,c);
d:=b*b-4*a*c;
if d>=0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(`x1=`,x1:5:2,` x2=`,x2:5:2);
end
else
writeln(`net korney`);
readln;
end.
В Паскале есть еще один оператор, который позволяет программировать сложные ветвления, когда имеется несколько (больше двух) вариантов действия. Этот оператор называется оператором выбора case {кэйс}.
Рассмотрим программу, спрашивающую у ученика его отметку по математике и реагирующую на нее подходящим текстом:
program prim20;
uses crt;
var otmetka:integer;
begin
clrscr;
writeln('Отметка ?');
readln(otmetka);
case otmetka of
1,2: writeln('Кошмар!');
3: writeln('Неважно');
4: writeln('Хорошо');
5: writeln('Молодец!!!');
else writeln('Таких отметок не бывает');
end;
end.
В процессе исполнения оператора
case компьютер по очереди сравнивает значение переменной
otmetka со всеми значениями,
перечисленными перед двоеточиями.
Наткнувшись на совпадающее значение,
он выполняет оператор,
стоящий после двоеточия.
На этом исполнение оператора
case завершается. Если же совпадающего значения так и не нашлось, то выполняется оператор,
стоящий после оператора else.