c. где Na, Nb, Nc, Nd, Ne, Nf - числа вхождений соответствующих букв.
var f: textfile;
ch: char;
s, tmp: string;
a: array ['a'..'f'] of integer;
n, i: integer;
ok: boolean;
begin
assignfile(f, 'f.txt');
reset(f);
for ch:= 'a' to 'f' do
a[ch]:= 0;
s:= '';
while not eof(f) do begin
read(f, ch);
s:= s + ch;
end;
n:= 0;
for i:= 1 to length(s) - 1 do
if (s[i] = 'a') and (s[i + 1] = 'b') then
n:= n + 1;
ok:= false;
for i:= 1 to length(s) - 7 do
if (s[i] = 'a') and
(s[i + 1] = 'b') and
(s[i + 2] = 'c') and
(s[i + 3] = 'd') and
(s[i + 4] = 'e') and
(s[i + 5] = 'f') and
(s[i + 6] = 'g') and
(s[i + 7] = 'h') then
ok:= true;
for i:= 1 to length(s) do
if s[i] in ['a'..'f'] then
a[s[i]]:= a[s[i]] + 1;
label1.Caption:= 'a) "ab" - ' + inttostr(n);
if ok then
label2.Caption:= 'b) "abcdefgh" - vhodit'
else
label2.Caption:= 'b) "abcdefgh" - ne vhodit';
label3.Caption:= '';
for ch:= 'a' to 'f' do
label3.Caption:= label3.Caption + ch + ' --> ' + inttostr(a[ch]) + ' ';
closefile(f);
end;
end.
- Вывести номер предпоследнего положительного элемента.
var i, n, x: integer;
a: array [1..20] of integer;
begin
randomize;
for i:= 1 to 20 do begin
a[i]:= random(100) - 50;
end;
write(a[i], ' ');
writeln;
n:= 0;
for i:= 20 downto 1 do begin
if a[i] > 0 then begin
n:= n + 1;
if n = 2 then
x:= i;
end;
end;
write(a[x]);
end.
- Дан текстовый файл f. Записать в файл g компоненты файла f в обратном порядке.
procedure TForm1.Button1Click(Sender: TObject);
var f, g: textfile;
ch: char;
s: string;
i: integer;
begin
assignfile(f, 'f.txt');
assignfile(g, 'g.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
read(f, ch);
s:= s + ch;
end;
for i:= length(s) downto 1 do
write(g, s[i]);
closefile(f);
closefile(g);
end;
end.
- Найти произведение второго и четвертого элементов, значение которых больше, чем 3.
Uses crt;
var a:array[1..9] of integer;
i:integer;
begin
for i:=1 to 9 do begin
a[i]:=random;
end;
if (a[4]>3) and (a[2]>3) then writeln((a[4])*(a[2]));
readln;
end.
- Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h
|
|
var f1,f2:text;
s1,s2,h:string;
begin
assign(f1,'f1.txt');
reset(f1);
readln(f1,s1);
close(f1);
assign(f2,'f2.txt');
reset(f2);
readln(f2,s2);
close(f2);
h:=s1;
s1:=s2;
s2:=h;
assign(f1,'f1.txt');
rewrite(f1);
write(f1,s1);
close(f1);
assign(f2,'f2.txt');
rewrite(f2);
write(f2,s2);
close(f2);
end.
Дата добавления: 2015-12-17; просмотров: 26; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!