строки, нужна проверка Опции

[Athen]

Задача: дан текст из строчных русских букв, за которым следует точка. Напечатать этот текст заглавными русскими буквами.

Сделала прогу, но почему-то после буквы "п" начинает писать иероглифы... по таблице ASCII проверяла, не могу понять в чем дело. Проверьте плиз!

Program zad2;
Uses crt;
Var a:string; b,s:char; t,k,i:integer;
Begin
Clrscr;
writeln('Vvedite text iz strochnux bykv');
readln(a);
k:=length(a);
if a[k]='.' then begin
for i:=1 to k-1 do begin
s:=a[i];
t:=ord(a[i]);
if t<=239 then t:=t-32 else t:=t-80;
a[i]:=chr(t); end;
writeln(a);
end else writeln('Vu zabuli postavit tochky');
readln;
End.

М

Про использование тегов не забываем... мисс_граффити

Сообщение отредактировано: мисс_граффити - 4.04.2007 18:05

[мисс_граффити]

А как ты считаешь? В массиве?
То есть создаешь массив количеств?
Выложи код, в общем...

[Athen]

А как ты считаешь? В массиве?
То есть создаешь массив количеств?
Выложи код, в общем...

А нет... подсчет тож не катит выдает ваще не то число....
Вот что я сделала:

Program zadacha3;
Uses crt;
Var a:string; c,n,max,i,k:integer; b,m:char;
Begin
Clrscr; c:=0;
writeln('Vvedite text iz cifr');
readln(a);
k:=length(a);
if a[k]='.' then begin
for i:=1 to k-1 do
for n:=1 to k-1 do begin
if a[i]=a[i-n] then begin
b:=a[i]; end;
writeln('naibolee chasto vstrechauwayasya cifra=',b);end
else writeln('Vu zabuli postavit tochky');
readln;
End.

Но число выводит не правильно... считает только последние цифры... как сделать лучше еще не придумала...

Сообщение отредактировано: Athen - 7.04.2007 14:59