[Помогите!] Школьная программа :D

[stukz]

Кому не сложно помогите с меня сик!

Напишите программу которая спросит у вас что ты сегодня получил по математике и похвальность за хорошие оценки и поругать за плохие , предусмотрите в программе ввод неверных данных

Добавлено через 9 минут
Забыл!

Писать через Pascal

[MarrakeSH]

uses crt;
var
a: integer;
begin
clrscr;
writeln('Введите полученую оценку');
readln(a);
if (a<1) or(a>5) then writeln('Ошибка, нет такой оценки')
else
case a of
1: writeln('поругали');
2: writeln('поругали');
3: writeln('промолчали');
4: writeln('похвалили');
5: writeln('похвалили');
end;
readln;
end.

[Your_Friend]

Цитата: Сообщение от marakesh| uses crt; var a: integer; begin clrscr; writeln('Введите полученую оценку'); readln(a); if (a<1) or(a>5) then writeln('Ошибка, нет такой оценки') else case a of 1: writeln('поругали'); 2: writeln('поругали'); 3: writeln('промолчали'); 4: writeln('похвалили'); 5: writeln('похвалили'); end; end.

Автору темы, если пишешь на PascalABC, то

uses crt;

clrscr;

не нужно. Т.е. для Pascal ABC:

Цитата: var a: integer; begin writeln('Введите полученую оценку'); readln(a); if (a < 1) or (a > 5) then writeln('Ошибка, нет такой оценки') else case a of 1: writeln('поругали'); 2: writeln('поругали'); 3: writeln('промолчали'); 4: writeln('похвалили'); 5: writeln('похвалили'); end; end.

[Jok3r666]

буквенный ввод не предусмотрели

[Mebius]

Цитата: Сообщение от Jok3r666 буквенный ввод не предусмотрели

+1

в

try

except

заключить,

try
StrToInt(a);
except
begin
WriteLn('я тут цыфферко нэ вижу');
readln;
exit;
end;
end;

[Your_Friend]

Цитата: Сообщение от Mebius +1 в try except заключить, try StrToInt(a); except begin WriteLn('я тут цыфферко нэ вижу'); readln; exit; end; end;

Ребят, вы из простенькой школьной программы сделали не знаю что...Не забывайте, таких команд еще они точно не проходили

[VeTaL_UA]

Цитата: Сообщение от Your_Friend Не забывайте, таких команд еще они точно не проходили

try..finally/except не учили? сомневаюсь...

[metraz]

По себе сужу, когда я учился-не проходили. Не думаю , что многое изменилось за пару лет.

[~Керя~]

А вообще, почему идет?

end;
end.

Если заканчивается программа

readln;
end.