Объединенный архив форумов UniverClub и StudLife (2006-2010). Поддерживает: Леонид Шевцов.

TurboPascal

3066
Если возможно, помогите пожалуйста написать програмку в паскале для обработки текстовых данных(например для string используются функции length,delete,insert, copy, pos и тд).

Задание: Определить символы с минимальным и максимальным кодами, а также количество их вхождений в наданый текст.

Заранее благодарна;)
67
program q;
uses crt;
var s, s1, mincode, maxcode : String;
minkol, maxkol, i : Integer;
BEGIN
clrscr;
writeln('Enter string:');
readln(s);
maxcode:=copy(s,0,1);
mincode:=copy(s,0,1);
maxkol:=1;
minkol:=1;
for i:=1 to length(s) do
begin
s1:=copy(s,i,1);
if s1=maxcode then
inc(maxkol);
if s1>maxcode then
begin
maxcode:=s1;
maxkol:=1;
end;
if s1=mincode then
inc(minkol);
if s1<mincode then
begin
mincode:=s1;
minkol:=1;
end;
end;
writeln('Symbol with minimal code is "',mincode,'". It appears ',minkol,' times&apos;);
writeln('Symbol with maximal code is "',maxcode,'". It appears ',maxkol,' times&apos;);
readln;
END.



пожулуйста:)
если чего непонятно будет, пиши сюда
но вроде должно быть все ок:)