Задачник по ПАСКАЛЮ

Написать программу, которая при вводе числа, определяет кто это - дошкольник, школьник,
студент, рабочий или пенсионер.
Решение:
program voz;
var v:integer;
begin
writeln('Ввести возраст');
readln(v);
case v of
1..6:writeln('Дошкольник');
7..18:writeln('Школьник');
19..25:writeln('Студент');
26..54:writeln('Рабочий');
55..100:writeln('Пенсионер');
end;
END.
Написать программу возведения числа A в степень n.
Решение:
program vozv;
uses crt;
var a,n,i,k:integer;
BEGIN
clrscr;
writeln('Ввести число=');
readln(a);
writeln('В какую степень хотите возвести число?=');
readln(n);
k:=1;
for i:=1 to n do
k:=k*a;
write('Ответ =',p);
readln;
END.
Гражданин 1 декабря открыл счет в банке, вложив А рублей. Через каждый месяц вклад
увеличивался на 2.5 процента от имеющейся суммы. Определить, через сколько месяцев вклад
достигнет суммы больше, чем В рублей.
Решение:
Program grajdanin;
var m:integer;
a,b:real;
BEGIN
write('A=');readln(a);
write('B=');readln(b);
m:=0;
while (a<=b) do begin
m:=m+1;
a:=a+(a*0.025);
end;
writeln('через ',m,' месяцев');
readln;
END.
Составить программу которая решит эту систему уравнений:
y=-1 есл х>0
y= 0 если x<0
y=1 если x=0
Решение:
program olol;
var x,y:integer;
BEGIN
writeln ('vvesti x');
readln(x);
if (x>0) then y:=-1;
if (x<0) then y:=0;
if (x=0) then y:=1;
writeln(y)
END.
Написать программу пересчета величины временного интервала заданного в
минутах в величину выраженную в часах и минутах.
program int;
var t,c,m:integer;
BEGIN
writeln(‘Введите время в минутах ‘);
readln(t);
m:=t mod 60;
c:=t div 60;
writeln (c, ‘часов ‘, m, ‘ минут’);
readln;
END.
Написать программу вычисления площади треугольника если известны длины двух сторон и
величин угла между этими сторонами.
Решение:
Program ploshad;
var a,b,s,u:real;
BEGIN
writeln('Ввести длины сторон треугольника');
readln(a,b);
writeln('Ввести величину угла между ними');
readln(u);
S:=1/2*a*b*sin(u);
writeln('Площадь равна',S);
END.
Объяснение:
Думаю здесь все понятно, главное знать формулу нахождения площади треугольника если
известны две стороны и угол между ними.
Написать программу вычисления стоимости поездки на дачу (туда и обратно). Расстояние до
дачи в км, количество бензина которое сжигает автомобиль на 100км. Цена 1 литра бензина.
Решение:
program avto;
var k,s ,a:real;
BEGIN
writeln('Вычисление стоимости поездки на дачу и обратно.');
writeln('Расстояние до дачи(км) ->');
readln(S);
writeln('Расход бензина(литров на 100км пробега) ->');
readln(k);
writeln('Цена литра бензина(руб) ->');
readln(a);
B:=2*s/100*A*k;
writeln('Поездка обойдется в ',b,'руб);
readln;
END.
Объяснение:
При запуске программы введется следующие:
Вычисление стоимости поездки на дачу и обратно. ->enter
Расстояние до дачи(км) -> вводим число ->enter
Расход бензина(литров на 100км пробега) -> вводим число ->enter
Цена литра бензина(руб) -> вводим число ->enter
Далее высчитывается стоимость поездки по формуле B:=2*s/100*A*R и выводится ответ.