Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят.

@good91 · Регистрация: 03.03.2010

Author24 — интернет-сервис помощи студентам

Пусть дана последовательность a1, ..., а10. Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят. Ввод массива оформить в виде процедуры.

Задачу решать не надо, а просто объясните...

Если бы надо было найти сумму всех которые не превосходят, тогда бы я решил... а так нужно найти какие-то конкретные числа в этом я ни понимаю...

Объясните пожалуйста это!

@Artishok · 13.06.2010, 19:33

Сообщение от good91

сумму всех которые не превосходят

ну а разница.

Pascal

1	sum:=sum+a[i]

а станет

Pascal

1	sum:=sum+sqr(a[i])

@good91 · 13.06.2010, 20:51 **[ТС]**

Сообщение от Artishok

сумму всех которые не превосходят
ну а разница.
Код Pascal1 sum:=sum+a[i]
а станет
Код Pascal1 sum:=sum+sqr(a[i])

Сори тупанул...

Как решу, выложу решения для общего пользования

Добавлено через 43 минуты
Не так уж просто, как мне показалось...

Вот, что я на решал:

Pascal

Program B12;
 Uses crt;
 Const p=15;
 Type
  F1=text;
  Mas=array[1..5] of real;
 
 Var
  F:F1;
  A:Mas;
  I:integer;
  s,sum:real;
 
 Procedure vvod_a (var a:mas);
 Begin
 Rewrite (F);
 Writeln (F,'Исходный массив A:');
 writeln (f);
 s:=0;
  For I:=1 to 5 do
   Begin
    Writeln ('Введите A[i]');
    Readln (a[i]);
    Write (F,A[i]:5:0);
   End;
 Close (f);
 End;
 
 Procedure Vych (var a:mas);
 Begin
 Append (f);
 Writeln (f);
 Writeln (F,'Нахождения сумм');
 Writeln (f);
 s:=0;
 sum:=0;
  For i:=1 to 5 do
   Begin
    s:=s+sqr(a[i]);
    sum:=sum+exp(3*ln(a[i]));
   End;
    If s<=p then
     Write (F,'Cумма квадратов чисел, которая не превосходит число Р:  ',s:2:1);
    If sum>p then
     Write (f,'Cумма кубов чисел, которая больше числа Р:  ',sum:2:0);
 Close (f);
 End;
 
 Begin
  Assign (F,'mas.txt');
  Clrscr;
  Vvod_a (a);
  Vych(A);
  Readln
 End.

Может исправит кто?)

@Artishok · 13.06.2010, 20:55

условие задачи не соблюдаете.

Добавлено через 2 минуты

Pascal

for i:=1 to n do 
begin
 if a[i]<=p then
  sum1:=sum1+sqr(a[i])
 else
  sum2:=sum2+sqr(a[i])*a[i];
end;

@good91 · 13.06.2010, 21:04 **[ТС]**

Сообщение от Artishok

условие задачи не соблюдаете.
Добавлено через 2 минуты
Код Pascal
for i:=1 to n do
begin
if a[i]<=p then
sum1:=sum1+sqr(a[i])
else
sum2:=sum2+sqr(a[i])*a[i];
end;

Так что ли?

Pascal

Program B12;
 Uses crt;
 Const p=15;
 Type
  F1=text;
  Mas=array[1..5] of real;
 
 Var
  F:F1;
  A:Mas;
  I:integer;
  s,sum:real;
 
 Procedure vvod_a (var a:mas);
 Begin
 Rewrite (F);
 Writeln (F,'Исходный массив A:');
 writeln (f);
 s:=0;
  For I:=1 to 5 do
   Begin
    Writeln ('Введите A[i]');
    Readln (a[i]);
    Write (F,A[i]:5:0);
   End;
 Close (f);
 End;
 
 Procedure Vych (var a:mas);
 Begin
 Append (f);
 Writeln (f);
 Writeln (f);
 Writeln (F,'Нахождения сумм');
 Writeln (f);
 s:=0;
 sum:=0;
  For i:=1 to 5 do
   Begin
    If a[i]<=p then
     s:=s+sqr(a[i])
    else
     sum:=sum+exp(3*ln(a[i]));
   End;
     Write (F,'Cумма квадратов чисел, которая не привосходит число Р:  ',s:2:1);
     Writeln (f);
     Write (f,'Cумма кубов чисел, которая больше числа Р:  ',sum:2:0);
 Close (f);
 End;
 
 Begin
  Assign (F,'mas.txt');
  Clrscr;
  Vvod_a (a);
  Vych(A);
  Readln
 End.

По-моему это тоже самое, только пишет грамотнее, что одних ноль, а другие превосходят или не превосходят число Р...

@Artishok · 13.06.2010, 21:30

Сообщение от good91

По-моему это тоже самое

у вас находит суммы всех чисел а надо не всех

@good91 8 / 8 / 2 Регистрация: 03.03.2010 Сообщений: 90
		1
	Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят. 13.06.2010, 19:24. Показов 1002. Ответов 5 Метки нет (Все метки) Пусть дана последовательность a1, ..., а10. Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят. Ввод массива оформить в виде процедуры. Задачу решать не надо, а просто объясните... Если бы надо было найти сумму всех которые не превосходят, тогда бы я решил... а так нужно найти какие-то конкретные числа в этом я ни понимаю... Объясните пожалуйста это! 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	13.06.2010, 21:30	6
	Сообщение от good91 По-моему это тоже самое у вас находит суммы всех чисел а надо не всех 0