wiki.nntc.nnov.ru - Вклад участника [ru]

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

2008-07-04T06:01:29Z

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

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

Обсуждение участника:212.92.181.72

2008-07-03T06:22:04Z

192.168.159.13: Новая: i

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

2008-07-03T05:44:23Z

192.168.159.13: задание by chinich

== задание by chinich ==

By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина

Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов

2008-06-30T05:24:55Z

192.168.159.13: Новая: program projekt1; {$APPTYPE CONSOLE} uses SysUtils,uCRT; const m=5;n=6; var A:array[1..m,1..n] of integer;i,j:integer;f:text; S:array[1..n] of real; begin for i:=1 to m do begin for ...

program projekt1;

{$APPTYPE CONSOLE}

uses
SysUtils,uCRT;
const m=5;n=6;
var A:array[1..m,1..n] of integer;i,j:integer;f:text;
S:array[1..n] of real;
begin
for i:=1 to m do begin
for j:=1 to n do begin
randomize;
a[i,j]:=random(100);
write(a[i,j],' ');
s[j]:=
end;
writeln;
end;
assign(f,'File.txt');
rewrite(f);
for i:=1 to m do begin
for j:=1 to n do begin
write(f,a[i,j],' ');
end;
writeln(f);
writeln(f,sr:4:2);
end;
close(f);
readln;
end.

Пряник

2008-05-31T09:31:43Z

192.168.159.13: Новая: Ты удот пидурок и ботанек шоб тебя Колобок сожрал!!!!!!!!!!!!!!! |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| StR

Ты удот пидурок и ботанек шоб тебя Колобок сожрал!!!!!!!!!!!!!!!
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
StR