Алгоритмы линейной и разветвляющейся структуры

Дата добавления: 2015-07-04; просмотров: 809; Нарушение авторских прав

Пример 1.1. Простейший алгоритм, запрашивающий имя и затем приветствующий его обладателя.

Тест

Данные	Результат
Имя = "Тимур"	"Привет, Тимур!"

Демонстрация

Начало формы

Конец формы

Школьный АЯ

Алг Знакомство (арг лит Имя, рез лит t)

Нач

вывод "Как тебя зовут ?"

Ввод Имя

t := "Привет, " + Имя + "!" | "+" - операция сцепки

Вывод t

Кон

Turbo Pascal

Program Hello;

Var Name: String; {Описание переменной Name строкового типа}

BEGIN

Write('Как тебя зовут ? '); {Вывод на экран текста вопроса}

ReadLn(Name); {Ввод c клавиатуры имени}

WriteLn('Привет, ', Name, '!'); {Вывод на экран приветствия}

ReadLn

END.

Здесь последний оператор ReadLn позволяет видеть на экране результаты работы программы, пока не будет нажата клавиша <Enter>.

Результаты работы Pascal-программы

Как тебя зовут ? Тимур <Enter> Привет, Тимур !

QBasic

CLS

INPUT "Как тебя зовут ? ", Name$

PRINT "Привет, "; Name$; "!"

END

Пример 1.2. Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H.

Тест

Данные	Результат
R = 1	H = 1	V = 3.14	S = 6.28

Демонстрация

Начало формы

Конец формы

Школьный АЯ

Алг Цилиндр (арг вещ R, H, рез вещ V, S)

Нач вещ Pi

Pi := 3.14

V := Pi * R**2 * H

S := 2 * Pi * R * H

Кон

Turbo Pascal

Program Cylinder;

Uses Crt; {Подключение библиотеки Crt}

Var

R, {радиус основания цилиндра}

H, {высота цилиндра }

V, {объем цилиндра }

S: Real; {площадь боковой поверхности цилиндра}

BEGIN

ClrScr; {Вызов из библиотеки Crt процедуры очистки экрана}

Write('Введите высоту цилиндра : '); ReadLn(H);

Write('Введите радиус основания : '); ReadLn(R);

V := Pi * R * R * H;

S := 2 * Pi * R * H; WriteLn;

WriteLn('Объем цилиндра = ', V : 5 : 2); {Здесь 5 - общее

<== предыдущая лекция | следующая лекция ==>

Настройка браузера | Демонстрация