народ я тут по самоучителю работаю, там прога надо сделать так, чтоб вводился цифра от 1 до 7, и отображался название дня, вроде все правильно сделал, но не пашет...может с goto перестарался), надо чтоб были исключены несуществующие дни недели(8 to бесконечность ы) и снабдить прогу запросом о окончании работы, надеюсь тут помогут....а может я реально с goto переборщил...| Код |
label
per, kon, nach;
var
a, c :integer;
begin
nach:
write('budete rabotat? 1-da, vse ostalnoe net!');
readln(c);
if c=1 then goto per
else goto kon;
per:
write('vybirite nomer dnya nedeli');
readln(a);
if (a>7) and (a<0) then goto nach
else
case a of
1 : write('ponedelnik');
2 : write('vtornik');
3 : write('sreda');
4 : write('chetverg');
5 : write('pyatnica');
6 : write('subbota');
7 : write('voskresenie');
kon:
write('spasibo za vnimanie');
readln;
end.
|
|
)