Обсуждение:Вычислительные машины, комплексы, системы и сети

антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов

by Black Bull

uses crt; var s:string; s1:string[1]; l,k,j,i:integer; begin writeln('vvedite text'); readln(s); l:=length(s); writeln('vvedite simvol'); readln(s1); for i:=1 to l do if s1=s[i] then begin j:=l-i+1; delete(s,i+1,j); break end; writeln(s); writeln; writeln('programm has made by Black Bull'); readln; end.

by Black Bull for chinich neprav

uses crt; const n=3; type pass=record fio:string[10]; adres:string[10]; tel:integer; end; var g:pass; i,z:integer; s:string[10]; f:file of pass; begin assign(f,'d:\file1.txt'); rewrite(f); for i:=1 to n do with g do begin writeln ('vvedite FIO hitila'); readln(fio); writeln('adres'); readln(adres); writeln('telefon: yes-1 no-2'); readln(tel); end; close(f); assign(f,'d:\file1.txt'); reset(f); seek(f,0); writeln('vvedite adress dla proverki'); readln(s); z:=0; while not (eof(f)) do begin read (f,g);

    with g do
     if (s=adres) and (tel=1) then begin z:=z+1; writeln('vbgfb'); end;

end; close(f); writeln('kol-vo tel ',z); readln; end.

for Cninich -создаёт файл

uses crt; const n=3; type pass=record fio:string[10]; adres:string[10]; tel:integer; end; var g:pass; i,z:integer; s:string[10]; f:file of pass; begin clrscr; assign(f,'d:\file1.txt'); rewrite(f); for i:=1 to n do with g do begin writeln ('vvedite FIO hitila'); readln(fio); writeln('adres'); readln(adres); writeln('telefon: yes-1 no-2'); readln(tel); end; write(f,g); close(f); {assign(f,'d:\file1.txt'); reset(f); seek(f,0); writeln('vvedite adress dla proverki'); readln(s); z:=0; while not (eof(f)) do begin read (f,g);

    with g do
     if (s=adres) and (tel=1) then begin z:=z+1; writeln('vbgfb'); end;

end; close(f); writeln('kol-vo tel ',z); readln;} end.