Шапошев Дмитрий ИТ-11
Линейный вычислительный процесс
1.Составить программу, которая выводит на экран ПК заставку:
*************************************
* Программа *
* вычисления суммы чисел *
*************************************
Program lab_rab_101;
uses crt;
Begin
writeln ('*************************************');
writeln ('* Программа *');
writeln ('* вычисления суммы чисел *');
write ( '*************************************');
end.
2.Написать программу, которая вводит значения трех переменных А, В, С и выводит их сумму. Ввод каждого значения произвести с отдельной строки. Результат вывести на отдельную строку.
Program lab_rab_102;
uses crt;
var a,b,c:integer;
Begin
readln (a); readln (b);
readln (c);
a:=a+b+c;
writeln (a);
end.
3.Написать программу, которая вводит значения четырех переменных A, B, C, D. Ввод значений A и B произвести на одной строке, значений C и D на другой строке. Вычислить сумму и вывести на отдельной строке.
Program lab_rab_103;
uses crt;
var a,b,c,d:integer;
Begin
readln (a,b);
readln (c,d);
a:=a+b+c+d;
writeln (a);
end.
4.Написать программу ввода значений А, В, С в одной строке и вывести результат выражения A*(B/3,14)+(C*3) в отдельной строке.
Program lab_rab_104;
uses crt;
Var a,b,c:integer;
d:real;
Begin
readln (a,b,c);
d:=A*(B/3.14)+(C*3);
writeln (d);
end.
5.Написать программу ввода значений R, Y в разных строках и вывести результат выражения R*Y2 + (Y/5) в отдельной строке.
Program lab_rab_105;
uses crt;
var a,b:integer;
c:real;
Begin
readln (a);
readln (b);
c:=a*b*b+(b/5);
writeln (c);
end.
6.Написать программу вычисления площади прямоугольного треугольника, значения катетов которого А и В вводятся с клавиатуры. Результат вывести в следующем виде: «Для значений катетов 4 и 6 площадь прямоугольного треугольника равна 12».
Program lab_rab_106;
uses crt;
var a,b:integer; c:real;
Begin
readln (a,b);
c:=a*b/2;
writeln ('Для значения катетов ',a,' и ',b,' площадь прямоугольного треугольника равна ',c);
end.
7.Написать программу вычисления идеального веса человека по формуле: идеальный вес = рост в см – 100. Значение роста ввести с клавиатуры. Результат вывести в следующем виде: «Для человека ростом 165 см идеальный вес равен 65 кг».
Program lab_rab_107;
uses crt;
var a,b:real;
Begin
writeln ('Каков Ваш рост, повор?');
readln (a);
b:=a-100;
writeln ('Для человека ростом ',a,' см идеальный вес равен ',b,' кг');
end.
8.Написать программу получения следующей формы:
***************************************
* А * В * А+В * А–В * А/В *
***************************************
6 2 8 4 3.0
***************************************
Program lab_rab_108; uses crt; Begin
writeln ('********************************************************');
writeln ('* А * В * А+В * А-В * А/В *');
writeln ('********************************************************');
writeln (' 6 2 8 4 3.0');
writeln ('********************************************************'); end.
9.Вы положили деньги в сбербанк на срочный депозит на три месяца из расчета 60% годовых. Напишите программу, которая вычислит причитающуюся Вам через три месяца сумму.
Program lab_rab_109;
uses crt;