Дано вещественное число — цена 1 кг конфет. вывести стоимость 1, 2, 10 кг конфет. сделать с тремя циклами через паскаль, с комментариями while repeat for

Ответы

Ответ дал: мышка84

Program prices; const max : integer = 10; var price : real; i : integer; begin { с использованием цикла for } writeln('используем цикл for'); write('введите стоимость 1-го кг конфет: '); readln(price); for i: =1 to max do begin writeln (i, ' кг. конфет стоят: ', i*price: 7: 2); end; { с использованием цикла repeat } i: =1; writeln; writeln('используем цикл repeat'); repeat writeln (i, ' кг. конфет стоят: ', i*price: 7: 2); i: =i+1; until(i> max); { с использованием цикла while } i: =1; writeln; writeln('используем цикл while'); while(i< =max) do begin writeln (i, ' кг. конфет стоят: ', i*price: 7: 2); i: =i+1; end; end;

Спасибо

Ответ дал: Гость

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end.

Ответ дал: Гость

uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.