Среда, 04.03.2026, 04:30
Приветствую Вас Гость | Регистрация | Вход
|
Программирование-Обучение программированию |
| Статистика |
|---|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Каталог файлов
Существует ли треугольник?
|
| 26.01.2017, 18:53 |
Уважаемые пользователи!
Мы понимаем, что новое нововведение("Магазин кода") понравилось не всем, но стоит понять, что без этого дальше сайт не пойдет. Нам нужно раскручивать сайт и вскоре поддерживать "Партнерскую программу" по которой, Вы можете бесплатно получить деньги, кроме того Вы можете получить возможность приобрести бесплатно программу в "Магазине кода".
| program treugolnik; |
Название программы |
|
uses crt;
|
Подключаем модуль псевдографики |
| var |
Указываем переменные (ячейки памяти) |
|
a, b, c: real;
|
Перечисление ячеек (переменных), тип данных: целые числа |
|
begin
|
Начало программы |
| ClrScr; |
Очистка экрана* |
| writeln ('Введите сторону a=? см'); |
Выводим на экран сообщение "Введите сторону a=? см" |
| readln(a); |
Читаем данные, которые введет пользователь в память(ячейку) |
| writeln ('Введите сторону b=? см'); |
Выводим на экран сообщение "Введите сторону b=? см" |
| readln (b); |
Читаем данные, которые введет пользователь в память(ячейку) |
| writeln ('Введите сторону c=? см'); |
Выводим на экран сообщение "Введите сторону c=? см" |
| readln (c); |
Читаем данные, которые введет пользователь в память(ячейку) |
|
if (a+b>c) and (b+c>a) and (c+a>b) then writeln ('Да, такой треугольник существует!')
|
В данной строке прописываем условие "Если a+b>c и b+c>a и c+a>b, то вывести сообщение посредством writeln "Да, такой треугольник существует!" |
| else writeln ('Нет, такого треугольника не существует!'); |
Тут прописано, что будет иначе, если хотя бы одно из условий не выполняется, выводится сообщение |
|
while not keypressed do;
|
"Пока не нажата клавиша делать", что делать не указано, по логике закрыть программу, раз делать нечего" |
|
end.
|
Конец |
*- Чистит экран от логотипов компании Free Pascal
|
|
Категория: 8 класс | Добавил: admin
|
| Просмотров: 171 | Загрузок: 0
| Рейтинг: 0.0/0 |
|
|