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

[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

[Gamlet]

Здравствуйте люди добрые. У меня пимерно такая же задача (которую я не могу ни каким макаром решить так как преподы ( будь они не ладны) нам не чего не объясняют) как и та которую здесь рассматривали. Вот она:

Написать приложение Windows, в котором:
1) Создать главное окно. Заголовок содержит ФИО, гр., вар.
2) Создать меню вида: Begin Work Help About
│Input│
3) При выборе Input открывается диалоговое окно вида:
----------------------------------------------------------------------------------------------
┌─────────────────┐ ┌───┐
│ 1 │ input word │ 2 │upper case
└─────────────────┘ └───┘

┌──────┐ ┌───┐
│ Yes │ │ 3 │lower case
└──────┘ └───┘

-----------------------------------------------------------------------------------------------
где 1 - окно-редактор типа TEdit;
2,3 - группа кнопок типа TRadioGroup
Yes - кнопка типа TBitBtn
4) Обеспечивается возможность ввода слова и выбора режима пере-
вода в верхний или нижний регистр с помощью кнопок 2,3.
5) При выборе Work открывается диалоговое окно с результом
перевода.

Ну вот такая задача. Ну с первыми тремя пунктами методом тыка я справился, а вот с 4 и 5 пунктами возникли проблемы ( даже не проблемы, я их вообще реализовать не могу). Если кто сможет то сделайте одолжение бедному студенту и напишите прогу.

[Lapp]

У меня пимерно такая же задача

!

Gamlet, не задавай свои вопросы в чужие темы! Обязательно прочти Правила форума (ссылка вверху) и создай новую тему в подходящем разделе. Считай это первым устным предупреждением

Твоя задача, кстати, совсем не похожа на то, что тут разбиралось. Она требует Delphi или чего-то еще в этом роде. Узнай, на чем ее надо решать сначала..