Линейные программы
1. Вычислить значение выражения по формуле (все переменные принимают действительные значения) .
Program pr1; { вычислить значение выражения по формуле(все переменные принимают действительные значения)(b+sqrt(b*b+4*a*c))/2*a-a*a*a*c+1/(b*b*b)}
uses crt;
var a,b,c:integer; rez:real;
begin
clrscr;
writeln('введите значение a b c');
readln(a,b,c);
rez:=(b+sqrt(b*b+4*a*c))/2*a-a*a*a*c+1/(b*b*b);
writeln(rez:4:3);
end.
Вид экрана:
2. Вычисление объема и площадь боковой поверхности прямоугольного параллелепипеда.
program pr2;{вычисление объема и площадь боковой поверхности прямоугольного параллелепипеда}
uses crt;
var a,b,c,v,pb:integer; {a-длина параллелепипеда, b-ширина, c-высота, v-объем pb-площадь боковой поверхности}
begin
clrscr;
writeln('введите длины сторон прямоугольного параллелепипеда');
readln(a,b,c);
v:=a*b*c;
pb:=2*(a*c)+2*(b*c)+2*(a*b);
writeln('объем прямоугольного параллелепипеда равен ', v);
writeln('площадь боковой поверхности равен ', pb);
end.
Вид экрана:
3. Дано двузначное число. Получить число, образованное при перестановке его цифр.
Program pr3;{ Дано двузначное число. Получить число, образованное при перестановке его цифр }
uses crt;
var n,ed,des,m:integer;
begin
clrscr;
writeln('введите двузначное число');
readln(n);
ed:=n mod 10;
des:=n div 10;
m:=ed*10+des;
writeln('при перестановки цифр в числе ',n,' число получается:' ,m);
end.
Вид экрана:
4. Найти сумму цифр трехзначного числа.
program pr4; {найти сумму цифр трехзначного числа}
uses crt;
var s,n,ed,des,sot:integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(n);
ed:=n mod 10;
des:=(n div 10) mod 10;
sot:=n div 100;
s:=ed+des+sot;
writeln('сумма цифр трехзначного числа равен ',s);
end.
Вид экрана:
5. Дано трехзначное число. Найдите число, полученное при перестановке второй и третей цифр заданного числа.
Program pr5; { Дано трехзначное число. Найдите число, полученное при перестановке второй и третей цифр заданного числа }
uses crt;
var n,m,ed,des,sot:integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(n);
ed:=n mod 10;
des:=(n div 10) mod 10;
sot:=n div 100;
m:=sot*100+ed*10+des;
writeln('при перестановки второй и третьей цифр в числе ',n,' число получается:' ,m);
end.
Вид экрана:
6. Дано четырехзначное число. Получить число, полученное при перестановке второй и третей цифр заданного числа.
Program pr6; { Дано четырехзначное число. Получить число, полученное при перестановке второй и третей цифр заданного числа }
uses crt;
var n,m,ed,des,sot,ts:integer;
begin
clrscr;
writeln('введите четырехзначное число');
readln(n);
ed:=n mod 10;
des:=(n mod 100) div 10;
sot:=(n div 100) mod 10;
ts:=n div 1000
m:=ts*1000+des*100+sot*10+ed;
writeln('при перестановки второй и треьей цифр в числе ',n,' число получается:' ,m);
end.
Вид экрана:
Разветвляющиеся вычислительные процессы и операторы перехода.