Написать программу, используя три вида циклов (цикл с параметром, цикл с предусловием и цикл с постусловием) исходная формула : z=tg (t-cost) значение аргумента : t=14; 15; 16; 17; 18; 19 заранее
Ответы на вопрос:
1. подумать над алгоритмом2. вот сам алгоритм: а. спросить у пользователя значенияб. расчитать ответв. выдать ответ на экран3. написать код в паскале4. исправить ошибки компиляции5. протестировать, вводить разные числа6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда7. вставить код проверки введенных пользователем значений8. убрать ошибки компиляции9. протестировать10. готово
а вот и сама программа:
program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end;
correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end;
end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
egorsinitsyn9Egor21.04.2022 23:49
-
nikitos2281337128.02.2021 15:44
-
feroprosto08.02.2023 21:08
-
Fox12346863145403.11.2020 03:13
-
KLerK1115.12.2022 10:46
-
MaksimKim2005koreec28.02.2021 22:19
-
roofers21.06.2023 20:18
-
Фаззан20.02.2022 12:13
-
anashakirova0901.03.2020 05:10
-
Kiss100923.03.2022 13:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.