Question

Напишите программу в паскале , которая зная секунды, за которые десятиклассник пробежал 2000 метров, а так же его пол, выставляет отметку по этой дисциплине.

Answer 1

Ответ:

Объяснение:

var a,b,s,o:integer;

begin

 o := 0;

 writeln('введите количество секунд');

 readln(a);

 writeln('1.муж  2.жен');

 readln(b);

 s:=0;

 if b = 1 then  

 begin

   if (a <= 400) and (s=0) then

     begin

     o := 5;

     s := s+1;

     end;

   if (a <= 500) and (s=0) then

     begin

     o := 4;

     s := s+1;

     end;

   if (a <= 600) and (s=0) then

     begin

     o := 3;

     s := s+1;

     end;

   if (a <= 700) and (s=0) then

     begin

     o := 2;

     s := s+1;

     end;

 end

 else

 begin

   if (a <= 500) and (s=0) then

     begin

     o := 5;

     s := s+1;

     end;

   if (a <= 600) and (s=0) then

     begin

     o := 4;

     s := s+1;

     end;

   if (a <= 700) and (s=0) then

     begin

     o := 3;

     s := s+1;

     end;

   if (a <= 800) and (s=0) then

     begin

     o := 2;

     s := s+1;

     end;

 end;

 writeln('оценка: ',o)

end.

Answer 2

Конечно, вот пример программы на Pascal, которая принимает на вход количество секунд, за которые десятиклассник пробежал 2000 метров, и его пол, и выводит отметку по этой дисциплине:

pascalCopy code
program RunningGrade;

var
  seconds: Integer;
  gender: Char;
  grade: String;

begin
  writeln('Введите количество секунд, за которые десятиклассник пробежал 2000 метров:');
  readln(seconds);
  
  writeln('Введите пол десятиклассника (М - мужской, Ж - женский):');
  readln(gender);
  
  if (gender = 'М') or (gender = 'м') then
  begin
    if seconds <= 480 then
      grade := 'Отлично'
    else if seconds <= 600 then
      grade := 'Хорошо'
    else if seconds <= 720 then
      grade := 'Удовлетворительно'
    else
      grade := 'Неудовлетворительно';
  end
  else if (gender = 'Ж') or (gender = 'ж') then
  begin
    if seconds <= 540 then
      grade := 'Отлично'
    else if seconds <= 660 then
      grade := 'Хорошо'
    else if seconds <= 780 then
      grade := 'Удовлетворительно'
    else
      grade := 'Неудовлетворительно';
  end
  else
    grade := 'Ошибка: некорректный ввод пола';
  
  writeln('Отметка по дисциплине: ', grade);
end.

Это простой пример программы, который оценивает десятиклассника в зависимости от его пола и времени бега. Вы можете настроить временные интервалы для разных оценок в соответствии с вашими требованиями.