Задача паскаль

Madara · 31.10.2014, 14:59

Помогите с задачей пожалуйста

Vladimir_S · 31.10.2014, 15:18

Цитата:

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

Помогите с задачей пожалуйста

Да пожалуйста, экие пустяки:

Код:

Const
 N=10;

Var
 A,B,C:Array[1..N] of Integer;
 i:Integer;
 Mean:Real;

Begin
 Randomize;
 Mean:=0;
 for i:=1 to N do
  begin
   A[i]:=Random(20);
   B[i]:=Random(20);
   C[i]:=Random(20);
   Mean:=Mean+A[i]/N;
  end;
 Writeln('All: ');
 for i:=1 to N do
  writeln(i:2, '   A= ',A[i]:2,'   B= ',B[i]:2,'   C= ',C[i]:2);
 Writeln('Mean = ',Mean:0:5);
 Writeln('Selected:');
 for i:=1 to N do
  if (Sqr(A[i])>Sqr(B[i]-C[i])) and
     (Sqr(B[i])>Sqr(A[i]-C[i])) and
     (Sqr(C[i])>Sqr(B[i]-A[i])) then
   writeln(i:2, '   A= ',A[i]:2,'   B= ',B[i]:2,'   C= ',C[i]:2);
 Readln
End.

Madara · 31.10.2014, 15:20

А можно не через рандомайз?

Madara · 31.10.2014, 15:21

Без компьютера не могу на лист писать программы сразу(

Vladimir_S · 31.10.2014, 15:32

Цитата:

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

А можно не через рандомайз?

Можно.

Код:

Const
 N=10;

Var
 A,B,C:Array[1..N] of Integer;
 i:Integer;
 Mean:Real;

Begin
 Mean:=0;
 for i:=1 to N do
  begin
   Write('A[',i:2,']= '); Readln(A[i]);
   Write('B[',i:2,']= '); Readln(B[i]);
   Write('C[',i:2,']= '); Readln(C[i]);
   Mean:=Mean+A[i]/N;
  end;
 Writeln('All: ');
 for i:=1 to N do
  writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Writeln('Mean = ',Mean:0:5);
 Writeln('Selected;');
 for i:=1 to N do
  if (Sqr(A[i])>Sqr(B[i]-C[i])) and
     (Sqr(B[i])>Sqr(A[i]-C[i])) and
     (Sqr(C[i])>Sqr(B[i]-A[i])) then
   writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Readln
End.

А можно перестать лоботрясничать и начать, наконец, учиться, вместо того, чтобы шариться по форумам с подобной ерундой? Да нет, мне не трудно, только образование-то нужно не мне...

Vladimir_S · 31.10.2014, 15:33

Цитата:

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

Без компьютера не могу на лист писать программы сразу(

И чем мы можем в этой ситуации помочь?

Madara · 31.10.2014, 15:39

Вроде так будет
Var A,B,C:Array[1..N] of Integer;
i:Integer;
M:Real;
begin
Read(N);
M:=0;
for i:=1 to N do
begin
Read
Readln(A);
Readln(B);
Readln(C);
M:=M+A/N;
end;
Writeln('Все тройки: ');
for i:=1 to N do
writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2);
Writeln('Среднее арифметическое = ',M:0:5);
Writeln('Необходимые нам тройки ;');
for i:=1 to N do if (Sqr(A)>Sqr(B-C)) and
(Sqr(B)>Sqr(A-C)) and (Sqr(C)>Sqr(B-A)) then
writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2);
End.

Madara · 31.10.2014, 15:49

Я не верно написал

Madara · 31.10.2014, 15:50

Спасибо вам большое )

Vladimir_S · 31.10.2014, 16:19

Цитата:

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

Я не верно написал

Да уж... Ошибок - море.

31.10.2014, 14:59	#1 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача паскаль Помогите с задачей пожалуйста Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

31.10.2014, 14:59
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Информация которая содержится в этих обсуждениях должна вам помочь Паскаль. Задача Задача. Паскаль Задача, Паскаль Задача, Паскаль

31.10.2014, 15:20	#3 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А можно не через рандомайз?

31.10.2014, 15:21	#4 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Без компьютера не могу на лист писать программы сразу(

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

31.10.2014, 15:39	#7 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вроде так будет Var A,B,C:Array[1..N] of Integer; i:Integer; M:Real; begin Read(N); M:=0; for i:=1 to N do begin Read Readln(A); Readln(B); Readln(C); M:=M+A/N; end; Writeln('Все тройки: '); for i:=1 to N do writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2); Writeln('Среднее арифметическое = ',M:0:5); Writeln('Необходимые нам тройки ;'); for i:=1 to N do if (Sqr(A)>Sqr(B-C)) and (Sqr(B)>Sqr(A-C)) and (Sqr(C)>Sqr(B-A)) then writeln(i:2, ' A= ',A:2,' B= ',B:2,' C= ',C:2); End.

31.10.2014, 15:49	#8 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я не верно написал

31.10.2014, 15:50	#9 (permalink)
Madara Member Регистрация: 29.11.2013 Сообщений: 50 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо вам большое )