Примеры программ Линейные программы
Пример.
Вычислить
program primer;
var y,p,k:real;
begin
write('Введите значения p и k');
readln(p,k);
y:=(p-k)/(p+k);
writeln('Результат: y=',y)
end.
Пример.
Вычислить
program primer;
const a=4; b=3; c=2;
var y1, y2, y3, y4:integer;
y5, y6, y7, y8, y:real;
begin
y1:=a*a; y2:=b*b; y3:=c*c;
y4:=a+b; y5:=y1/y2; y6:=y5+y3;
y7:=exp(1/6*ln(y6)); y8:=sin(y4);
y:=y7+y8;
writeln('y=', y:5:3);
readln;
end.
Пример.
Вычислить
program primer;
var x,y:real;
begin
write(‘Введите значение x:’);
readln(x);
y:=arctan(ln(x/2))+exp(1/5*ln(sqr(cos(x))));
writeln(‘Результат: y=‘,y)
end.
Пример. Заданы две стороны и угол между ними. Найти третью сторону, периметр и площадь треугольника.
Program primer;
var a,b,g:real;
c,s,p,u,d:real;
begin
write('Введите первую сторону'); readln(a);
write('Введите вторую сторону');
readln(b);
write('Введите угол между ними в градусах'); readln(g);
u:=(Pi*g)/180;
c:=sqrt(a*a+b*b-2*a*b*cos(u));
p:=a+b+c;
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln('Третья сторона',c:4:2);
writeln('Периметр',p:4:2);
writeln('Площадь',s:4:2);
readln;
end.
Пример. Составить программу для вычисления значения многочлена, коэффициентами которого взяты цифры, составляющие Вашу дату рождения, используя как можно меньшее количество арифметических операций. Значение многочлена должно вычисляться в произвольной точке х, значение которой задается с клавиатуры. Воспользоваться схемой Горнера.
Program primer;
var x,y:integer;
begin
Writeln('Коэффициенты многочлена – это дата моего дня рождения');
Writeln('Введите x');
Readln(x);
y:=x+1; y:=x*y+3;
y:=x*y+4; y:=x*y+1;
y:=x*y+9; y:=x*y+7;
y:=x*y+6;
Writeln('Результат: ',y);
end.
Программы с условными операторами
Пример. Вычислить
program primer;
var x,y:real ;
begin
write('введите x'); readln (x);
if (x<1)then
if x<-1 then y:=arctan(2*x)
else y:=int(x+2)
else
if x<=3 then y:=(2*x*x+14*x)
else y:=ln(2*x);
writeln('результат y=',y:10:5);
end.
Пример. Найти максимальное из трех чисел.
program primer;
var x,y,z,max:integer;
begin
write('Введите x,y,z'); readln(x,y,z);
if x>y then
if x>z then max:=x
else max:=z
else if z>y then max:=z
else max:=y;
writeln('max=' ,max)
end.
Пример. По номеру месяца выдать название времени года.
Program primer;
var x:integer;
begin
write(‘Введите номер месяца’); readln(x);
case x of
1,2,12: writeln ('зима');
3,4,5: writeln ('весна');
6,7,8: writeln ('лето');
9,10,11: writeln('осень')
else writeln('нет такого месяца');
end;
readln;
end.