Нужна помощь в задаче! Пожалуйста, надо сдать!
Даны натуральное число n, действительная матрица размера n9. найти средне арифметическое:
а) каждого из столбцов; б) каждого из столбцов, имеющих чётные номера. ЕСЛИ НЕ СЛОЖНО ТО ПРОГРАММУ НАПИСАТЬ ПОЛНОСТЬЮ С НАЧАЛА!!!!!ПОЖАЛУЙСТА!!!!:tehnari_ru_121::tehnari_ ru_121::tehnari_ru_121::tehnari_ru_121: |
1) что есть
Цитата:
2) а почему бы вам самим не попробовать? что не получится, мы подскажем |
Цитата:
|
выкладывайте
|
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. строго не судите я просто мало понимаю эту тему((( |
а на счет n9 это выглядит так nx9
|
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); да и вообще, выводить лучше осмысленный текст, дабы было понятно, что программа выводит |
спасибо щас попробую исправить
|
вот 4 пункт не могу сообразить что куда !!!!
|
вот что получилось
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. |
Часовой пояс GMT +4, время: 10:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.