Рассмотрите блок схему и составить трассировочную таблицу при значении A=16 и Б=12
215
394
Ответы на вопрос:
Код ужасно кривой, но рабочий (надеюсь, принцип понятен): 1. бензин type benzin=class public money: double; m: integer; end; var b: benzin; begin b: =new benzin; b.m: =0; b.money: =20; while b.money< 22.0 do begin b.money: =b.money*1.02; b.m: =b.m+1; writeln('сейчас бензин стоит: ',b.money); writeln('сейчас месяц прошел: ',b.m); end; end. 2. вклад type biznes=class public money: double; m: integer; time: integer; end; var b: biznes; begin b: =new biznes; writeln('напишите сумму рублей: '); read(b.money); writeln('напишите кол-во месяцев: '); read(b.m); b.time: =0; while b.time< b.m do begin b.money: =b.money*1.03; b.time: =b.time+1; writeln('сейчас сумма: ',b.money); writeln('прошел месяц: ',b.time); end; end. 3. тренировки type sport=class public first: double; day: integer; first2: double; first3: double; first4: double; first5: double; first6: double; first7: double; answer: double; end; var s: sport; begin s: =new sport; s.first: =5; s.day: =1; while s.day=1 do begin s.first2: =s.first*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first2); writeln('день: ',s.day); end; while s.day=2 do begin s.first3: =s.first2*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first3); writeln('день: ',s.day); end; while s.day=3 do begin s.first4: =s.first3*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first4); writeln('день: ',s.day); end; while s.day=4 do begin s.first5: =s.first4*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first5); writeln('день: ',s.day); end; while s.day=5 do begin s.first6: =s.first5*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first6); writeln('день: ',s.day); end; while s.day=6 do begin s.first7: =s.first6*1.20; s.day: =s.day+1; writeln('сейчас бегает: ',s.first7); writeln('день: ',s.day); end; while s.day=7 do begin s.answer: =s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7; s.day: =s.day+1; writeln('ответ: ',s.answer); end; end.
Популярно: Информатика
-
КапитанПрайс300030.01.2020 15:56
-
ТКУиК9ks1107.03.2023 00:51
-
Didi12EW19.09.2021 01:35
-
Helpmepleas1710.10.2022 22:56
-
8908644304015.05.2021 06:39
-
булат5702.07.2021 09:52
-
krasivak07.04.2021 17:26
-
volkovaales030810.09.2021 15:39
-
Зл0йстудент03.02.2023 02:17
-
nastia698210.11.2022 23:13