Программы на паскаль с решениями

Арифметические действия в ПАСКАЛЬ
Найти периметр прямоугольника со сторонами А и B.
Где:
Program pr1;
var A,B,P: integer; -описание данных
Begin
Read (A,B);
- ввод сторон A и B
P:=(A+B)*2;
- вычисление периметра
Writeln (P);
-вывод периметра
END.
СЛОЛЖЕНИЕ
Записать программу и найти результат, если а=96 b=134
uses CRT;
var a,b: integer;
Begin
read (a);
read(b);
write (a+b);
END.
Вычисли если : 10 div 3
18 mod 4
uses CRT;
var a,b: integer;
Begin
read (a);
read(b);
write (a div b);
END.
program avto;
var v1, v2, t, s1, s2, s, s01, s02: real;
begin
writeln ('Ââåäèòå ñêîðîñòè àâòîìîáèëåé, ðàññòîÿíèå ìåæäó íèìè è âðåìÿ äâèæåíèÿ:');
readln(v1, v2, s, t);
s1:=v1*t;
s2:=v2*t;
s01:=s+s1+s2;
s02:=abs((s1+s2)-s);
begin
writeln('Ðàññòîÿíèå áóäåò ðàâíî');
writeln ('s01=',s01, 'êì');
writeln ('s02=', s02, 'êì' )
end;
end.
program Karlson5; {Время года}
var
N: integer;
begin
writeln ('введите номер месяца');
readln (N);
case N of
1,2,12: writeln ('Это зима');
3..5: writeln ('Это весна');
6..8: writeln ('Это лето');
9..11: writeln ('Это осень')
else
writeln ('нет такого месяца')
end;
end.
Вычисление расстояния между двумя точками на прямой
var
a,b: real; // координаты точек
r: real; // расстояние между точками на прямой
begin
write(введите координаты точки a: ');
readln(a);
write('Введите координаты точки b: ');
readln(b);
r := abs(a-b);
writeln('Расстояние менжду точками равно = ',r);
end.
Выделение цифр из двузначного числа
var
x: integer;
// двузначное число
c1,c2: integer; // первая и вторая цифры двузначного числа
begin
write('Введите двузначное число: ');
readln(x);
c1 := x div 10;
c2 := x mod 10;
writeln('Первая и вторая цифры двузначного числа: ',c1,' ',c2);
end.
Вычисление площади круга
const Pi = 3.1415;
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: ');
readln(r);
S := Pi*r*r;
writeln('Площадь круга равна ',S);
end.
Минимум из двух значений
var
x,y: integer;
min: integer;
begin
write('Введите x и y: ');
readln(x,y);
if x<y then
min := x
else min := y;
writeln('Минимум = ',min);
end.
Определение четности числа
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.
Сумма и произведение введенных чисел
Код на Pascal
var
i: integer;
s,p: real;
x: real;
begin
writeln('Введите 10 чисел: ');
s := 0;
p := 1;
for i := 1 to 10 do
begin
read(x);
s := s + x;
p := p * x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.
Вывод букв английского алфавита
var c: char;
begin
for c := 'a' to 'z' do
write(c,' ');
writeln;
c := 'A';
while c<='Z' do
begin
write(c,' ');
c := succ(c);
end;
end.
Программа рисования ступенек
uses crt,graphABC;
var n,x,y,w,h,i:integer;
begin
write('Количество ступенек n=');
read(n);
hidecursor;
clearwindow;
w:=(windowwidth-2) div n;
h:=windowheight div n;
x:=0;
y:=1;
for i:=1 to n do
begin
line(x,y,x+w,y);
line(x+w,y,x+w,y+h);
x:=x+w;
y:=y+h;
end;
end.
var a, b, c:integer;
begin
writeln ('введите первое число');
readln (a);
writeln ('введите второе число');
readln (b);
c:=a*b;
writeln ('произведение равно',c);
end. Умножение
program z1;
begin
writeln('Сегодня на улице хорошая погода');
writeln('Светит солнце!');
{И нет дождя!};
end. Погода
program vozrast;
uses crt;
var voz, gr, tg:integer; {для возраста, года рождения, текущего года: целые
числа}
im:string; {для имени: буквы, слова}
begin
clrscr;
write( 'Как тебя зовут? ' );
readln(im);
write('Сколько тебе лет? ');
readln(voz);
write('Какой сейчас год? ');
readln(tg);
gr:=tg-voz;
writeln('Ты родился в ',gr,' году');
writeln('До свидания, ',im);
end. Возраст
program serdce;
uses drawman;
begin
field(15,15);
topoint(7,3);
pendown;
topoint(3,7);
topoint(5,9);
topoint(7,8);
topoint(9,9);
topoint(11,7);
topoint(7,3);
penup;
topoint(0,0);
end.
program konvert;
uses drawman;
begin
field(10,10);
topoint(2,1);
pendown;
topoint(2,5);
topoint(5,7);
topoint(8,5);
topoint(8,1);
topoint(2,1);
topoint(8,5);
topoint(2,5);
topoint(8,1);
penup;
topoint(0,0);
end.
program korablik;
uses drawman;
begin
field(15,15);
topoint(4,1);
pendown;
topoint(2,3);
topoint(14,3);
topoint(12,1);
topoint(4,1);
penup;
topoint(9,3);
pendown;
topoint(9,9);
topoint(7,8);
topoint(9,7);
penup;
topoint(0,0);
end.
program zvezda;
uses drawman;
begin
field(15,15);
topoint(4,1);
pendown;
topoint(8,9);
topoint(12,1);
topoint(3,6);
topoint(13,6);
topoint(4,1);
penup;
topoint(0,0);
end.
program uzor;
uses drawman;
begin
field(15,15);
topoint(6,0);
pendown;
topoint(4,4);
topoint(0,6);
topoint(4,8);
topoint(6,12);
topoint(8,8);
topoint(12,6);
topoint(8,4);
topoint(6,0);
penup;
topoint(6,2);
pendown;
topoint(2,6);
topoint(6,10);
topoint(10,6);
topoint(6,2);
penup;
topoint(0,0);
end.
program zhuk;
uses drawman;
begin
field(15,15);
topoint(4,2);
pendown;
topoint(5,3);
topoint(7,1);
topoint(9,3);
topoint(10,2);
penup;
topoint(6,2);
pendown;
topoint(7,7);
topoint(8,2);
topoint(9,5);
topoint(8,8);
topoint(7,9);
topoint(6,8);
topoint(5,5);
topoint(6,2);
penup;
topoint(7,7);
pendown;
topoint(7,9);
topoint(5,11);
topoint(7,9);
topoint(9,11);
penup;
topoint(3,8);
pendown;
topoint(5,9);
topoint(6,8);
topoint(5,5);
topoint(4,6);
topoint(2,5);
penup;
topoint(11,8);
pendown;
topoint(9,9);
topoint(8,8);
topoint(9,5);
topoint(10,6);
topoint(12,5);
penup;
topoint(0,0);
end.