Нетипизированные файлы. Проверить текст на равное количество операторных скобок

@maximuss · Регистрация: 24.04.2012

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

Нетипизированые файлы...
2.Заданный текствий файл содержащий программу на языке Паскаль. Проверить текст на равное количество опеарорних скобок begin end, считая, что каждый оператор в программе занимает не более одной строки F
_______________________________________________________________________

Ребят, очень нужна ваша помощь, как проффесионалов...Впервые пишу к вам на форум, в надежде на помощь... Просто так, не писал бы сюда..Огромное человеческое спасибо за понимание....
И еще, одна маленькая просьба...Не могли бы делать максимально просто, что бы в одиночку самостоятельно можно было разобрать и понять суть задач...Буду безгранично благодарен

@CodeR · 13.05.2012, 08:52

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

Нетипизированые файлы...
2.Заданный текствий файл содержащий программу на языке Паскаль. Проверить текст на равное количество опеарорних скобок begin end, считая, что каждый оператор в программе занимает не более одной строки F

Pascal

Var f:text;
    j,k:integer;
    s:string;
Begin
    Assign(f,'q.txt');Reset(f);
    j:=0;k:=0;
    While not Eof(f) do
     Begin
      Readln(f,s);
      if (Pos('Begin',s)<>0)or(Pos('begin',s)<>0) then inc(j);
      if (Pos('End;',s)<>0)or(Pos('end;',s)<>0)or(Pos('End.',s)<>0)
       or(Pos('end.',s)<>0) then inc(k);
     End;
    if j=k then writeln('Операторных скобок равное количество ') else
     writeln('Операторных скобок не равное кол-во ','Begin=',j,' End=',k);
    readln;
End.

@maximuss · 13.05.2012, 10:31 **[ТС]**

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

Pascal

Var f:text;
    j,k:integer;
    s:string;
Begin
    Assign(f,'q.txt');Reset(f);
    j:=0;k:=0;
    While not Eof(f) do
     Begin
      Readln(f,s);
      if (Pos('Begin',s)<>0)or(Pos('begin',s)<>0) then inc(j);
      if (Pos('End;',s)<>0)or(Pos('end;',s)<>0)or(Pos('End.',s)<>0)
       or(Pos('end.',s)<>0) then inc(k);
     End;
    if j=k then writeln('Операторных скобок равное количество ') else
     writeln('Операторных скобок не равное кол-во ','Begin=',j,' End=',k);
    readln;
End.

Спасибо огромное, эта работает

Добавлено через 15 минут
Если можно, хотелось бы еще листинг первой задачки

@maximuss 0 / 0 / 1 Регистрация: 24.04.2012 Сообщений: 148
		1
	Нетипизированные файлы. Проверить текст на равное количество операторных скобок 13.05.2012, 00:21. Показов 1531. Ответов 2 Метки нет (Все метки) Нетипизированые файлы... 2.Заданный текствий файл содержащий программу на языке Паскаль. Проверить текст на равное количество опеарорних скобок begin end, считая, что каждый оператор в программе занимает не более одной строки F _______________________________________________________________________ Ребят, очень нужна ваша помощь, как проффесионалов...Впервые пишу к вам на форум, в надежде на помощь... Просто так, не писал бы сюда..Огромное человеческое спасибо за понимание.... И еще, одна маленькая просьба...Не могли бы делать максимально просто, что бы в одиночку самостоятельно можно было разобрать и понять суть задач...Буду безгранично благодарен 0

	13.05.2012, 10:31

Нетипизированные файлы. Проверить текст на равное количество операторных скобок

Решение