Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Нужна помощь в задаче! Пожалуйста, надо сдать! (http://www.tehnari.ru/f41/t35873/)

Vladimir_S 10.05.2010 08:35

Дублирующий запрос из чужой темы http://www.tehnari.ru/f41/t32005/ удален.
Модератор.

Строитель 12.05.2010 09:45

Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!

ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ.

Vladimir_S 12.05.2010 12:00

Цитата:

Сообщение от Строитель (Сообщение 333426)
Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!

ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ.

Ладно. Только вот что. Обозначения я использовал те, к которым привык, а именно:
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:34

Огромное Вам СПАСИБО!!!!!!

Строитель 12.05.2010 18:36

А не знаете кто мог бы помочь с блок схемами?

MrSTEP 12.05.2010 18:54

А какое задание для схемы?

Строитель 12.05.2010 21:51

задание одно это же другое я сам написал но со схемами у меня вообщем беда((

kazax 12.05.2010 21:55

помогите с написанием программы по массивамнадо сдать

MrSTEP 12.05.2010 22:11

Цитата:

задание одно это же другое
Строитель, как это понимать? давайте задание, завтра к вечеру может сделаю.
kazax, создайте свою тему, и опишите задание полностью, Телепат с форума уволился

kazax 12.05.2010 22:23

MrSTEP я создал свою тему и задание выклал ,можете посмотреть и подсказать?


Часовой пояс GMT +4, время: 18:54.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.