Тест
Результаты работы Pascal-программы
Тест
Алгоритмы линейной и разветвляющейся структуры
Пример 1.1. Простейший алгоритм, запрашивающий имя и затем приветствующий его обладателя.
Данные | Результат |
Имя = "Тимур" | "Привет, Тимур!" |
Демонстрация
Школьный АЯ
алг Знакомство (арг лит Имя, рез лит t) нач вывод "Как тебя зовут?" ввод Имя t:= "Привет, " + Имя + "!" | "+" - операция сцепки вывод t кон
Turbo Pascal
Здесь последний оператор ReadLn позволяет видеть на экране результаты работы программы, пока не будет нажата клавиша <Enter>.
Как тебя зовут? Тимур <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
QBasic
Пример 1.3. Даны три точки на плоскости. Определить, какая из них ближе к началу координат.
Номер теста | Данные | Результат | |||||
xA | yA | xB | yB | xC | yC | Otvet | |
-1 | "Это точка A" | ||||||
-1 | "Это точка B" | ||||||
-1 | "Это точка C"/TR> |
Демонстрация
Школьный АЯ
алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)нач вещ DistA,DistB,DistC ввод xA,yA,xB,yB,xC,yC DistA:= sqrt(xA**2 + yA**2) DistB:= sqrt(xB**2 + yB**2) DistC:= sqrt(xC**2 + yC**2) если (DistA < DistB) и (DistA < DistC) то Otvet:= "Это точка А" иначе если DistB < DistC то Otvet:= "Это точка B" иначе Otvet:= "Это точка C" все все вывод Otvetкон
Turbo Pascal
Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
|
|