Вот что я тут нафигачил, не знаю, может кому то не понравится, мне самому то не нравится))
Короче смотрите и судите:
| Код |
Program pizdets;
uses crt;
Var
s:char;
i:integer;
kol1,kol2,kol3:set of char;
label beg,exit;
begin
kol1:=['1','2','5','7'];
kol2:=['1','2','3','4'];
kol3:=['5','6','7'];
beg:
clrscr;
textcolor(14);
writeln('3 колхоза (условно возмём "Первый", "Второй", "Третий") выращивают различные с/х культуры.');
textcolor(10);
writeln('Введите цифру соответствующей с/х культуры чтобы узнать, в каких колхозах она выращивается.');
textcolor(7);
writeln('Примечания:');
writeln('1) Чтобы просмотреть список цифр, соответствующих с/х культурам введите "h"');
writeln('2) Чтобы выйти из программы введите "e"');
textcolor(12);
readln(s);
if s='e' then goto exit
else if s='h' then
begin
clrscr;
textcolor(11);
writeln('Морковь - 1');
writeln('Свекла - 2');
writeln('Картофель - 3');
writeln('Капуста - 4');
writeln('Овёс - 5');
writeln('Рожь - 6');
writeln('Кукуруза - 7');
readln;
goto beg;
end
else
begin
textcolor(12);
if s in kol1 then
writeln('Культура выращивается в ПЕРВОМ колхозе');
if s in kol2 then
writeln('Культура выращивается во ВТОРОМ колхозе');
if s in kol3 then
writeln('Культура выращивается в ТРЕТЬЕМ колхозе');
end;
readln;
goto beg;
exit: end.
|
Коментарии писать не буду, если кому очень надо - попросите лично.
Добавлено @ 23:34
ФедосеевПавел,
Извените, не прочёл Ваше сообщение и своё написал.
| Цитата | | Я, прямо, зарыдал от такого самопожертвования... |
Не издеватесь, мне задание в учебном заведении дали  Честноговоря сидел долго и убил нервов не мало.
Ну я человек мягкоговоря НАЧИНАЮЩИЙ и поэтому мой код ни в какое сравнение не идёт с Вашим! Однако Ваша помощь для меня УЖЕ бесполезна, ибо подготовлен отчёт по моему коду, а сроки очень поджимают...
Может кто-то ещё заинтересуется. В любом случае ОГРОМНОЕ СПАСИБО!!!
+ в репу |
