Обсуждение:Вычислительные машины, комплексы, системы и сети: различия между версиями
(by Black Bull) |
(by Black Bull for chinich neprav) |
||
| Строка 20: | Строка 20: | ||
writeln; | writeln; | ||
writeln('programm has made by Black Bull'); | 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; | readln; | ||
end. | end. | ||
Версия 09:33, 3 июля 2008
задание by chinich
By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина
By chernov:создать процедуру удаляющую текст в файле после заданного символа
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.
