Меню сайта

Задача №3

— — -В файле Р1 набрать текст.

1) — — — -Сообщить сколькораз встречаются в тексте каждая латинская буква и каждый знак арифметическойоперации.

2) — — — -Вывести всесимволы, встречающиеся в тексте и вывести все символы, встречающиеся в первой ипоследней строке.

3) Результат вывести в файл Р2


1)
uses crt-
var
— -c,i,j: char-
— -znaki: set of ‘a’..’z’-
— — prep: set of ‘!’..’?’-
— — — -f:text-
BEGIN
clrscr-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
assign(f,’c:&#92-tpascal.71&#92-bin&#92-pas&#92-p1.txt’)-
reset(f)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(10)-
writeln(‘press line’)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
znaki:=[]-
prep:=[]-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
repeat
— read(f,c)-
— if
— — — c in [‘a’..’z’]
— then
— — — znaki:=znaki+[c]
— else
— if
— — — c in[‘!’,’.’,’,’,’/’,’*’,’-‘,’+’,’=’,’-‘,’_’,’&#92-‘,’|’,’/’,’-‘,’:’,’?’]
— — — — — — — — — — — — — — — — — — — — — — — — — — {armagedon}
— then
— — — prep:=prep+[c]-
until eof(f)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
close(f)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(2)-
writeln(‘latin»s bykvi’)-
for i:=’a’ to ‘z’ do
— if i in -znaki then write(i:2)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
writeln-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
textcolor(5)-
writeln(‘znaki prepinanija’)-
for j:=’!’ to ‘?’ do
— if j in prep then write(j:2)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
readkey-
readkey-
END.


2)
uses crt-
var
pol -, t,k,qw:integer-
q,c,i,j,s: char-
— — latin: set of ‘a’..’z’-
— — -prep: set of ‘!’..’?’-
— — — rys: set of ‘ ‘..’п’-
— — — — f: text-
— — — — p: file of byte-
— — — -ch: string-
BEGIN
clrscr-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
assign(f,’c:&#92-p1.txt’)-{Ї&reg-¬Ґ­пвм Їгвм Є нв&reg-¬г д &copy-«г}
assign(p,’c:&#92-p1.txt’)-{Ї&reg-¬Ґ­пвм Їгвм Є нв&reg-¬г д &copy-«г}
reset(f)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
latin:=[]-
prep:=[]-
rys:=[]-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
repeat
— read(f,c)-
— if
— — — c in [‘a’..’z’]
— then
— — — latin:=latin+[c]
— else
— if
— — — c in[‘!’,’.’,’,’,’/’,’*’,’-‘,’+’,’=’,’-‘,’_’,’&#92-‘,’|’,’/’,’-‘,’:’,’?’]
— then
— — — prep:=prep+[c]
— else
— if
— — — c in [‘ ‘..’п’]
— then
— — — rys:=rys+[c]-
until eof(f)-
close(f)-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
writeln(‘***************************** « вЁ­бЄЁҐ ЎгЄўл *********************************’)-
writeln-
for i:=’a’ to ‘z’ do
— if i in latin then write(i:2)-
writeln-
writeln-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
writeln(‘**************************** §­ ЄЁ ЇаҐЇЁ­ ­Ёп *********************************’)-
writeln-
for j:=’!’ to ‘?’ do
— if j in prep then write(j:2)-
writeln-
writeln-
{-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+}
writeln(‘***************************** агббЄЁҐ ЎгЄўл ***********************************’)-
writeln-
for q:=’ ‘ to ‘п’ do
— if q in rys then write(q:2)-
writeln-

3)
uses crt-
label 3-
var a:array [1..150] of string-
— — b:array [1..15] of char-
— — x:char-
— — w:text-
f,y,max,min:string[30]-
j,r,q,t,max1,s,i,k,m:byte-
begin
clrscr-
assign(w,’c:&#92-a1′)-
reset(w)-
k:=0-s:=0-t:=0-
i:=1-
while not eof(w) do begin
— — — — — — — — — — read(w,x)-
— — — — — — — — — — delete(y,1,length(y))-
— — — — — — — — — — — — repeat
— — — — — — — — — — — — y:=y+x-
— — — — — — — — — — — — read(w,x)-
— — — — — — — — — — — — if x=#26 then goto 3-
— — — — — — — — — — — — until (x=’ ‘) or (x=’.’) or (x=’-‘) —
— — — — — — — — — — -a[i]:=y-
— — — — — — — — — — -inc(i)-
— — — — — — — — — — -inc(k)-
— — — — — — — — — — -end-< /font>

— — — — — — — — — — — — — — — — — — — — — -writeln-
— — — — — — — — — — — — — — — — — — — — — — — writeln-
3:
m:=Length(a[1])-
for i:=2 to k do
— — if (Length(a[i])&lt-m) and (a[i]&lt-&gt-‘.’) and (a[i]&lt-&gt-‘ ‘)then
— — begin
— — — — m:=Length(a[i])-
— — — — min:=a[i]-
— — end
— — else
— — min:=a[1]-
writeln-
writeln(min,’&lt— min’)-
writeln-
— m:=Length(a[i])-
— for i:=2 to k do
— — -if (m&lt-Length(a[i])) and (a[i]&lt-&gt-‘.’) and (a[i]&lt-&gt-‘ ‘)then
— — -begin
— — — — -m:=Length(a[i])-
— — — — -max:=a[i]-
— — -end-
— -writeln(max,’&lt— max’)-
readln-
end.
Категория: Файлы | Дата: 21.11.12

Меню раздела
Блок