Последовательность слов Опции

[garry_m]

Народ! Пожалуйста помогите решить задачу!

Дана непустая последовательность слов, составленных из цифр и латинских букв, разделенных произвольным числом пробелов. Написать процедуру, которая считывает слово из заданной последовательности и определяет, является ли оно синтаксически корретным идентификатором Паскаля.

[garry_m]

Ну это первая часть программы...
А что должно идти дальше?

Код

uses crt;
var
  txt:string;
  mat:array [1..31] of string;
  isc:string;
  sch,i,n:integer;
begin
  clrscr;
  {Naznachenije nachalnih parametrov}
  for i:=1 to 31 do mat[i]:='';
  i:=1;n:=0;mat[31]:='0';
  repeat
    writeln ('Naberite posledovatelnost iz slov,');
    writeln('ne previschajuschih 8-m simvolov, i ne bolee 50 slov.');
    writeln ('Ili nazhmite Enter dlja vvoda posledovatelnosti po umolchaniju');
    writeln ('(Sjesch eche  etih mjagkih francuzkih bulok, da vipej chaju.)');
    readln(txt);
    {Proverka na pustotu vvodimogo texta u okonchanije na tochku}
    if txt='' then txt:='Sjesch eche  etih mjagkih francuzkih bulok, da vipej chaju.';
    if pos('.',txt)=0 then writeln('Vi zabili postavit tochku.');
  until pos('.',txt)<>0;

{Udalenije cifr i simvolov podcherkivanija}



???




        
  write('Dlja prodolzhenija nazhmite ENTER...');
  readln;
end.

Или некорретно? Я просто не понимаю. Я же не спец в программировании.

Сообщение отредактировано: APAL - 14.12.2005 19:23