|
|
| (не показано 15 промежуточных версий 4 участников) |
| Строка 1: |
Строка 1: |
| − | антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов
| + | '''ДО''' |
| | | | |
| − | == by Black Bull ==
| |
| | | | |
| − | uses crt;
| + | [[Изображение:Глаза.jpeg]] |
| − | 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;
| + | [[Изображение:monday_6.jpg]] |
| − | 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.
| |
