Помогите с информатикой ( Пожалуйста, с блок схемами и самой программкой)1.Представим,
Помогите с информатикой ( Пожалуйста, с блок схемами и самой программой)
1.Представим, компания заработала какую-то сумму средств- эту сумму запросите у юзера. По законодательству из этой суммы следует перечислить в налог 23%. Дальше 39% идет на заработную плату. Составьте программу, которая высчитает, какую сумму получит юзер после выплаты всех налогов и зарплаты.
2. Составьте программу, которая дозволит для всех данных дробных чисел ( их необходимо запросить у юзера) отыскать их целые доли, сумму этих целых частей.
3. Составьте программку, которая по данным граням треугольника( их необходимо запросить у юзера) определяет его площадь. Напомню, что площадь можно вычислить по формуле Герона S= квадратный корень от (p*(p-a)*(p-b)*(p-c)), где p- полупериметр, a,b,c- стороны треугольника, которые надобно запросить. Итог выведите с 2-мя знаками после запятой.
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.
2
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
inc (sum, trunc(a[i]));
end;
write ('Сумма целых долей: ', sum);
end.
3
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
if (agt;=(b+c)) or (bgt;=(a+c)) or (cgt;=(b+a)) or (alt;=0) or (blt;=0) or (clt;=0) then
write ('Таковой треугольник не существует')
else begin
p:=(a+b+c)/2;
write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.