Исходники Delphi

Привет, Гость! | Выход

Список пользователей

Изменить сведения

Читать ЛС ()

Отправить ЛС

Добро пожаловать на наш портал

На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
 
Правообладателям RSS 2.0 О сайте Добавить новость Контакты Правила

Меню

Не доступно

Не доступно

Опрос

Оцените мой сайт

Проголосовало: 118
Другие опросы

Результаты опроса
Главная » Файлы » Исходники Delphi » Для новачка
if then else
15.02.2013, 01:33
1.2 Простое приложение с оператором if

if<логическое выражение>then<оператор1> еlse <оператор2>

программа для нахождение максимального числа
[CODE]
uses
SysUtils;
var a, b, c, max:integer
begin
writeln('enter a, b, c');
readln(a, b, c);
if a>b then max:= a else max := b;
if c>max then max := c;
writeln ('max= ',max);
readln
end.[/CODE]
Категория: Для новачка | Добавил: Reif
Просмотров: 698 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Ваше Имя:
Ваш E-Mail:
Код:


Название блока

Здесь html код

Категории

Для новачка [9]
Графика, Оформление [5]
Аудио [1]
Интернет, Сети [8]
Работа с текстом [4]
Работа с дисками [3]
Базы Данных [1]
Многопоточные приложения [2]
Разное [9]

Название блока

Здесь html код

Название блока

Здесь html код

Название блока

Здесь html код
 
Исходники Delphi
Сделать бесплатный сайт с uCoz |