Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


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

Помогите с задачей пожалуйста
Миниатюры
iiaue-aeieoiaio-9_1.jpg  
Madara вне форума   Ответить с цитированием

Старый 31.10.2014, 14:59
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Информация которая содержится в этих обсуждениях должна вам помочь

Паскаль. Задача
Задача. Паскаль
Задача, Паскаль
Задача, Паскаль

Старый 31.10.2014, 15:18   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 31.10.2014, 15:20   #3 (permalink)
Madara
Member
 
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Без компьютера не могу на лист писать программы сразу(
Madara вне форума   Ответить с цитированием
Старый 31.10.2014, 15:32   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от 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.
А можно перестать лоботрясничать и начать, наконец, учиться, вместо того, чтобы шариться по форумам с подобной ерундой? Да нет, мне не трудно, только образование-то нужно не мне...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 31.10.2014, 15:33   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от Madara Посмотреть сообщение
Без компьютера не могу на лист писать программы сразу(
И чем мы можем в этой ситуации помочь?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 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.
Madara вне форума   Ответить с цитированием
Старый 31.10.2014, 15:49   #8 (permalink)
Madara
Member
 
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Спасибо вам большое )
Madara вне форума   Ответить с цитированием
Старый 31.10.2014, 16:19   #10 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от Madara Посмотреть сообщение
Я не верно написал
Да уж... Ошибок - море.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.