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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х з)
 
(не показано 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.
 

Текущая версия на 10:55, 13 мая 2009

                                                                ДО


Глаза.jpeg



                                                              ПОСЛЕ

Monday 6.jpg