Технический форум - Помощь в написании программы по TURBO PASCAL

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Помощь в написании программы по TURBO PASCAL

Привет всем. Помогите пожалуйста в написании программы, просто я даже не представляю как это вообще сделать. За ранние спасибо.

Заполнить левую половину экрана синим цветом, правую - зеленым. Ввести строку с клавиатуры. Если в ней больше букв "a", чем букв "o", вывести в центре экрана слово "привет".

Цитата:

Сообщение от Skuttbin (Сообщение 834578)

Заполнить левую половину экрана синим цветом, правую - зеленым. Ввести строку с клавиатуры. Если в ней больше букв "a", чем букв "o", вывести в центре экрана слово "привет".

И это в текстовом режиме, через CRT? Или в графическом? Вообще-то в текстовом экране я тоже не очень представляю себе, как это сделать.

Скорей всего все таки в графическом

Цитата:

Сообщение от Skuttbin (Сообщение 834599)

Скорей всего все таки в графическом

Во черт, а я таки в текстовом ухитрился соорудить! Гляньте, может быть, подойдёт.
Но! Внимание! Предупреждаю сразу: НИКАКОЙ КИРИЛЛИЦЫ! Заморачиваться с разными кодировками, извините, не буду. Посему и слово вводить латиницей, и на экране будет "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.

Спасибо большое за помощь в написании этой программы)))