09.05.2010, 23:01 | #1 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна помощь в задаче! Пожалуйста, надо сдать!
а) каждого из столбцов; б) каждого из столбцов, имеющих чётные номера. ЕСЛИ НЕ СЛОЖНО ТО ПРОГРАММУ НАПИСАТЬ ПОЛНОСТЬЮ С НАЧАЛА!!!!!ПОЖАЛУЙСТА!!!!:tehnari_ ru_121: |
09.05.2010, 23:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание, что на форуме уже встречались темы с похожим содержанием Нужна помощь по МК Нужна помощь |
09.05.2010, 23:08 | #2 (permalink) | |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
1) что есть
Цитата:
2) а почему бы вам самим не попробовать? что не получится, мы подскажем |
|
09.05.2010, 23:16 | #5 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Program bukvaa;
uses crt; const m=9; var i,j,n:integer; a:array[1..m,1..n] of real; begin clrscr; writeln('hghjghjg'); writeln; randomize; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:s/m; writeln('ghfghfghf',i,'knbkbn',s); end. строго не судите я просто мало понимаю эту тему((( |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.05.2010, 23:24 | #7 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
1) a:array[1..m,1..n] of real;
так нельзя обявлять размер массива. N должна быть константой, либо постоянным числом. Замените на: a:array[1..m,1..20] of real; 2) переменная s должна быть описана как вещественный тип, т.к. для нее будет применяться деление: s:real; 3) s:s/m; В операции присваивания пропущен знак =. Должно быть так: s:=s/m; 4) у вас отсутствует задание (ввод) массива и числа n 5) for i:=1 to n do begin у вас нет закрывающейся операторной скобки для выделенного begin'a. Поставьте его после writeln('ghfghfghf',i,'knbkbn',s); да и вообще, выводить лучше осмысленный текст, дабы было понятно, что программа выводит Последний раз редактировалось MrSTEP; 09.05.2010 в 23:40 |
09.05.2010, 23:37 | #10 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
вот что получилось
Program bukvaa; uses crt; const m=9; n=10; var i,j:integer; s:real; a:array[1..m,1..n] of real; begin clrscr; writeln('fdgf'); writeln; randomize; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('ghfghfghf',i,'knbkbn',s); readln end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|