1 Востаннє редагувалося Nicholas_Stinger (29.03.2014 23:44:33)

Тема: Українські літери в Delphi 7

Привіт, програма не працює правильно, підскажіть будь ласка як зробити так, щоб на екран виводились українські літери і вони підраховувались правильно?
Ввести з клавiатури текст обсягом до 255 символiв українською мовою. Знайти кiлькiсть голосних лiтер у заданому текстi. Результати надрукувати у виглядi таблицi.

2

Re: Українські літери в Delphi 7

А програма сама де?

I belong to the Dead Generation.

3 Востаннє редагувалося Torbins (30.03.2014 00:08:53)

Re: Українські літери в Delphi 7

не можу прикріпити програму

program p2;
{$APPTYPE CONSOLE}
var s:string;
i,kh,ka,ke,kye,ku,ki,kyi,ko,ky,kyu,kya:integer;
begin
write('Vvedit tekst');
Readln(s);
for i:=1 to length(s) do
case s[i] of
'а','А' : ka:=ka+1;
'е','Е' : ke:=ke+1;
'є','Є' : kye:=kye+1;
'и','И' : ku:=ku+1;
'і','І' : ki:=ki+1;
'ї','Ї' : kyi:=kyi+1;
'о','О' : ko:=ko+1;
'у','У' : ky:=ky+1;
'ю','Ю' : kyu:=kyu+1;
'я','Я' : kya:=kya+1;
end;
kh:=ka+ke+kye+ku+ki+kyi+ko+ky+kyu+kya;
Writeln('kh=',kh);
Writeln('________');
Writeln('|а,А|',ka:2,'|');
Writeln('|е,Е|',ke:2,'|');
Writeln('|є,Є|',kye:2,'|');
Writeln('|и,И|',ku:2,'|');
Writeln('|і,І|',ki:2,'|');
Writeln('|ї,Ї|',kyi:2,'|');
Writeln('|о,О|',ko:2,'|');
Writeln('|у,У|',ky:2,'|');
Writeln('|ю,Ю|',kyu:2,'|');
Writeln('|я,Я|',kya:2,'|');
Writeln('|к г|',kh:2,'|');
Writeln('________');
Readln;
end.
Post's attachments

Документ Microsoft Office Word.docx 11.09 kb, 220 downloads since 2014-03-29 

4

Re: Українські літери в Delphi 7

Nicholas_Stinger
Вставив у ваше попереднє повідомлення код вашої програми.

5

Re: Українські літери в Delphi 7

Nicholas_Stinger
А тепер щодо самої програми: це у вас консольний додаток, а кодування за замовчуванням віндової консолі - 866. Це кодування не має української літери "і". Шрифт за замовчуванням також не містить української літери "і".
Тому перш ніж запустити вашу програму вам треба клацнути правою кнопкою миші по заголовку консолі, і в її властивостях змінити шрифт. Далі треба виконати команду "chcp 1251", і тільки після цього можна буде запустити вашу програму. Таким чином запуск прямо з делфі, натисканням кнопки Run буде неможливий.

Подякували: koala, Nicholas_Stinger2

6

Re: Українські літери в Delphi 7

Torbins написав:

Nicholas_StingerШрифт за замовчуванням також не містить української літери "і".
Тому перш ніж запустити вашу програму вам треба клацнути правою кнопкою миші по заголовку консолі, і в її властивостях змінити шрифт. Далі треба виконати команду "chcp 1251", і тільки після цього можна буде запустити вашу програму. Таким чином запуск прямо з делфі, натисканням кнопки Run буде неможливий.

А якщо дуже захочеться прямо з Делфі запускати, то можна наваяти функцію транслювання кирилиці у дос866 і підставляти усюди, де треба виводити на екран текст. Але те загалом не рекомендація, а просто альтернатива. ;)

I belong to the Dead Generation.

7

Re: Українські літери в Delphi 7

Bartash
Проблему української літери "і" це ніяк не вирішить. Хіба що при виводі тексту можна заміняти її англійською "i".

8

Re: Українські літери в Delphi 7

Torbins написав:

Bartash
Проблему української літери "і" це ніяк не вирішить. Хіба що при виводі тексту можна заміняти її англійською "i".

У розширеній ascii-таблиці вона була десь біля 250 символу.

I belong to the Dead Generation.

9

Re: Українські літери в Delphi 7

Не було в стандарті. Є кілька варіантів, де вона "біля 250 символу", але вони непереносні.

Подякували: Torbins1