|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.05.2010, 09:45 | #22 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!
ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ. |
12.05.2010, 12:00 | #23 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
1. Параметры i и n относятся к СТРОКАМ. 2. Параметры j и m относятся к СТОЛБЦАМ. 3. Обозначение матрицы n x m и, соответственно, массива A[1..n,1..m] означает n строк и m столбцов. Код:
Program bukvaa; uses crt; const n=10; m=9; var i,j:integer; s:real; a:array[1..n,1..m] of real; begin clrscr; writeln('vvedite massiv'); for i:=1 to n do for j:=1 to m do begin Write('a[',i,',',j,']= '); ReadLn(a[i,j]); end; writeln; for i:=1 to n do begin for j:=1 to m do Write(a[i,j]:8:3); writeln; end; WriteLn('Press "Enter" to continue'); ReadLn; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; s:=s/n; writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:8:3); end; WriteLn('Press "Enter" to continue'); ReadLn; for j:=1 to (m div 2) do begin s:=0; for i:=1 to n do s:=s+a[i,2*j]; s:=s/n; writeln('srednee arifmeticheskoe elementov ',2*j,' stolbza',s:8:3); end; ReadLn; end. |
|
12.05.2010, 18:36 | #25 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
А не знаете кто мог бы помочь с блок схемами?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.05.2010, 22:11 | #29 (permalink) | |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
kazax, создайте свою тему, и опишите задание полностью, Телепат с форума уволился |
|
12.05.2010, 22:23 | #30 (permalink) |
Новичок
Регистрация: 12.05.2010
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
MrSTEP я создал свою тему и задание выклал ,можете посмотреть и подсказать?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|