Определить правильность даты, введенной с клавиатуры - Turbo Pascal

Формулировка задачи:

Всем привет) помогите пожалуйста очень сложно для меня не умею в Паскале работать( вот пару задачек просто надо а то к сессии не допускают Пр №7 Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы(1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление) Составьте программу, которая по введенному номеру выполняет то или иное действие над числами. Пр №8 Определить правильность даты, введенной с клавиатуры (число - от 1 до 32, месяц от 1 до 12).Если введены некорректные данные, то сообщить об этом. Пр №9 Составьте программу выводящую на экран все чётные числа из интервала [A...B]. Пр №10 Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных чисел. Пр №11 Пусть дано в вещественных чисел, которые вводятся последовательно по одному. Вычислить среднее арифметическое двухзначных чисел. Результат вывести на экран.


textual

Код к задаче: «Определить правильность даты, введенной с клавиатуры - Turbo Pascal»

program n7;
var x,y,z:real;
     c:integer;
begin
writeln('введите x и y через пробел');readln(x,y);
writeln('Выберите действие: 1-сложение, 2-вычитание, 3-умножение, 4-деление');readln(c);
case c of
1:writeln(x+y);
2:writeln(x-y);
3:writeln(x*y);
4:writeln(x/y);
else writeln('Такого действия не существует');
end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник