Question

Помогите пожалуйста. Дам 30 баллов СРОЧНО!!!!!!!!!!! Составить таблицу значений функции y = 8 – x2/3 на отрезке [–4; 4] с шагом 1.Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений:–5; 5; 36; –10; 98; 63; 2; 8; 37 ; –45.В отчет включить тексты программ на Паскале, реакцию ЭВМ.

Answer 1

1.

program f_znachenia;

var

x:real;

begin

x:=-4;

writeln(' x y');

while x<=4 do begin

writeln(x:4:1,8-sqr(x)/3:7:1);

x:=x+1;

end;

readln;

end.

2.

program pr_sum_kol;

var

x,pr,sum,kol,i:integer;

begin

pr:=1; sum:=0;kol:=0;

for i:=1 to 10 do

begin

read(x);

if x>0 then pr:=pr*x

else

if x<0 then

begin

sum:=sum+x;

kol:=kol+1

end

end;

writeln('Произведение положительных=',pr);

writeln('Сумма отрицательных=',sum);

writeln('Количество отрицательных=',kol);

readln;

end.

Answer 2

Для начала, давайте составим таблицу значений функции y = 8 - x^(2/3) на отрезке [-4; 4] с шагом 1. Для этого мы подставим значения x от -4 до 4 и найдем соответствующие значения y.

pascalCopy code
program TableOfValues;
var
  x, y: real;
begin
  writeln('x | y');
  writeln('---------');
  x := -4;
  while x <= 4 do
  begin
    y := 8 - power(x, 2/3);
    writeln(x:2:1, ' | ', y:2:2);
    x := x + 1;
  end;
end.

Скопируйте этот код в среду программирования Pascal, чтобы выполнить его и получить таблицу значений.

Теперь давайте найдем произведение положительных, сумму и количество отрицательных из 10 введенных целых значений: -5, 5, 36, -10, 98, 63, 2, 8, 37, -45.

pascalCopy code
program NumbersAnalysis;
var
  num, positiveProduct, negativeSum: integer;
  negativeCount: integer;
begin
  positiveProduct := 1;
  negativeSum := 0;
  negativeCount := 0;
  
  writeln('Введите 10 целых чисел:');
  
  for i := 1 to 10 do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    
    if num > 0 then
      positiveProduct := positiveProduct * num
    else if num < 0 then
    begin
      negativeSum := negativeSum + num;
      negativeCount := negativeCount + 1;
    end;
  end;
  
  writeln('Произведение положительных чисел: ', positiveProduct);
  writeln('Сумма отрицательных чисел: ', negativeSum);
  writeln('Количество отрицательных чисел: ', negativeCount);
end.

Этот код сначала просит вас ввести 10 целых чисел, а затем находит произведение положительных, сумму и количество отрицательных чисел. Скопируйте его в среду программирования Pascal и выполните программу.

Не забудьте сохранить результаты выполнения программы и включить их в отчет.