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

@Geor001 · Регистрация: 26.01.2014

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

Текст программы на Паскале хранится в файле на диске. Разработать программу, определяющую и выводящую на экран операторы, которые изменяют значения заданных переменных (их имена вводятся) и номера строк программы, где они находятся.

Добавлено через 37 секунд

Pascal

program Geor001;
{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;
const oper:set of char=['+','-','*','/','='];
var f:text;
    i,n,k,ko:integer;
     str,s,a,b,c:string;
begin
SetConsoleCp(1251);
SetConsoleOutputCp(1251);
assign(f,'file1.txt');
reset(f);
write('Введите переменную a,b,c:');
readln(a,b,c);
n:=0;
while not eof(f) do
   begin
      k:=0;
      ko:=0;
      readln(f,str); inc(n);
      if (pos(a,str)>0) or (pos(b,str)>0) or (pos(c,str)>0) then inc(k);
      for i:=1 to length(str) do
          if str[i] in oper then inc(ko);
      if (k<>0) and (ko<>0) then writeln('Строка № ',n,' содержит оператор:',str);
   end;
close(f);
readln;
end.

	28.01.2014, 19:42