Как сделать чтобы не правильный ввод года выделялся цветом

@КатяБ · Регистрация: 24.02.2013

Author24 — интернет-сервис помощи студентам

Подскажите,как сделать чтобы не правильный ввод года выделялся цветом?а то у меня зацикливает(

Pascal

program kkkkk;
uses crt;
type byty=record
  fam:string[30];
  pol:char;
  god:word;
  zarp,chist:word;
end;
label cnova_god;
var punkt:byte;
    db:byty;
    s:string;
    code,v:integer;
begin
while true do
begin
clrscr;
writeln('                                  MENU                      ');
writeln('1:Vvod');
writeln('2:Prosmotr');
writeln('3:Poisk');
writeln('4:Exit');
readln(punkt);
case punkt of
1:begin
  write('Vvedite familia I.O.  ');
  readln(db.fam);
  write('Vvedite pol ');
  readln(db.pol);
  cnova_god:write('Vvedite god postyplenia na raboty  ');
  readln(s);
  val(s,v,code);
  if code<>0 then
             goto cnova_god;
  write('Vvedite zarplaty  ');
  readln(db.zarp);
  writeln(db.fam,' ', db.pol,' ', s,' ', db.zarp);
  readln;
  end;
2:writeln('Prosmotr');
3:writeln('Poisk');
4:Exit;
else
  writeln('konec');
end;
end;

@Puporev · 20.04.2013, 08:29

Pascal

program kkkkk;
uses crt;
type byty=record
  fam:string[30];
  pol:char;
  god:word;
  zarp,chist:word;
end;
 
var punkt:byte;
    db:byty;
    s:string;
    code,v:integer;
begin
repeat
clrscr;
writeln('                                  MENU                      ');
writeln('1:Vvod');
writeln('2:Prosmotr');
writeln('3:Poisk');
writeln('4:Exit');
repeat
readln(punkt);
until punkt in [1..4];
case punkt of
1:begin
  clrscr;
  write('Vvedite familia I.O.  ');
  readln(db.fam);
  write('Vvedite pol ');
  readln(db.pol);
  repeat
  write('Vvedite god postyplenia na raboty  ');
  readln(s);
  val(s,v,code);
  if code<>0 then
   begin
    delline;
    textcolor(14);
    writeln(s);
    textcolor(15);
   end;
  until code=0;
  write('Vvedite zarplaty  ');
  readln(db.zarp);
  writeln(db.fam,' ', db.pol,' ', s,' ', db.zarp);
  readln;
  end;
2:writeln('Prosmotr');
3:writeln('Poisk');
4:Exit;
end;
until punkt=4;
end.

@~~MansMI~~ · 20.04.2013, 08:33

КатяБ, забудьте оператор goto, девушки не должны знать таких слов, а уж тем более употреблять, а текст красится textcolor

@Puporev · 20.04.2013, 08:41

Сообщение от MansMI

забудьте оператор goto

Думаю совсем забывать не стоит, просто применять там где это целесообразно, например при досрочном выходе из многих вложенных циклов.

@~~MansMI~~ · 20.04.2013, 08:49

при всём уважении, модератор, но это все-таки язык высокого уровня, а не ассемблер и джампы на мой взгляд тут не приемлемы

@Puporev · 20.04.2013, 09:04

В принципе дело вкуса, в Википедии пишут

Решений проблемы выхода из вложенных циклов несколько.
Простейший — использовать оператор безусловного перехода goto для выхода в точку программы, непосредственно следующую за вложенным циклом. Этот вариант критикуется сторонниками структурного программирования, как и все конструкции, требующие использования goto. Некоторые языки программирования, например, Модула-2, просто, не имеют оператора безусловного перехода, и в них подобная конструкция невозможна.
Альтернатива — использовать штатные средства завершения циклов, в случае необходимости устанавливая специальные флаги, требующие немедленного завершения обработки. Недостаток — усложнение кода, снижение производительности.

Лично я goto не пользуюсь, но иногда подмывает..

@КатяБ · 20.04.2013, 12:36 **[ТС]**

Извините за мой вопрос,а для чего нужно?

Сообщение от Puporev

until punkt in [1..4];

@Puporev · 20.04.2013, 13:17

Для того что бы разрешало только ввод 1..4, при вводе других заставит повторить.

@~~MansMI~~ Заблокирован
	20.04.2013, 08:33	3
	КатяБ, забудьте оператор goto, девушки не должны знать таких слов, а уж тем более употреблять, а текст красится textcolor 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.04.2013, 08:41	4
	Сообщение от MansMI забудьте оператор goto Думаю совсем забывать не стоит, просто применять там где это целесообразно, например при досрочном выходе из многих вложенных циклов. 0

@~~MansMI~~ Заблокирован
	20.04.2013, 08:49	5
	при всём уважении, модератор, но это все-таки язык высокого уровня, а не ассемблер и джампы на мой взгляд тут не приемлемы 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.04.2013, 09:04	6
	В принципе дело вкуса, в Википедии пишут Решений проблемы выхода из вложенных циклов несколько. Простейший — использовать оператор безусловного перехода goto для выхода в точку программы, непосредственно следующую за вложенным циклом. Этот вариант критикуется сторонниками структурного программирования, как и все конструкции, требующие использования goto. Некоторые языки программирования, например, Модула-2, просто, не имеют оператора безусловного перехода, и в них подобная конструкция невозможна. Альтернатива — использовать штатные средства завершения циклов, в случае необходимости устанавливая специальные флаги, требующие немедленного завершения обработки. Недостаток — усложнение кода, снижение производительности. Лично я goto не пользуюсь, но иногда подмывает.. 0

@КатяБ 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 76
	20.04.2013, 12:36 [ТС]	7
	Извините за мой вопрос,а для чего нужно? Сообщение от Puporev until punkt in [1..4]; 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.04.2013, 13:17	8
	Для того что бы разрешало только ввод 1..4, при вводе других заставит повторить. 1