Десятый класс, Паскаль

[ПетяШ]

Десятый класс, Паскаль

Заранее благодарю
Помогите написать программы для 10 класса. На паскале , они легкие, но у меня не получаются

Первая задача:
С экрана запрашивается номер месяца. В зависимости от введенного
значения на экран выводится либо сообщение о том, какому времени
года этот месяц принадлежит, либо о том, что месяца с таким номером
не существует. Каждое время года выводится своим цветом:
зима - белым, весна - зеленым, лето - красным, осень - желтым.
Сообщение о том, что месяца с таким номером не существует, - серым.


Вторя задача:
Дядя Федор, Матроскин и Шарик решали, чем должен заниматься Шарик,
пока Дядя Федор и Матроскин пойдут покупать корову.
Наконец решили кинуть жребий, но по усложненным условиям.
Каждый должен бросить кубик, на гранях которого написаны целые числа
от 1 до 6. Первым бросает Шарик, потом - Матроскин, и последним - Дядя
Федор. Из числа Шарика отнимают число Матроскина, затем к полученному
числу прибавляют число Дяди Федора.
1) Если полученное число окажется отрицательным четным числом,
то выигрывает Шарик, и "Шарик отправляется на охоту".
2) Если это число окажется простым положительным числом,
то выигрывает Матроскин, и "Шарик косит траву для коровы".
3) Если все выпавшие на кубиках числа будут различными четными,
то выигрывает Дядя Федор, и "Шарик сторожит дом".
4) А во всех остальных случаях "Шарик тоже едет покупать корову".
================================================== =====================
Постановка задачи с точки зрения программирования.
Случайным образом генерируются числа a, b и c в диапазоне от 1 до 6.
Затем получают число S, в соответствии с указанным выше правилом.
В зависимости от значения этого числа S вывести на экран соответствующее
сообщение (сообщения отмечены в тексте задания знаками " ").
Числа a, b, c и S также должны быть выведены на экран.

 

[Vladimir_S]

Завтра поковыряю в свободную минутку.

Каждое время года выводится своим цветом: зима - белым, весна - зеленым, лето - красным, осень - желтым.

Ух, как я ненавижу эти CRT-шные рюшечки... Ну ладно, надо, так надо...

 

[ПетяШ]

Печаль, как раз завтра и нужно

 

[Vladimir_S]

Печаль, как раз завтра и нужно

То есть Вы мне предлагаете вместо запланированного отхода ко сну засесть на ночь глядя за Ваши задачки? Извините, но... И, как я понял, завтра уже не нужно? К которому часу нужны программы?

 

[ПетяШ]

Примерно к 11-11:30

 

[Vladimir_S]

Примерно к 11-11:30

Не обещаю, но если на работе не загрузят - попробую успеть. А вообще раньше надо было, а не в последний момент. Впрочем...

 

[ПетяШ]

Я бы сделал, да сам только недавно узнал

 

[Vladimir_S]

Первая задача: С экрана запрашивается номер месяца. В зависимости от введенного значения на экран выводится либо сообщение о том, какому времени года этот месяц принадлежит, либо о том, что месяца с таким номером не существует. Каждое время года выводится своим цветом: зима - белым, весна - зеленым, лето - красным, осень - желтым. Сообщение о том, что месяца с таким номером не существует, - серым.

Uses CRT;

Var
 N:Byte;

Begin
 Repeat
  Write('Enter the month number, "0" to quit: ');
  Readln(N);
  Case N of
   1,2,12:  begin
             textcolor(15);
             writeln('Winter');
             NormVideo;
            end;
   3,4,5:   begin
             textcolor(10);
             writeln('Spring');
             NormVideo;
            end;
   6,7,8:   begin
             textcolor(12);
             writeln('Summer');
             NormVideo;
            end;
   9,10,11: begin
             textcolor(14);
             writeln('Autumn');
             NormVideo;
            end;
   else writeln('No month with such number!');
  end;
 Until N=0;
End.

 

[ПетяШ]

Спасибо большое

 

[Vladimir_S]

Дядя Федор, Матроскин и Шарик решали, чем должен заниматься Шарик, пока Дядя Федор и Матроскин пойдут покупать корову. Наконец решили кинуть жребий, но по усложненным условиям. Каждый должен бросить кубик, на гранях которого написаны целые числа от 1 до 6. Первым бросает Шарик, потом - Матроскин, и последним - Дядя Федор. Из числа Шарика отнимают число Матроскина, затем к полученному числу прибавляют число Дяди Федора.
1) Если полученное число окажется отрицательным четным числом, то выигрывает Шарик, и "Шарик отправляется на охоту".
2) Если это число окажется простым положительным числом, то выигрывает Матроскин, и "Шарик косит траву для коровы".
3) Если все выпавшие на кубиках числа будут различными четными, то выигрывает Дядя Федор, и "Шарик сторожит дом".
4) А во всех остальных случаях "Шарик тоже едет покупать корову".

Var
 Boy,Cat,Dog,Sum:Integer;
 YN:Char;

Function Prime(V:Integer):boolean;
var
 k:Integer;
 b:Boolean;
begin
 if (V>3) or (V<-3) then
  begin
   b:=false;
   k:=Abs(V div 2);
   Repeat
    If (V mod k)=0 then b:=Not(b);
    Dec(k);
   Until b or (k=1);
  end
  else
  if (V=2) or (V=-2) or (V=3) or (V=-3) then b:=false
  else b:=true;
 Prime:=Not(b);
end;

Begin
 Randomize;
 Repeat
  Boy:=1+Random(6);
  Cat:=1+Random(6);
  Dog:=1+Random(6);
  Sum:=Dog-Cat+Boy;
  Writeln('Boy: ',Boy:2);
  Writeln('Cat: ',Cat:2);
  Writeln('Dog: ',Dog:2);
  Writeln('Sum: ',Sum:2);
  if (Sum<0) and ((Sum mod 2)=0) then writeln('Dog wins! Dog goes hunting')
  else
  if (Sum>0) and Prime(Sum) then writeln('Cat wins! Dog mows grass for the cow')
  else
  if ((Boy mod 2)=0) and ((Cat mod 2)=0) and ((Dog mod 2)=0) and
     (Boy<>Dog) and (Boy<>Cat) and (Dog<>Cat) then
     writeln('Boy wins! Dog keeps watching over house')
  else
  writeln('Dog also goes to buy the cow');
  Writeln;
  Write('Continue (Y/N)? ');
  Readln(YN);
  Writeln;
 Until (YN='N') or (YN='n');
End.