сделайте кто нить

[krolik_21]

надо блог-схемы сделать к этим задачам

1) program file;
uses wincrt;
type fil=file of integer;
var f1,f2,f3:fil;
a,s,i,d,w:integer;
f01,f02:boolean;

procedure soz_fail1(var f1:fil);
begin
writeln('Kol-vo chisel v faile 1 ');
readln(s);
assign(f1,'fil1.dat');
rewrite(f1);
for i:=1 to s do
begin
{write('Vvedite ',i,' chislo - ');
readln(a);}
a:=random(21)-10;
write(f1,a);
end;
close(f1)
end;
procedure prosmotr (var f1:fil);
begin
assign(f1,'fil1.dat');
reset(f1);
while not eof(f1) do
begin
read(f1,a);
write(a,' ');
end;
writeln;
close(f1);
end;

procedure soz_f1_f2 ( var f1,f2,f3:fil; var f01,f02:boolean);
begin
assign(f1,'fil1.dat');
reset(f1);
assign(f2,'fil2.dat');
rewrite(f2);
assign(f3,'fil3.dat');
rewrite(f3);
f01:=false;
f02:=false;
while not eof(f1) do
begin
read(f1,a);
if a>0 then begin write(f2,a); f01:=true end
else begin write(f3,a); f02:=true end;
end;
close(f1);
close(f2);
close(f3);
end;

procedure prosm_f1_f2 (var f1,f2:fil; f01,f02:boolean);
begin
assign(f2,'fil2.dat');
reset(f2);
assign(f3,'fil3.dat');
reset(f3);
if f01 then
while not eof(f2) do
begin
read(f2,a);
write(a,' ')
end
else writeln('Fail s pol chislami pysto!');
writeln;
if f02 then
while not eof(f3) do
begin
read(f3,a);
write(a,' ')
end
else writeln('Fail s otric chislami pysto!');
close(f2);
close(f3);
writeln;
end;

Begin
w:=10;
while w<>0 do
begin
writeln('1-Создание 1 файла');
writeln('2-Просмотр 1 файла');
writeln('3-Создание 1 и 2 файла u Просмотр 1 и 2 файл ');
writeln('0-Выход');
write('Ваш выбор- ');
readln(w);
case w of
1:soz_fail1(f1);
2: prosmotr(f1);
3:begin soz_f1_f2 (f1,f2,f3,f01,f02);prosm_f1_f2 (f1,f2,f01,f02); end;
end;
end;
end.

2) program olo;
uses wincrt;
const n=10;
var d:text;
s,t:string;
i,b:integer;
procedure wwod(var d:text );
var kol_str,i:byte;
begin
assign(d,'text1.txt');
rewrite(d);
writeln('Число вводимых строк:');
readln(kol_str);
for i:=1 to kol_str do
begin
writeln ('Введите ',i,' строку исходного текста:');
readln(s);
s:=s+' ';
writeln(d,s);
end;
close(d);
end;
begin
wwod(d);
assign (d,'text1.txt');
reset(d);
write('Введите искомое слово: ');
readln(s);
b := 0;
while not EOF(d) do
begin
readln(d,t);
i:=1;
repeat
i := pos(s,copy(t,i,length(t)-i+1));
if i > 0 then begin
inc(b);
i:=i+length(s)+1;
end;
until (i = 0) or (i > length(t));
end;
close(d);
if b = 0 then
writeln('Слово ',s,' в указанный текст не входит')
else
writeln('Слово: ',s,' Входит: ',b,' раз');
readln;
close(d);
end.

[BDA]

FCEditor Вам в помощь.