|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.12.2011, 23:57 | #1 (permalink) |
Новичок
Регистрация: 15.12.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Обработка одномерных и двумерных массивов
2. (двумерный массив) - Дана действительная матрица размера 45. Найти произведение всех ее отрицательных элементов. |
15.12.2011, 23:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Может быть решение данного вопроса имеется где то тут Циклические программы с использованием двумерных числовых массивов Обработка одномерных массивов Заданы два двумерных массива А(4,4) и В(3,3). Для каждого из них переставить столбцы Обработка txt Обработка строк,массивов,записей Обработка массивов |
16.12.2011, 09:45 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, летом наши экстрасенсы обещали заглянуть, тогда и узнаем, на каком языке программирования нужно выполнить задание. Ждите и помните - надежда умирает последней!
|
16.12.2011, 13:40 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Первая задача Паскаль:
Код:
var q:array [1..8] of integer; i:integer; begin randomize; for i:=1 to 8 do begin q[i]:=random(100); write(q[i]:3); end; writeln; for i:=1 to 8 do if q[i] mod 7=5 then write(q[i]:3); readln end. Код:
#include <stdio.h> #include <time.h> using namespace std; int main () { srand(time(NULL)); int q[8],i; for (i=0;i<8;i++) { q[i]=rand()%100; printf ("%d",q[i]); } for (i=0;i<8;i++) { if (q[i]%7==5) printf ("%d",q[i]); } getchar(); } |
16.12.2011, 13:41 | #4 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Вторая задача Паскаль:
Код:
var a:array [1..4,1..5] of integer; i,j,p:integer; begin randomize; for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=random(10)-5; write (a[i,j]:2); if a[i,j]<0 then p:=p*a[i,j]; end; writeln; end; write ('p=',p); readln end. Код:
#include <stdio.h> #include <time.h> using namespace std; int main () { srand(time(NULL)); int a[4][5],i,j,p; for (i=0;i<4;i++){ for (j=0;j<5;j++){ a[i][j]=rand()%10; printf ("%d",a[i][j]); if (a[i][j]<0) p*=a[i][j]; } printf("\n"); } printf ("P=%d",p); getchar(); } |
16.12.2011, 14:48 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Шрек, а где Ада, Фортран, PL и Ассемблер?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.12.2011, 15:02 | #6 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Это, уж простите, не ко мне!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|