Цитата:
Сообщение от Skuttbin
Скорей всего все таки в графическом
|
Во черт, а я таки в текстовом ухитрился соорудить! Гляньте, может быть, подойдёт.
Но! Внимание! Предупреждаю сразу: НИКАКОЙ КИРИЛЛИЦЫ! Заморачиваться с разными кодировками, извините, не буду. Посему и слово вводить латиницей, и на экране будет "Hello!", а не "Привет". Уж извините. У меня DOS, у Вас наверняка Windows версии Паскаля, кодировки там разные, в общем, ну их!
Код:
Uses CRT;
Var
S:String;
Na,No,i,j:Byte;
Begin
NormVideo;
ClrScr;
Write('Enter the word: ');
Readln(S);
Na:=0;
No:=0;
For i:=1 to Length(S) do
begin
if S[i]='a' then Inc(Na);
if S[i]='o' then Inc(No);
end;
ClrScr;
TextBackground(2);
For i:=1 to 25 do
For j:=40 to 80 do
begin
GotoXY(j,i);
Write(' ');
end;
TextBackground(1);
For i:=1 to 25 do
For j:=1 to 40 do
begin
GotoXY(j,i);
Write(' ');
end;
If Na>No then
begin
TextBackground(0);
textcolor(14);
gotoXY(38,12);
write('Hello!');
end;
NormVideo;
ReadKey;
End.