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


Ответ
 
Опции темы Опции просмотра
Старый 06.06.2014, 21:59   #1 (permalink)
Egor1Mozi
Новичок
 
Регистрация: 31.05.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Блок-схема к программе

uses crt;
const n=4;
* * * a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
* * * * * * * * * * * * * * * * * ( *1, *2,-1,-8),
* * * * * * * * * * * * * * * * * ( -3, *4, 5, 0),
* * * * * * * * * * * * * * * * * ( *5, -7, 0, 4));
var b:array[1..n,1..n] of real;
* * i,j,k:byte;
* * s:real;
begin
clrscr;
writeln('Исходная матрица');
k:=0;
s:=0;
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * if j<n-i+1 then
* * *begin
* * * k:=k+1;
* * * s:=s+a[i,j];
* * *end;
* * write(a[i,j]:7:2);
* *end;
* writeln
*end;
s:=s/k;
writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
writeln('Новая матрица');
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * b[i,j]:=a[i,j]*s;
* * write(b[i,j]:7:2)
* *end;
* writeln
*end;
readln
end.
Egor1Mozi вне форума   Ответить с цитированием

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

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

Помогите, пожалуйста, построить блок схему по программе
Нужна блок-схема к программе

Старый 07.06.2014, 09:28   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,838
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

На будущее: если Вы хотите, чтобы форматирование текста программы (отступы) сохранилось, то это делается так. Подготавливаете своё сообщение в Расширенном режиме (кнопка под полем ответа), копируете текст программы, выделяете его и жмёте одну из двух кнопок: # либо php. Все Ваши разметки сохранятся. Или можно в режиме быстрого ответа вручную перед и после листинга добавить теги {CODE} и {/CODE}, соответственно. Только скобки, конечно, не фигурные, а квадратные "[", "]". А звёздочки лепить не надо. Вот так:
С тегами CODE:
Код:
uses crt;
const n=4;
        a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
                                    (  1,  2,-1,-8),
                                    ( -3,  4, 5, 0),
                                    (  5, -7, 0, 4));
var b:array[1..n,1..n] of real;
    i,j,k:byte;
    s:real;
begin
 clrscr;
 writeln('Исходная матрица');
 k:=0;
 s:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if j<n-i+1 then
      begin
       k:=k+1;
       s:=s+a[i,j];
      end;
     write(a[i,j]:7:2);
    end;
   writeln
  end;
 s:=s/k;
 writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
 writeln('Новая матрица');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=a[i,j]*s;
     write(b[i,j]:7:2)
    end;
   writeln
  end;
 readln
end.
С тегами php:
PHP код:
uses crt;
const 
n=4;
        
a:array[1..n,1..nof real=((0.7,-1263),
                                    (  
1,  2,-1,-8),
                                    ( -
3,  450),
                                    (  
5, -704));
var 
b:array[1..n,1..nof real;
    
i,j,k:byte;
    
s:real;
begin
 clrscr
;
 
writeln('Исходная матрица');
 
k:=0;
 
s:=0;
 for 
i:=1 to n do
  
begin
   
for j:=1 to n do
    
begin
     
if j<n-i+1 then
      begin
       k
:=k+1;
       
s:=s+a[i,j];
      
end;
     
write(a[i,j]:7:2);
    
end;
   
writeln
  end
;
 
s:=s/k;
 
writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
 
writeln('Новая матрица');
 for 
i:=1 to n do
  
begin
   
for j:=1 to n do
    
begin
     b
[i,j]:=a[i,j]*s;
     
write(b[i,j]:7:2)
    
end;
   
writeln
  end
;
 
readln
end

__________________
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, время: 23:05.

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