Программирование на языке Pascal
В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Вывести на экран те строки программы, которые содержат хотя бы одно слово Begin.
Program Begin;
var
F: Text;
str: string;
Begin
Assign(F,’D:\pascal\Test.txt’);
Reset(F);
b:=false;
While not eof(f) do
Begin
Readln(f,str);
if pos(’BEGIN’,UpperCase(str))>0 then writeln(str);
end;
close(f);
End.
В текстовом файле находится программа на языке Паскаль, которая написана без ошибок. Узнать, есть ли в программе оператор присваивания. Если таких операторов несколько, вывести первую строку, которая содержит этот оператор.
Program prisvaivanie;
var
F: Text;
str,tstr: string;
b:boolean;
Begin
Assign(F,’D:\pascal\Test.txt’);
Reset(F);
tstr:=”;
b:=false;
While not eof(f) do
Begin
Readln(f,str);
if pos(’:=’,str)>0 then {нашли}
if tstr=” then tstr:=str else b:=true;
end;
if not (tstr=”) then write(’Est’);
if b then Write(tstr);
close(f);
End.