М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
angelina2003po
angelina2003po
15.09.2022 02:39 •  Информатика

40 ! напишите программу, которая по порядковому номеру месяца выводит на экран время года (через условный оператор if, и с объяснением )

👇
Ответ:
Совушка09
Совушка09
15.09.2022
Тут есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then
4,6(42 оценок)
Ответ:
Var n:integer;
begin
write('n = ');
readln(n);
if n in [1,2,12] then writeln('Зима')
else if n in [3,4,5] then writeln('Весна')
     else if n in [6,7,8] then writeln('Лето')
          else if n in [9,10,11] then writeln('Осень')
               else writeln('Ошибка ввода');
end.

Пример:
n = 3
Весна
4,8(13 оценок)
Открыть все ответы
Ответ:
coolparschin20
coolparschin20
15.09.2022
 в строчку.

2. Допускается применение круглых скобок



3. Не допускается подряд два знака операций

.

4. Выражения просматривается слева на право, сравниваются две последовательные операции, и выполняется та, чей приоритет выше.



5. Часть выражения заключенная в скобки выполняется в первую очередь (т.е. скобки изменяют приоритет)



 

Запись арифметических выражений в Паскале

Правила записи основных арифметических функций на языке Турбо-Паскаль приведены в таблице 1.

                                                                                          Таблица 1

В математике

В ТР

|x|

abs(x)



sqrt(x)

X2

sqr(x)

ex

exp(x)

sinx

sin(x)

cosx

cos(x)

tgx

sin(x)/ cos(x)

ctgx

cos(x)/ sin(x)

arctgx

arctan(x)

arcsinx

arctan(x/sqrt(1-sqrt(x)))

arccosx

Pi/2-arctan(x/sqrt(1-sqrt(x)))

lnx

ln(x)

lgx

ln(x)/ ln(10)

log2x

ln(x)/ ln(2)

  

 Возведение в вещественную степень выполняется по формуле


 

Примеры записи выражений

1. 

 

y:=(a*2.5*exp(x)+sqrt(abs(x-1))+ln(sqr(x)/2/a)/ln(10)) / 
     ( arctan(x/sqrt(1-sqr(x))+exp(2/3*ln(x)));

2. 

L:=((sqr(x)+sqr(y))<=sqr(R))and(x*y>=0).
4,8(2 оценок)
Ответ:
ParaDoksalS
ParaDoksalS
15.09.2022
Uses crt;
type sInfo = record     
surname:string;     
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin       
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;       
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;       
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;               
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;               
// И так далее по примеру выше.       
// Вывод вот так:       
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
4,8(12 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ