Каждый охотник желает знать, где

goto getkey; end.

Программа 3_05a.pas

program keyboard;

{ Анализ кода нажатой клавиши }

uses Crt;

var

ch:char; begin clrscr; repeat

ch:=readkey;

if ord(ch)=13 then

writeln('Нажата обычная клавиша Enter с кодом =13') else

if ord(ch)=0 then

begin

ch:=readkey;
writeln { 'Нажата управляющая клавиша с кодом = ' ,ord(ch) } ;

end else

writeln('Нажата обычная клавиша "',ch,'" с кодом = ',ord(ch});
until ord(ch)=27;
end.

Задание 3.06. Три цвета радуги

Мнемоническая фраза " Каждый охотник желает знать, где сидят фазаны" используется для запоминания последовательности цветовых оттенков радуги — красный, оранжевый, желтый, зеленый, голубой, синий, фиолетовый. Составить программу, которая вводит три слова, представляющие разные цвета радуги, и выводит их на экран в том порядке, в каком они должны быть расположены в описанной выше цветовой гамме. Например, введены слова желтый, красный и синий. На экран их следует вывести в "правильном" порядке — красный, желтый, синий.

Совет 1 (общий)

Можно завести массив слов, соответствующих последовательности цветов радуги, и устроить цикл, проверяющий, не содержится ли очередной цвет среди введенных слов.

Программа 3_06.bas

REM Упорядочение цветов радуги

DATA "красный","оранжевый","желтый","зеленый"

DATA "голубой","синий","фиолетовый"

DIM А$ (7) , В$ (3)

FOR I=0 ТО 6: READ A$(I): NEXT I

PRINT "Введите по одному в строке 3 цвета радуги"

FOR I=0 ТО 2: INPUT B$ (I): NEXT I

PRINT "В радуге эти цвета следуют в таком порядке:"

FOR J=0 TO 6: FOR I=0 TO 2

IF A$(J)=B$(I) THEN PRINT A$(J)

NEXT I: NEXT J

END

Программа 3_06.c

/* Упорядочение цветов радуги */

#include <stdio.h>

#include <conio.h>

#include <string.h> main()

{

char a[7][11]={"красный","оранжевый",

"желтый","зеленый","голубой","синий","фиолетовый"};

Содержание  Назад  Вперед

---

---

---

---