|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2010, 12:26 | #1 |
Регистрация: 28.05.2010
Сообщений: 4
|
Паскаль. Матрица.Блок-схема.
Здравстуйте.Помогите пожалуйста с блок-схемой. и проверьте пожалуйста написанную мной программу...Задана матрица E(N,M) N<=15,M<=20.Отпечтать номера и средние арифметические тех строк, которые начинаются с 1. Если таких строк не окажется, то выдать соответствующее сообщение.
Program z1; var E:array[0..15,0..20]of integer; sr,i,j,k,m,n:integer; begin read(n); for i:=1 to n do for j:=1 to m do read (E[ i,j]); begin k:=0; for i:=1 to n do if E[i,1]=1 then begin k:=1; sr:=0; for j:=1 to m do sr:=sr+E[i,j]; writeln('Строка ',i,' среднее=',sr/m:0:2); end; if k=0 then writeln('Таких строк нет!'); end; end |
30.05.2010, 13:33 | #2 |
Форумчанин
Регистрация: 30.04.2010
Сообщений: 317
|
а где ввод m ?
и зачем массив с 0 если вы все равно с 1 цикл гоните?
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!
|
30.05.2010, 13:49 | #3 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
ХаХ.А ему на сайбере уже сделали схему и он радостный.Вот он и думает что у него всё верно.
にんじゃ
|
30.05.2010, 17:17 | #4 |
Пользователь
Регистрация: 30.05.2010
Сообщений: 10
|
Здравстуйте.Помогите пожалуйста с программой:
Найти минимальний елемент матрици A(m x n). Вот я что то пробувал. Помогите довести до конца. Program lab_15; Uses Crt; const n=4; m=4; var a:array[1..m,1..n]of real; i,j,k:integer; begin window(3,2,65,25); Textcolor(5);TextBackground(9); clrscr; writeln('Laboratorna robota'); writeln('Znaytu kilkist elementiv matruci rivnuh 0'); writeln('vukonav stydent hrypu KA-11'); writeln('Olexsndr'); sound(1000);delay(1000);nosound; window(30,5,78,24); textcolor(black);textbackground(red ); clrscr; writeln('vvedit n ta m'); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']=');readln(a[i,j]); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок схема | Лёха | Помощь студентам | 32 | 18.12.2010 18:42 |
Блок-схема к программе на Паскаль(структура записи, считывания) | artemon16 | Помощь студентам | 1 | 04.12.2009 13:15 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |