Паскаль,СЕМАНТИЧЕСКИЙ КОНТРОЛЬ ВВОДА

[ROMA2PVT]

Приблизительно я знаю что это такое.Но не знаю как реализовать.Выложите пожалуйста примерчик с этим контролем ввода данных.

[psycho-coder]

Подробней опиши что тебе нужно, какой контроль (желательно пример)?
Что ты Сам подразумеваешь под этой фразой?

[ROMA2PVT]

Ну тоесть всё зависит от типа данных: например если задан переменной тип integer и тебе выдаётся сообщение введите количество => Вводим два или иное число в случае ввода буквы выдаётся сообщение что ввод не правильный введите заново и сново надо вводить.Ну я так понял.Вот мне какой нибудь такой пример нужен.Ато я не знаю как осуществить.А тупое списывание эт не дело.Хочется самому разобраться.

[psycho-coder]

Тогда, в цикле (до нажатия Enter) считываешь код нажатой клавиши и проверяешь код. Если число то выводишь (для наглядности) если нет, то выводишь сообщение.
ReadKey и KeyPressed смотри.

[ROMA2PVT]

Благодарю.Завтра попробую реализовать на практике.

[psycho-coder]

Ты хоть отпишись, что бы знать как там у тебя дела.

[ROMA2PVT]

Вот выкладываю промежуточный результат базы данных.С вашими поправками.И с моими доработками.
Это создание самого файла.

Program bd;
Uses
     CRT;
type
     Svedeniya=Record
     FIO:string[11];
     Data:String[10];
     Machi,Peredachi,NARUSH,Matchi:string[9];
    end;
    Var
    f:file of Svedeniya;
    Teh:array[1..100] of Svedeniya;
    Num,i,Sel,x,v,err,numer:integer;
Procedure Zapis;
          Begin
               writeln;
               writeln('                              <<<Запись файла>>> ');
               writeln;
               Assign(F,'C:\Learn\Language\Work\2pvt\2-grup\vasil\1.dat');
               rewrite(f);
               For i:=1 to Num do
               write(F,Teh[i]);
               Close(F);
               writeln('Файл был успешно создан, для выхода в меню нажмите <ENTER>');
               end;
Procedure Vvod;
          begin
               Clrscr;
                      writeln;
                         Write('                        <<<ВВОД ЗАПИСЕЙ>>> ');
                         writeln;
                         Write('Введите количество записей: ');
                         readln(num);
                         for i:=1 to Num do
                         begin
                         writeln;
                         writeln('Запись',i,'-я');
                         With Teh[i] do
                         begin
                         repeat
                         Write('Введите ФИО игрока: ');
                         readln(FIO);
                         val(FIO,v,err);
                         if v<>0 then
                         writeln('Неверно!Повторите ввод:');
                         Until v=0;
                         repeat
                         Write('Введите дату рождения игрока: ');
                         readln(data);
                         val(Data,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите число забитых мячей: ');
                         readln(Machi);
                         val(Machi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите кол-во передач: ');
                         readln(Peredachi);
                         val(Peredachi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Количество нарушений: ');
                         readln(NARUSH);
                         val(NARUSH,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите число забитых мячей: ');
                         readln(Matchi);
                         val(Matchi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
         end;
       end;
    Zapis;
    Readkey;
  End;
                               procedure Menu;
                         begin
                         textcolor(3);
                         repeat
                         clrscr;
                         writeln;
                         Writeln('                ???????????????????????????????????????????????????');
                         writeln('                ?               <<<МЕНЮ ПРОГРАММЫ>>>              ?');
                         writeln('                ?      -------------------------------------      ?');
                         writeln('                ?            1. Ввод записей в файл.              ?');
                         writeln('                ?            0. Выход из программы.               ?');
                         writeln('                ?      -------------------------------------      ?');
                         Writeln('                ???????????????????????????????????????????????????');
                         write('                                    Ваш выбор >>> ');
                         {$I-}
                         Readln(sel);
                         {$I+}
                         if (ioresult<>0) then
                         begin
                         END
                         Else
                         case Sel of
                           1: Vvod;
                           0: Halt;
                           end;
             until False;
end;
begin
textcolor(4);
Menu;
end.

[ROMA2PVT]

А это вторая часть.

Рsycho-coder и другие опытные программисты выскажите все свои за и против по поводу работы.СПАСИБО ВСЕМ КТО ПОМОГ.

[psycho-coder]

Обязательно посмотрю, но позже. Сейчас времени нет.

[ROMA2PVT]

Окей.Заранее благодарен.Так как хочу научиться оптимизировать программный код.