Федор получает x рублей с продажи каждой газеты, с продажи журнала получает на
20 % больше, вычислить сколько федор получит денег с продажи а - газет и b-
журналов? зафиксируйте свои действия по этапам.
7. исходные данные, что требуется найти.
8. соотношения связывающие данные и результат
9. блок-схема
10. программа на паскале
11. отладка и тестирование (опишите ошибки, которые встречались)
12. выполнить расчеты при
d) х = 20 а = 30 b= 20
е) х = 30 а = 5 b = 10
f) х = 40 а = 100 b = 40
записать полученные результаты
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
end.