OberonCore https://forum.oberoncore.ru/ |
|
Помогите кто чем может!!! https://forum.oberoncore.ru/viewtopic.php?f=35&t=201 |
Страница 1 из 3 |
Автор: | Sid Vicious [ Четверг, 11 Май, 2006 15:37 ] |
Заголовок сообщения: | Помогите кто чем может!!! |
Составить программу в которой сформировать двумуерный целочисленный массив A[1..10,1..10] из случайных целых чисел и подсчитать суммы строк массива. |
Автор: | Вячеслав Бойко [ Четверг, 11 Май, 2006 15:47 ] |
Заголовок сообщения: | Re: Помогите кто чем может!!! |
У Вас проблема с генерацией случайных чисел? Посмотрите http://www.zinnamturm.de/#Pbox. ( в модуле PboxRandom ) |
Автор: | Илья Ермаков [ Четверг, 11 Май, 2006 18:15 ] |
Заголовок сообщения: | |
Можно использовать ObxRandom: 1) Инициализируем генератор текущим тактом времени: ObxRandom.InitSeed(SHORT(Services.Ticks()) 2) ObxRandom.Uniform возвращает нам случайное число от 0 до 1. Получить, как в ТурбоПаскале, случайное из целого диапазона, можно так: Код: PROCEDURE Random (n: INTEGER): INTEGER;
BEGIN RETURN SHORT(ENTIER(ObxRandom.Uniform() * n)) END Random; |
Автор: | Sid Vicious [ Пятница, 12 Май, 2006 08:20 ] |
Заголовок сообщения: | |
У меня проблема с подсчетом суммы строк массива!! |
Автор: | Grabli [ Пятница, 12 Май, 2006 09:54 ] |
Заголовок сообщения: | |
Sid Vicious писал(а): У меня проблема с подсчетом суммы строк массива!!
Это серьёзная проблема. Я бы сделал так: Код: MODULE CalcSum;
VAR Ma: ARRAY 10 OF ARRAY 10 OF INTEGER; MRes: ARRAY 10 OF INTEGER; Mi, Mk: INTEGER; BEGIN (* Заполнение массива Ma *) Следует заполнить чем-нибудь (* Расчет суммы *) FOR Mi:=0 TO 9 DO FOR Mk:=0 TO 9 DO INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *) END; END; END CalcSum. |
Автор: | Sid Vicious [ Пятница, 12 Май, 2006 13:12 ] |
Заголовок сообщения: | |
MODULE CalcSum; VAR Ma: ARRAY 10 OF ARRAY 10 OF INTEGER; MRes: ARRAY 10 OF INTEGER; Mi, Mk: INTEGER; BEGIN (* Заполнение массива Ma *) Следует заполнить чем-нибудь (* Расчет суммы *) FOR Mi:=0 TO 9 DO FOR Mk:=0 TO 9 DO INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *) END; END; END CalcSum. Че та не то! |
Автор: | Sid Vicious [ Пятница, 12 Май, 2006 13:15 ] |
Заголовок сообщения: | |
uses crt; var a:array[1..10,1..10] of byte; i,j:integer; begin clrscr; randomize; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(15); write(a[i,j]:4); end; end; end. Массив из случайных чисел! Как дальше подсчитать суммы строк массива! |
Автор: | Grabli [ Пятница, 12 Май, 2006 14:03 ] |
Заголовок сообщения: | |
Конечно не то. Ты в Turbo Pascal работаешь? В паскале то что я написал будет выглядеть примерно так(+генерация случайных чисел): Код: uses crt;
var a:array[1..10,1..10] of byte; b:array[1..10] of byte; i,j:integer; begin clrscr; randomize; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(15); end; end; for i:=1 to 10 do begin for j:=1 to 10 do begin b[i]:=b[i]+a[i,j]; end; writeln(b[i]:4); end; end. |
Автор: | Sid Vicious [ Пятница, 12 Май, 2006 19:34 ] |
Заголовок сообщения: | |
Да в Турбо! Спасибо Grabli ! Вроде всё работает!!! Через пару дней точно скажу!! |
Автор: | Борис Рюмшин [ Суббота, 13 Май, 2006 09:33 ] |
Заголовок сообщения: | |
Однако, товарищи... |
Автор: | Борис Рюмшин [ Суббота, 13 Май, 2006 09:49 ] |
Заголовок сообщения: | |
Sid Vicious писал(а): Да в Турбо!
Спасибо Grabli ! Вроде всё работает!!! Через пару дней точно скажу!! Не в той вы среде работаете, сударь, и не с тем языком. Тут мы Компонентным Паскалем знимаемся... |
Автор: | Сергей Оборотов [ Воскресенье, 14 Май, 2006 05:14 ] |
Заголовок сообщения: | |
Цитата: MODULE CalcSum; Возможно Вы не использовали кнопку Code. Она рядом с Quote находится.
VAR Ma: ARRAY 10 OF ARRAY 10 OF INTEGER; MRes: ARRAY 10 OF INTEGER; Mi, Mk: INTEGER; BEGIN (* Заполнение массива Ma *) Следует заполнить чем-нибудь (* Расчет суммы *) FOR Mi:=0 TO 9 DO FOR Mk:=0 TO 9 DO INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *) END; END; END CalcSum. Че та не то! |
Автор: | Sid Vicious [ Вторник, 23 Май, 2006 18:16 ] |
Заголовок сообщения: | |
ПОМОГИТЕ Очень надо !!!!!!! Составить программу в которй сформировать одномерный массив A[1..100] из случайных целых чисел.Скопировать массив A в массив В[1..100] таким образом чтобы B[1]=A[51], B[2]=A[52], ... ,B[50]=A[100],B[51]=A[1],B[52]=A[2], ... ,B[100]=A[50]!!! Прошлая задача ништяк прокатила!!!Спасибо Grabli!!!:!:!! |
Автор: | Сергей Оборотов [ Среда, 24 Май, 2006 21:35 ] |
Заголовок сообщения: | |
Я бы Вам предложил делать одновременное заполнение обоих массивов. Таким путем можно несколько съэкономить на записи и немного увеличить быстродействие программы. Примерно так: for (int i=1;i<=100;i++) {int r = rnd(); A[i] = r; B[i<=50?i+50:i-50]=r}. А откуда Вы эти задачи берете? Может быть лучше начать с чего нибудь попроще? |
Автор: | Sid Vicious [ Четверг, 25 Май, 2006 16:36 ] |
Заголовок сообщения: | |
GUEST писал(а): Я бы Вам предложил делать одновременное заполнение обоих массивов. Таким путем можно несколько съэкономить на записи и немного увеличить быстродействие программы.
Примерно так: for (int i=1;i<=100;i++) {int r = rnd(); A[i] = r; B[i<=50?i+50:i-50]=r}. А откуда Вы эти задачи берете? Может быть лучше начать с чего нибудь попроще? Можно на ты!В университете дают!А не могли ли выложит полностью весь код программы! Это для Турбо Паскаля? |
Автор: | Сергей Губанов [ Четверг, 25 Май, 2006 18:03 ] |
Заголовок сообщения: | |
Sid Vicious писал(а): В университете дают!А не могли ли выложит полностью весь код программы! Это для Турбо Паскаля?
В Университете дают, а Вы вместо того чтобы самому подумать сюда приходите просить решить задачку кого-то другого? |
Автор: | Sid Vicious [ Четверг, 25 Май, 2006 18:09 ] |
Заголовок сообщения: | |
Сергей Губанов писал(а): Sid Vicious писал(а): В университете дают!А не могли ли выложит полностью весь код программы! Это для Турбо Паскаля? В Университете дают, а Вы вместо того чтобы самому подумать сюда приходите просить решить задачку кого-то другого? Чё смог я сделал !!! А это не знаю всё перепробавал не получалось вот и спросил! Как будто это сильно вас отвлекает!!! |
Автор: | Info21 [ Четверг, 25 Май, 2006 18:59 ] |
Заголовок сообщения: | |
Борис Рюмшин писал(а): :shock: Однако, товарищи...
По-моему, пора банить... |
Автор: | Илья Ермаков [ Четверг, 25 Май, 2006 19:05 ] |
Заголовок сообщения: | |
Да ладно, Федор Васильевич, пусть помогут, у кого пара минут есть. Оберонщики - друзья человеков |
Автор: | Сергей Оборотов [ Четверг, 25 Май, 2006 20:42 ] |
Заголовок сообщения: | |
Sid Vicious писал(а): Сергей Губанов писал(а): Sid Vicious писал(а): В университете дают!А не могли ли выложит полностью весь код программы! Это для Турбо Паскаля? ... самому подумать сюда приходите просить решить задачку кого-то другого? Как будто это сильно вас отвлекает!!! |
Страница 1 из 3 | Часовой пояс: UTC + 3 часа |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |