Дан текстовый файл. Напечатать в алфавитном порядке все слова из данного файла,...

September 2021 1 20 Report

Дан текстовый файл. Напечатать в алфавитном порядке все
слова из данного файла, имеющие заданную длину n. Паскаль

Answers & Comments

allangarsk Const nx=100;
var T:text; M:array[1..nx] of string; s,d:string;ch:char;
var i,p,j:integer;
begin
assign(T,'D:\1t\sip.txt');reset(T);
while not eof(T) do begin
Readln(T,s);p:=1;
While p>0 do begin
i:= i +1;p:=pos(' ',s);if p>0 then M[i]:=copy(s,1,p-1)else M[i]:=s; delete(s,1,p);
//writeln(M[i]);
end;end;close(T);
for ch:='А' to 'Я' do begin
for j:=1 to i do begin
if (m[j].Length >0) and (ch = uppercase(copy(m[j],1,1))) then begin //write(ch);
writeln(M[j]); M[j]:=''; end;end;end;end.

2 votes Thanks 2

Answers & Comments

podstroka var temp strsplitwherei gt icontainspodstr consolewrit

dana stroka podschitat samuyu dlinnuyu posledovatelnost podryad idushih bukv apr

visual basicnapishite programmuvychislyayushuyu po izvestnym znacheniyam domauskoreni

sortirovka elementov pervogo stolbca s pomoshyu pryamogo obmenaprogramma paskal

sortirovka polozhitelnyh elementov metodom pryamogo vybora programmapaskal

izobrazit na ekrane evm sleduyushij risunok postroenie graficheskih izobrazhenij v

1absxy writelnzz end kakuyu podprogrammy proceduru mozhno sdelat

dlya uchastiya v studencheskih sportivnyh sorevnovaniyah vydeleno iz pervoj gruppy 5

dana posledovatelnost celyh chisel zamechanie zadachi iz dannogo punkta reshit

perepishite programmu pod pascal using system namespace consoleapplication cla

рекомендуемые вопросы

Helpful Links

Helpful Social