1) var a,b,c,d:integer; begin write('Введите кол-во товара: '); readln (a); write ('Введите цену товара: '); readln (b); c:=a*b; writeln ('Стоимость покупки составила ',c,' рублей'); write ('Сколько денег Вы даёте за покупку: '); readln (d); if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей'); if d=c then writeln ('Сдачи нет'); if d>c then writeln ('Сдача составила ',d-c,' рублей'); end.
2) var a,b,c:integer; begin write ('Введите длину стороны a: '); readln (a); write ('Введите длину стороны b: '); readln (b); write ('Введите длину стороны c: '); readln (c); writeln; if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.') else writeln ('Такой треугольник не существует.'); end.
3) var i,n:integer; b:array[1..1000] of real; c:real; begin c:=0; write ('Введите кол-во дней: '); readln (n); for i:=1 to n do begin if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10); end; for i:=1 to n do begin c:=c+b[i]; end; writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней'); end.
1. Получим формулу для нахождения площади равнобедренной трапеции по её основаниям и углу при большем основании (см. рис. во вложении).
2. Текст программы на языке Python import math a=float(input("Введите длину большего основания а: ")) b=float(input("Введите длину меньшего основания b: ")) alpha=float(input("Введите угол при большем основании в градусах: ")) alphar=alpha*math.pi/180 print("Площадь трапеции равна ",(a**2-b**2)/4*math.tan(alphar))
3. Тестовое решение Python 3.4.2 (v3.4.2:ab2c023a9432, Oct 6 2014, 22:15:05) [MSC v.1600 32 bit (Intel)] on win32 Type "copyright", "credits" or "license()" for more information. >>> ================================ RESTART ================================ >>> Введите длину большего основания а: 20 Введите длину меньшего основания b: 10 Введите угол при большем основании в градусах: 40 Площадь трапеции равна 62.932472338295995 >>>
begin
write('Введите кол-во товара: ');
readln (a);
write ('Введите цену товара: ');
readln (b);
c:=a*b;
writeln ('Стоимость покупки составила ',c,' рублей');
write ('Сколько денег Вы даёте за покупку: ');
readln (d);
if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей');
if d=c then writeln ('Сдачи нет');
if d>c then writeln ('Сдача составила ',d-c,' рублей');
end.
2) var a,b,c:integer;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
writeln;
if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.')
else writeln ('Такой треугольник не существует.');
end.
3) var i,n:integer;
b:array[1..1000] of real;
c:real;
begin
c:=0;
write ('Введите кол-во дней: ');
readln (n);
for i:=1 to n do
begin
if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);
end;
for i:=1 to n do
begin
c:=c+b[i];
end;
writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней');
end.
2. Текст программы на языке Python
import math
a=float(input("Введите длину большего основания а: "))
b=float(input("Введите длину меньшего основания b: "))
alpha=float(input("Введите угол при большем основании в градусах: "))
alphar=alpha*math.pi/180
print("Площадь трапеции равна ",(a**2-b**2)/4*math.tan(alphar))
3. Тестовое решение
Python 3.4.2 (v3.4.2:ab2c023a9432, Oct 6 2014, 22:15:05) [MSC v.1600 32 bit (Intel)] on win32
Type "copyright", "credits" or "license()" for more information.
>>> ================================ RESTART ================================
>>>
Введите длину большего основания а: 20
Введите длину меньшего основания b: 10
Введите угол при большем основании в градусах: 40
Площадь трапеции равна 62.932472338295995
>>>