Запись программ*разветвляющихся структур.

[timanurgaliyev]

1. Реализовать пользовательский интерфейс в командной строке,

предоставляющий выбор нескольких демо-программ и опцию выхода. В

качестве демо-программ можно использовать программы, реализованные в

рамках предыдущей темы.

2. Реализовать решение задачи. Дан номер месяца. Вывести на экран время года

(зима, весна, лето, осень).

3. Реализовать решение задачи. Дано трехзначное число. Вывести его словесное

описание (345 = Триста сорок пять).

4. Реализовать решение задачи. В восточном календаре принят 60 летний цикл,

состоящий из 12 летних под циклов, обозначаемых названиями цвета: Зеленый,

Красный, желтый, белый и черный. В каждом цикле годы носят названия

животных: Крысы, Коровы, Тигра, Зайца, Дракона, Змеи, Лошади, Овцы,

Обезьяны, Курицы, Собаки и Свиньи. По номеру года определить его название

если 1984 год начало цикла: Год зеленой крысы.

5. Обсуждение вопросов по теме «Управляющие структуры в C/C++».

[p51x]

И? Давайте лучше анекдот..

[GreenWizard]

Сообщение от p51x

И? Давайте лучше анекдот..

Да ну, и анекдоты у него соответствуют же его IQ
Жаль, что нельзя сделать автобан тем от новичков, если там нету тега CODE))

[newerow1989]

2:

var mes:integer;
begin
   Write('mes = ');Readln(mes);
   Case mes of
   1..2,12: Writeln('zima');
   3..5:    Writeln('vesna');
   6..8:    Writeln('leto');
   9..11:   Writeln('osen');
   else
      Writeln('NO mes!');
   end;
   Readln;
end.

3:

const sotni:array[1..9] of string=('sto','dvesti','trista','chetyresta',
         'pyatsot','schestsot','semsot','vosemsot','devyatsot');
      des:array[1..9] of string=('','dvadcat','tridcat','sorok',
         'pyatdesat','schestdesat','semdesat','vosemdesat','devyanosto');
      edin:array[0..19] of string=('','odin','dva','tri','chtyre',
         'pyat','schest','sem','vosem','devyt','desyat',
         'odinnadcat','dvenadcat','trinadcat','chetyrnadcat','pyatnadcat',
         'schestnadcat','semnadcat','vosemnadcat','devyatnadcat');
var n,k:integer;
    s:string;
begin
   Write('n = ');Readln(n);
   s:='';
   k:=n mod 100;
   If k<20 then
   begin
      s:=edin[k];
      n:=n div 100;
   end else
   begin
      k:=n mod 10;
      n:=n div 10;
      If k>0 then
         s:=edin[k];
      k:=n mod 10;
      n:=n div 10;
      If k>0 then
         s:=des[k]+' '+s;
   end;
   If (n>0) and (n<10) then
      s:=sotni[n]+' '+s;
   Writeln(s);
   Readln;
end.

4:

const goda:array[0..11] of string=('krysa','korova','tigr','zayac',
         'drakon','zmeya','loschad','ovca','obezyana','kurica',
         'sobaka','svinya');
      dn=1984 mod 12;
var n:integer;
begin
   Write('n = ');Readln(n);
   n:=n-dn;
   n:=n mod 12;
   Writeln(goda[n]);
   Readln;
end.