Простые числовые типы данных
Автор: ghgutjhjhgkh • Январь 16, 2019 • Лабораторная работа • 307 Слов (2 Страниц) • 409 Просмотры
Лабораторная работа №1
Тема: «Простые числовые типы данных»
Задание: Дан радиус окружности, подсчитать длину окружности.
Блок схема
[pic 1][pic 2][pic 3][pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11]
Программа на языке Turbo Pascal:
Program lab1;
uses crt;
var r, okrujnost,pi: real;
begin;
readln(r);
pi:=3.14;
area := 2*pi*r;
writeln(okrujnost);
end.
Результат:
5
31.4
Лабораторная работа №2
Тема: «Условный оператор. Оператор многозначного ветвления»
Задание: Даны действительные числа х,у. Получить:
А) max(x,y),
Б) min (x,y),
В) max (x,y),min(x,y).
Блок схема
[pic 12]
[pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29]
Программа на языке Turbo Pascal:
Program lab2;
uses crt;
var x,y, max, min: integer;
begin
readln(x,y);
if (x>y) then
begin
max:=x;min := y;
end;
else
begin
min := x; max:= y;
end;
writeln(max);
writeln(min);
end.
Результат:
100.45
100
45
-1
Лабораторная работа №3
Тема: «Операторы повтора»
...