Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 977 ответов!

Составьте на Паскале программу определения минимума из трёх чисел с использованием

5-9 класс

логических операций. Программа должна иметь дружественный интерфейс.

MrLime 27 авг. 2014 г., 5:24:17 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ratnikov1996
27 авг. 2014 г., 6:49:47 (9 лет назад)

program picaso; uses crt;
var a,b,c,minim:real;
procedure min(a,b:real ; var minim:real);
begin
    if a>b then minim:=b else minim:=a;
end;
begin clrscr;
    writeln('a');readln(a);
    writeln('b');readln(b);
    writeln('c');readln(c);
    
    min(a,b,minim);
    min(minim,c,minim);
    
    writeln('Min=',minim);
    readln;
end.

Ответить

Другие вопросы из категории

Напишите пожалуйста программу на abc pascal:

1. Массив из 10 элементов, которые равны: 1,2,3,...100.
2.Массив из 10 элементов, которые равны: 1,4,9,16,...100.(подсказка-это квадраты чисел)

ПОмогите!!!.мои подруги решили угадать пароль от моего телефона.гадали долго,и телефон написал,что слишком много было попыток.надо ввести емейл и пароль.я

не помню пароль.на компе я зашла в аккаунт и поменяла пароль.ввела на телефоне,а он не принимает и пишет,что указано неверно(проверяла по тысяче раз каждую буковку,все правильно!!)Умоляю!телефон не включается,а выходит только это окно.

Читайте также



Вы находитесь на странице вопроса "Составьте на Паскале программу определения минимума из трёх чисел с использованием", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.