Помогите студентику

Татуся · 27.03.2012, 11:33

Ребятки, помогите. Задали контрольную в Паскале. Составить блок-схему и написать програму решения:
- Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А.

Vladimir_S · 27.03.2012, 12:19

Цитата:

Сообщение от Татуся

Ребятки, помогите. Задали контрольную в Паскале. Составить блок-схему и написать програму решения:
- Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А.

Да... это, конечно, безумно сложно...

Код:

CONST
 Nmax=100;
VAR
 Y:ARRAY[1..Nmax] of Real;
 N,i:Integer;
 A,Sum:Real;
BEGIN
 Write('N (number of elements) = ');
 Readln(N);
 Writeln;
 For i:=1 to N do
  begin
   Write('Y[',i:2,']= ');
   Readln(Y[i]);
  end;
 Writeln;
 Write('A = ');
 Readln(A);
 Sum:=0;
 For i:=1 to N do
  If Sqr(Y[i])<=A then Sum:=Sum+Y[i];
 Writeln;
 Writeln('Sum = ',Sum:7:3);
 Readln
END.

А вот блок-схемами, извините, не занимаюсь. Тут уж Вы сами как-нибудь.

Татуся · 27.03.2012, 12:53

Спасибки большое=)))

27.03.2012, 11:33	#1 (permalink)
Татуся Новичок Регистрация: 27.03.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите студентику Ребятки, помогите. Задали контрольную в Паскале. Составить блок-схему и написать програму решения: - Задан масив У(У1,У2,... Уn). Найти суму всех елементов масива, квадрат которых не превышает числа А.

27.03.2012, 12:53	#3 (permalink)
Татуся Новичок Регистрация: 27.03.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибки большое=)))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070