Мой сайт
Главная | Регистрация | Вход
Понедельник, 23.07.2018, 14:42
Меню сайта
Теги
Наш опрос
Оцените мой сайт
Всего ответов: 35
Главная » 2010 » Октябрь » 18 » Задача 1.
18:52
Задача 1.
Даны круг и квадрат. Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, верно ли утверждение "Круг вписан в квадрат". (Используйте логическую величину RESULT, принимающую значение TRUE, если утверждение истинно, и значение FALSE, если утверждение ложно.)
Просмотров: 159 | Добавил: yaro-vik | Рейтинг: 5.0/1
Всего комментариев: 1
yaro-vik
VAR
kv,kr:word;
result:boolean;
BEGIN
write('Введите длину стороны квадрата:');
readln(kv);
write('Введите длину радиуса круга:');
readln(kr);
result:=kv>=kr;
writeln('Утверждение "Круг вписан в квадрат" имеет значение: ', result);
END.

* переменная kv - длина стороны квадрата
* переменная kr - длина радиуса круга.

19.10.2010 | Вторник | 20:24

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Рекомендуем
Copyright MyCorp © 2018