Алгоритмы линейной и разветвляющейся структуры
Пример 1.1. Простейший алгоритм, запрашивающий имя и затем приветствующий его обладателя.
Тест
| Данные | Результат |
| Имя = "Тимур" | "Привет, Тимур!" |
Демонстрация
Школьный АЯ
алг Знакомство (арг лит Имя, рез лит t) начвывод "Как тебя зовут ?"ввод Имяt := "Привет, " + Имя + "!" | "+" - операция сцепкивывод tкон
Turbo Pascal
Здесь последний оператор ReadLn позволяет видеть на экране результаты работы программы, пока не будет нажата клавиша <Enter>.
Результаты работы Pascal-программы
| Как тебя зовут ? Тимур <Enter> Привет, Тимур ! |
QBasic
CLSINPUT "Как тебя зовут ?", 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
QBasic
Пример 1.3. Даны три точки на плоскости. Определить, какая из них ближе к началу координат.
Дата добавления: 2015-08-08; просмотров: 1406;