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


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

Помогите пожалуйста как можно скорее решить задачу.
Буду очень признателен.
Заранее спасибо!
Миниатюры
ffrdiffdzgu-01.jpg  
Madara вне форума   Ответить с цитированием

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

По запросам найдены топики, которые по содержанию схожи с вашим

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

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

Только без рандомайза пожалуйста
Madara вне форума   Ответить с цитированием
Старый 26.12.2013, 15:30   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от Madara Посмотреть сообщение
Помогите пожалуйста как можно скорее решить задачу.
Буду очень признателен.
Заранее спасибо!
Да пожалуйста - какие проблемы?
Код:
Const
 N=8;
Var
 A:Array[1..N,1..N] of Integer;
 X:Array[1..N] of Integer;
 i,j:Integer;
 Med_high,Med_low:Real;

Begin
 Med_high:=0;
 Med_low:=0;
 for j:=1 to N do X[j]:=0;
 for i:=1 to N do
  for j:=1 to N do
   begin
    Write('A[',i,',',j,']= ');
    Readln(A[i,j]);
    if j>i then Med_high:=Med_high+A[i,j];
    if j<i then Med_low:=Med_low+A[i,j];
    X[j]:=X[j]+A[i,j];
   end;
 Med_high:=Med_high/((N*N-N) div 2);
 Med_low:=Med_low/((N*N-N) div 2);
 Writeln('Matrix A:');
 for i:=1 to N do
  begin
   write('      ');
   for j:=1 to N do
    write(A[i,j]:8);
   writeln;
  end;
 writeln;
 writeln('Med_high= ',Med_high:0:3,'      Med_low= ',Med_low:0:3);
 if Med_high>Med_low then
  begin
   writeln;
   write('Sums: ');
   for j:=1 to N do write(X[j]:8);
  end;
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 26.12.2013, 15:44   #4 (permalink)
Madara
Member
 
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо! Выручили)
Madara вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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