Turbo Pascal для начинающих

http://mirotoplenie.ru



Задача 65


{ Вычисление стоимости поездки на дачу и обратно } var
rast: real; { расстояние до дачи }
rash: real; { расход бензина на 100 км пути }
cena: real; { цена одного литра бензина }
summ: real; { стоимость поездки на дачу и обратно } begin
writeln('Вычисление стоимости поездки на дачу и обратно.');
write('Расстояние до дачи (км) ->');
readln(rast);
write('Расход бензина (литров на 100 км) ->');
readln(rash);
write('Цена литра бензина (руб.) —>');
readln(cena);
summ:=2*rast/100*rash*cena;
writeln;
writeln('Поездка на дачу и обратно обойдется в',
surran: 6:2, ' руб. ') ; readln; end.

Задача 67

{ Вычисление площади поверхности цилиндра } var
г: real; { радиус основания цилиндра }
80
Turbo Pascal в задачах и-примерах
h: real; ( высота цилиндра } s: real; { площадь поверхности цилиндра } begin
writeln('Вычисление площади поверхности цилиндра');
writeln('Введите исходные данные:');
write('радиус основания цилиндра (см) —>');
readln(r);
write('высота цилиндра (см) ->');
readln(h);
{
pi - именованная константа, ее значение равно числу "ПИ" Sqr - функция Turbo Pascal, ее значение равно квадрату аргумента, т. е. Sqr(x) = х*х
}
s:=2*pi*sqr(r)+2*pi*r*h; writeln;
writeln('Площадь поверхности цилиндра ',s:6:2,'кв.см.'); readln; end.

Задача 69

{ Пересчет расстояния из верст в километры } var
v: real; { расстояние в верстах }
k: real; { расстояние в километрах } begin
writeln('Пересчет расстояния из верст в километры');
writeln('Введите расстояние в верстах и нажмите <Enter>');
write('->');
readln(v);
k:=v*1.0668;
writeln(v:6:2,' верст(а/ы) — это ',k:6:2,' км');
writeln('Для завершения работы программы нажмите ',
'<Enter>');
readln; end.

Задача 71

( Вычисление дохода по вкладу } var
sum: real; { сумма вклада }
srokrreal; { срок вклада } stavka:real; f процентная ставка } dohodrreal; { доход по вкладу } begin
writeln('Вычисление дохода по вкладу.');
writeln('Введите исходные данные:');
write('Величина вклада (руб.) —>');
readln(sum) ;
write('Срок вклада (дней) —>');
readln(srok);
write('Процентная ставка —>');
readln(stavka);
dohod:=(sum*stavka/100)/365*srok; { 365 - кол-
в году } sum:=sum+dohod; writeln;
writelnt'---------------------------------') ;
writeln('Доход:',dohod:9:2,' руб.');
writeln('Сумма по окончании срока вклада:',sum:9:2,
'руб.'); readln; end.

Задача 72

( Преобразование величины, выраженной в минутах, в соответсвующее ей значение, выраженное в часах и минутах ) var
min: integer; { интервал в минутах }
h: integer; ( количество часов }
пк integer; { количество минут } begin
writeln('Введите величину временного интервала (в минутах)');
write('->');
readln(min);
h:= min div 60;
m:= min mod 60;
writeln;
writeln(min,' мин. -это ',h,' час.',т,' мин.');
readln; end.

Задача 73

{ Преобразование числа в денежный формат } var
n:- real; { дробное число }
г: integer; { целая часть числа (рубли) }
к: integer; { дробная часть числа (копейки) ) begin
writeln('Преобразование числа в денежный формат.');
write('Введите дробное число —>');
readln(n);
r:= Round(n*100) div 100;
k:= Round(n*100) mod 100;
writeln;
writeln(n:6:2,' руб. -это ',r,' руб.',к,' коп.');
readln; end.

Задача 76

{ Вычисление частного } var
a,b,c: real; { делимое, делитель и частное } begin
writeln('Вычисление частного');
writeln('Введите в одной строке делимое и делитель,');
writeln('затем нажмите <Enter>');
write('->');
readln(a,b);
if b<> 0 then begin c:=a/b;
writeln('частное от деления ',а:6:3,' на ',Ь:6:3, 'равно ',с:6:3);
end else
writeln('Ошибка! Делитель не должен быть ',
1равен нулю!'); readln; end.

Задача 77

{ Вычисление площади кольца } var
rl,r2 : real; { радиус кольца и отверстия } s : real; { площадь кольца } begin
writeln('Введите исходные данные:'); write('радиус кольца (см) —> '); readln(rl);
write('радиус отверстия (см) —> '); readln(r2); if rl > r2 then begin
s:=2*3.14*(rl-r2);
writeln('Площадь кольца ',s:6:2,' кв.см'); end
else writeln('Ошибка! Радиус отверстия не может быть ',
'больше радиуса кольца. ') ;
writeln('Для завершения работы программы нажмите <Enter>'); readln; end.

Задача 78

{ Вычисление сопротивления электрической цепи } var
rl,r2: real; { величины сопротивлений цепи }
г: real; { суммарное сопротивление }
t: integer; { тип соединения элементов:
1 — последовательное;
2 — параллельное } begin
writeln('Вычисление сопротивления электрической цепи1);
writeln('Введите исходные данные: ') ;
write('Величина первого сопротивления (Ом) —>');
readln(rl);
write('Величина второго сопротивления (Ом) ->');
readln(r2);
write('Тип соединения элементов (1-последовательное, ',
'2-параллельное) —>'); readln(t);

Задача 79

{ Решение квадратного уравнения }
program sqroot;
var
a,b,с:real;{ коэффициенты уравнения } xl,x2:real;{ корни уравнения } d:real; { дискриминант } begin
writeln('* Решение квадратного уравнения *'); write('Введите в одной строке значения коэффициентов'); writeln(' и нажмите <Enter>'); write('->');
readln(a,b,с); { ввод коэффициентов } d:=b*b-4*a*c; { вычисление дискриминанта } if d >= О then begin
xl:=-b+sqrt(d)/(2*a); x2:=-b-sqrt(d)/(2*a); writeln{'Корни уравнения:'); writeln('xl=',xl:9:3); writeln('x2=',x2:9:3); end else
writeln('Корней нет'); end.

Задача 81

Вычисление стоимости покупки с учетом скидки } var
summ: real; { сумма покупки }

begin
writeln('Вычисление стоимости покупки с учетом скидки.'); writeln('Введите стоимость покупки и нажмите <Enter>.'); write('->'); readln (summ) ; if summ > 500
then { предоставляется скидка } begin
if suiran > 1000 then
begin
writeln('Вам предоставляется скидка 5%'); summ:=0.95*summ; end else
begin
writeln('Вам предоставляется скидка 3%'); summ:=0.97*summ; end;
writeln('Сумма покупки с учетом скидки: ', summ: б:2,' руб.');
end else
writeln('Скидка не предоставляется.'); readln; end.









Начало    Назад    Вперед




Книжный магазин