такая задача : 1,Для каждого символа заданного текста указать его относительную частоту появления в тексте. 2,Построить соответствующую диаграмму. Сообщение об одном символе должно печататься не более одного раза.
вот первая часть:
Код
uses
CRT;
var
t: text; s: string;
a: array [0..255] of integer;
h, k, i:integer;
BEGIN
clrscr;
assign (t, 'int.pas');
reset (t);
while not (eof (t)) do begin
readln (t, s);
inc(k); {строки}
for i := 1 to length (s) do begin
inc(k);{сколько в строке}
s[i] := lowercase(s[i]); {заглавные в строчные}
inc (a[ord (s[i])]);
if s[i] in ['a'..'z'] then inc(h);{общее кол-во букв}
end;
end;
for i := 65 to 255 do
if (a[i] <> 0) then
writeln (chr(i), ' - ','частота*-',( a[i]/h):3:3,', встречается раз -',a[i],' ','всего символов(букв)',h);
close (t);
readln;
END.
нужно использовать Graph, с ним темный лес. Прошу посмотреть программу и если появяться идеи поделиться