Учебный курс Программирование на Delphi. Модуль 4: различия между версиями
Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску| Строка 5: | Строка 5: | ||
==Пример 1== | ==Пример 1== | ||
| − | *Условие | + | *Условие |
| + | |||
| + | Найти максимальную из двух величин а и в | ||
*Использованные компоненты | *Использованные компоненты | ||
| Строка 12: | Строка 14: | ||
Edit 2 – ввод | Edit 2 – ввод | ||
| − | - вывод результирующего сопротивления | + | Label1, Label2, Label3 - вывод результирующего сопротивления |
*Программный код | *Программный код | ||
| + | |||
| + | program maxsimum; | ||
| + | var a, b, m: real; | ||
| + | begin | ||
| + | write ('Первое число ? '); | ||
| + | readln(a); | ||
| + | write ('Второе число ? '); | ||
| + | readln(b); | ||
| + | if a>=b then m:=a else m:=b; | ||
| + | writeln('a=', a:4:2,' b =', b:4:2); | ||
| + | writeln('max =', m:4:2); | ||
| + | end. | ||
| + | |||
*Форма с результатом работы программы | *Форма с результатом работы программы | ||
| + | |||
| + | |||
| + | [[Изображение:-2-1.JPG|center]] | ||
==Задание == | ==Задание == | ||
Версия 12:43, 26 февраля 2008
Содержание
Оператор If
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.
Пример 1
- Условие
Найти максимальную из двух величин а и в
- Использованные компоненты
Edit1 – ввод
Edit 2 – ввод
Label1, Label2, Label3 - вывод результирующего сопротивления
- Программный код
program maxsimum;
var a, b, m: real;
begin
write ('Первое число ? ');
readln(a);
write ('Второе число ? ');
readln(b);
if a>=b then m:=a else m:=b;
writeln('a=', a:4:2,' b =', b:4:2);
writeln('max =', m:4:2);
end.
- Форма с результатом работы программы
Задание
Таблица 9
Литература
- Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
- Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
- Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.
