Question

Нужно написать полноценную программу на паскале Используя оператор условного перехода, напишите программу, которая: 1) классифицирует компьютерную сеть. Программа запрашивает у пользователя число компьютеров в сети и в зависимости от введенного количества выводит класс сети (если число ЭВМ меньше 256 - то это сеть класса С, от 256 до 65535 - сеть класса В, свыше 65535 - сеть класса А); 2) запрашивает у пользователя номер одного из весенних месяцев, и выводит количество дней в этом месяце. Программа должна проверять, является ли введенный месяц весенним; 3) выводит на экран приглашение: «Который час?», вводит с клавиатуры число X, имеющее смысл времени суток, и печатает слова «Доброе утро», «Добрый вечер», «Добрый день» в зависимости от введенного времени. Программа должна реагировать на ввод неправильного времени: меньше 0 или больше 24;

Answer 1

Ответ:

1.

var

a : integer;

begin

readln(a);

if (a > 0) and (a < 256) then writeln ("Klass C")

else if (a >= 256) and (a < 65535) then writeln("Klass B")

else if (a > 65535) then writeln("Klass A");

end.

2.

var

a : integer;

begin

writeln("Введите номер весеннего месяца");

readln(a);

if (a >= 3) and (a <= 5) then

begin

case a of

3 : writeln("Март");

4 : writeln("Апрель");

5: writeln("Май");

end;

end

else writeln("Это не весенний месяц");

end.

Answer 2

Вот полноценная программа на языке Паскаль, реализующая указанные условия:

pascalCopy code
program Classification;

var
  computersCount, month: integer;
  time: integer;

begin
  // 1) Классификация компьютерной сети
  writeln('1) Классификация компьютерной сети');
  write('Введите количество компьютеров в сети: ');
  readln(computersCount);

  if computersCount < 256 then
    writeln('Сеть класса C')
  else if computersCount >= 256 then
  begin
    if computersCount <= 65535 then
      writeln('Сеть класса B')
    else
      writeln('Сеть класса A');
  end;

  // 2) Количество дней в весеннем месяце
  writeln;
  writeln('2) Количество дней в весеннем месяце');
  write('Введите номер весеннего месяца (1 - март, 2 - апрель, 3 - май): ');
  readln(month);

  case month of
    1, 3, 5:
      writeln('В месяце ', month, ' 31 день');
    2:
      writeln('В месяце ', month, ' 28 или 29 дней');
    4, 6:
      writeln('В месяце ', month, ' 30 дней');
    else
      writeln('Некорректный номер месяца');
  end;

  // 3) Приветствие в зависимости от времени
  writeln;
  writeln('3) Приветствие в зависимости от времени');
  write('Который час? (от 0 до 24): ');
  readln(time);

  if (time >= 0) and (time < 12) then
    writeln('Доброе утро')
  else if (time >= 12) and (time < 18) then
    writeln('Добрый день')
  else if (time >= 18) and (time <= 24) then
    writeln('Добрый вечер')
  else
    writeln('Некорректное время');
end.

Программа запрашивает данные у пользователя и выводит соответствующие результаты в зависимости от условий.