Question

Паскаль,задачки Задача 1. Максимальные непрерывные работы за компьютером детей ориентировочно такие: 6-8 лет - 15 минут, 9-11 лет - 30 минут, 12-15 лет - 45 минут, 16-17 лет - 60 минут. С клавиатуры вводится возраст и время, уже проведенное за компьютером, и выводится сообщение о том, сколько минут осталось до окончания сеанса работы. Задача 2. На станции есть бензин нескольких марок с разной ценой. Клиент выбирает марку бензина и количество литров, которые хочет приобрести. Выведите информацию о сумме к оплате. Задача 3. Дозировку лекарства для детей (количество таблеток денно) зависит от возраста (с пятилетней градацией). Компьютер спрашивает возраст ребенка и после введения ответы сообщает допустимую дозу лекарств. Задача 4. Задайте расстояния до городов A, B, C, D. Пусть на 100 км требуется 9 литров бензина. Компьютер спрашивает о пункте назначения (надо будет ввести одну букву) и сообщает о необходимом количестве бензина.

Answer 1

Ответ:

//Задача #1

begin

 var a,b,c: integer;

 write('Введите ваш возраст: '); readln(a);

 write('Введите время, проведенное за компьютером (в минутах): '); readln(b);

 if b<0 then else

 case a of

   6..8: c:=15;

   9..11: c:=30;

   12..15: c:=45;

   16..17: c:=60;

   else write('Вам ',(a<6)? 'меньше 6':'больше 17-ти',' лет'); exit;

 end;

 write((c-b>0)? 'Вам осталось находиться за компьютером '+(c-b).ToString+' минут':'Ваш сеанс закончился '+abs(c-b)+' минут назад');

end.

//Задача 2

var

 a:integer;

 b:real;

begin

 var N: array [1..4] of (string,real);

  N[1]:=('АИ-92',42.30);

  N[2]:=('АИ-95',45.30);

  N[3]:=('АИ-98',53.71);

 writeln('В наличии имеется: ');

 for var L:=1 to 3 do

   println(L+') ',N[L].Item1,' ',N[L].Item2,' руб/л');

 write('Введите номер марки бензина (1-3): ');readln(a);

 if (a>=1) and (a<=3) then begin

  writeln('Вы выбрали бензин ',N[a].Item1);

  write('Введите количество литров: ');readln(b);

  write((B<0)? 'Указано отрицательное количество литров':('Сумма вашей покупки: '+N[a].Item2*b+' рублей'))

  end;

end.

//Задача 4

begin

 var K:char;

 var N: array ['A'..'D'] of real;

 for var L:='A' to 'D' do

   begin

     write('Введите расстояние до города ',L,' (км): ');readln(N[L]);

   end;

 write('В какой из городов вы направляетесь? ');readln(K);

 K:=K.ToUpper;

 write('Вам понадобится ',(N[K]/100)*9,' литров бензина');

end.

Примечание:

У задачи №3 слишком мало вводных параметров

Answer 2

Для решения данных задач можно использовать язык программирования Pascal. Ниже приведены примеры кода для каждой из задач.

Задача 1: Расчет времени работы за компьютером

pascalCopy code
program ComputerTime;

var
  age, timeSpent, remainingTime: integer;

begin
  writeln('Введите возраст ребенка:');
  readln(age);
  
  writeln('Введите время, проведенное за компьютером (в минутах):');
  readln(timeSpent);
  
  case age of
    6..8: remainingTime := 15 - timeSpent;
    9..11: remainingTime := 30 - timeSpent;
    12..15: remainingTime := 45 - timeSpent;
    16..17: remainingTime := 60 - timeSpent;
    else
      writeln('Неверный возраст');
      remainingTime := 0;
  end;
  
  if remainingTime > 0 then
    writeln('Осталось минут работы: ', remainingTime)
  else
    writeln('Время работы закончилось или введен неверный возраст.');
end.

Задача 2: Расчет суммы к оплате за бензин

pascalCopy code
program GasStation;

var
  brand: string;
  liters, totalPrice: real;

begin
  writeln('Введите марку бензина (A, B, C, D):');
  readln(brand);
  
  writeln('Введите количество литров:');
  readln(liters);
  
  case brand of
    'A': totalPrice := liters * 10.5;  // Здесь нужно указать цену для марки A
    'B': totalPrice := liters * 11.0;  // Здесь нужно указать цену для марки B
    'C': totalPrice := liters * 11.5;  // Здесь нужно указать цену для марки C
    'D': totalPrice := liters * 12.0;  // Здесь нужно указать цену для марки D
    else
      writeln('Неверная марка бензина');
      totalPrice := 0;
  end;
  
  if totalPrice > 0 then
    writeln('Сумма к оплате: ', totalPrice:0:2)
  else
    writeln('Выбрана неверная марка бензина.');
end.

Задача 3: Дозировка лекарства

pascalCopy code
program MedicationDosage;

var
  age, dosage: integer;

begin
  writeln('Введите возраст ребенка:');
  readln(age);
  
  case age of
    5..9: dosage := 1;   // Доза для детей от 5 до 9 лет
    10..14: dosage := 2;  // Доза для детей от 10 до 14 лет
    15..19: dosage := 3;  // Доза для детей от 15 до 19 лет
    else
      writeln('Дозировка неизвестна для данного возраста');
      dosage := 0;
  end;
  
  if dosage > 0 then
    writeln('Дозировка лекарства: ', dosage, ' таблетки(а)')
  else
    writeln('Для данного возраста дозировка неизвестна.');
end.

Задача 4: Расчет необходимого количества бензина

pascalCopy code
program FuelConsumption;

var
  destination: char;
  distance, fuelRequired: real;

begin
  writeln('Введите пункт назначения (A, B, C, D):');
  readln(destination);
  
  writeln('Введите расстояние до пункта назначения (в км):');
  readln(distance);
  
  case destination of
    'A': fuelRequired := (distance / 100) * 9;  // Расчет для пункта A
    'B': fuelRequired := (distance / 100) * 9;  // Расчет для пункта B (если одинаково с A)
    'C': fuelRequired := (distance / 100) * 9;  // Расчет для пункта C (если одинаково с A)
    'D': fuelRequired := (distance / 100) * 9;  // Расчет для пункта D (если одинаково с A)
    else
      writeln('Неверный пункт назначения');
      fuelRequired := 0;
  end;
  
  if fuelRequired > 0 then
    writeln('Необходимое количество бензина: ', fuelRequired:0:2, ' литров')
  else
    writeln('Выбран неверный пункт назначения.');
end.

Обратите внимание, что в коде для задачи 2, 3 и 4 нужно указать актуальные цены на бензин и другие значения, а также можно добавить проверки на отрицательные значения или неправильный ввод пользователем для улучшения программы.