Контрольная работа no 4
решение с использованием алгоритмов
вариант 16
afn
решить и оформить в ms word с использованием алгоритмов. в
оформленной работе вывести текст и решение в виде блок-схемы
разработанного алгоритма.
1. дано двузначное число. найти сумму и произведение его цифр.
2. дана сумма начисленной заработной платы. из этой суммы необходимо
удержать 12% на подоходный налог, 1% на профсоюзный налог, 1% на пенсионный
налог и добавить 45 %. полученную сумму к выдаче вывести на экран.
3. для данного вещественного х найти значение следующей функфии f,
принимающей вещественные значения:
(2 sinx, если х> 0;
f(x) = {
16 - х, если х< 0.
4. вывести сумму квадратов натуральных чисел от 3 до 22.
ещё нужно чтобы было решено через блок схему
const
n=15;
var
i,m1,m2,t:integer;
k:array[1..n] of integer;
begin
ClrScr;
Writeln('Укажите количество людей на каждом этаже');
for i:=1 to n do Read(k[i]);
Writeln;
{ массив получен, решаем задачу }
m1:=1; m2:=2;
if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end;
for i:=3 to n do
if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
ReadKey
end.
**************************************************************************************
uses Crt;
const
n=10;
a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
var
i,j,t:integer;
begin
ClrScr;
t:=a[1];
i:=2;
while (i<=n) and (a[i]=t) do i:=i+1;
if i<=n then begin
Writeln('Одинаковых элементов: ', i-1);
Write('За ними следуют элементы ');
for j:=i to n do Write(a[j],' ');
Writeln
end
else Writeln('Весь массив заполнен одинаковыми элементами');
ReadKey
end.