Question

Паскаль!53 балла даю Надо придумать программу с операторами while ..do у которой есть практическое применение в жизни.

Answer 1

Ответ:

ОбъЗадача. Гражданка А.О. 1 марта 2018 открыла счёт в банке, вложив 1000 рублей. Через каждый месяц размер её вклада увеличивается на 2% от имеющейся суммы. Определить: Сумму вклада через один, два, …, двенадцать месяцев.

Построение математической модели решения:

Первоначальный вклад а0=1000

1 месяц: а1=а0+а0*0,02

2 месяц: а2=а1+а1*0,02

----------------------------

10 месяц: а10=а9+а9*0,02

Общий случай: an=an-1+an-1*0,02

Составим программу и протестируем ее. Программа составляется совместно с ребятами на доске.

Program vklad;

Var i: integer;

a: real;

Begin Writeln (‘введите значение первоначального вклада’);

Readln (а);

i:=1;

while i<=12 do

begin a:= a+a*0,02;

writeln (a);

i:=i+1; end;

end.

Задачу вводим в паскаль и тестируем.

- Хорошо, задачу решили, а теперь поиграем с ней.

- Назовите банки в Перми, которые вы знаете или там имеют вклады ваши родители? (сбербанк)

обяснение:

ну в жизни пригодится я думаю

Answer 2

Конечно, вот программа на языке Pascal, использующая операторы while...do, которая имеет практическое применение: расчет средней оценки студентов в классе.

pascalCopy code
program СредняяОценка;

var
  Оценка, Сумма: Integer;
  КоличествоСтудентов: Integer;
  СредняяОценка: Real;

begin
  Сумма := 0;
  КоличествоСтудентов := 0;

  writeln('Введите оценки студентов. Введите -1, чтобы завершить ввод.');

  while Оценка <> -1 do
  begin
    write('Оценка: ');
    readln(Оценка);

    if Оценка <> -1 then
    begin
      Сумма := Сумма + Оценка;
      КоличествоСтудентов := КоличествоСтудентов + 1;
    end;
  end;

  if КоличествоСтудентов > 0 then
  begin
    СредняяОценка := Сумма / КоличествоСтудентов;
    writeln('Средняя оценка: ', СредняяОценка:0:2);
  end
  else
    writeln('Нет данных для расчета средней оценки.');

  readln;
end.

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