Помогите написать программу в Turbo Pascal и составить блок-схему

[Макsim]

Помогите написать программу в Turbo Pascal и составить блок-схему

Составить алгоритм в виде блок схемы и программу на языке Pascal:C клавиатуры вводиться номер месяца,нужно проверить является ли этот месяц зимним.

 

[Vladimir_S]

Да, Вы правы - с подобной ерундой справится даже блин. Раз уж Вы к нему обратились, ждём.

 

[Макsim]

я уже незнаю куда еще обратиться,я уже мучаюсь с этими задачами!!голова уже болит!!))))

 

[Gruvi]

вот тебе кусок программы

case MONTH of
1, 2, 12 : writeln (‘Зима‘);
3, 4, 5 : writeln (‘Весна‘);
6, 7, 8 : writeln (‘Лето‘);
9, 10, 11 : writeln (‘Осень‘);
end;

 

[Макsim]

мгм..спасибо

 

[Gruvi]

Вот программа тебе:

Program Number1;
Var
MONTH, b, c : integer;
Begin
writeln(‘Введите цифру ‘);
readln(MONTH);
case MONTH of
1, 2, 12 : writeln (‘Зима‘);
3, 4, 5 : writeln (‘Весна‘);
6, 7, 8 : writeln (‘Лето‘);
9, 10, 11 : writeln (‘Осень‘);
end;
else writeln (‘Это число не является месяцем, календарь майя закончился‘);
end;
readln;
End.

 

[Макsim]

дан одномерный массив из 18 целых чисел(положительных и отрицательных).Найти среднее арифметическое положительных чисел.Вывести на печать полученную величину и сам массив в 3 столбика!!!

 

[Макsim]

спасибо!!!!

 

[Макsim]

дан одномерный массив из 22 целых чисел(положительных,отрицательных и нулевых).Найти количество нулей,с порядковыми номерами,кратным четырем.Вывести полученную величину в массив в 2 столбика

 

[Макsim]

решите.....пожалуйста!!

 

[Vladimir_S]

Вот программа тебе:

Прекрасно, только непонятен смысл b и c. Между прочим, если понимать задание буквально:

нужно проверить является ли этот месяц зимним.

то можно и короче:

Var
 Month:Byte;
Begin
 Write('Month number = ');
 Readln(Month);
 Writeln((Month=12) or (Month=1) or (Month=2));
 Readln
End.

 

[Vladimir_S]

Найти количество нулей,с порядковыми номерами,кратным четырем.Вывести полученную величину в массив в 2 столбика

Ну, я лично не возьмусь, ибо не представляю, как можно вывести найденное число нулей (допустим, 3) "в массив", да еще "в два столбика"!