Заполнить массив случайными числами - Форум
Понедельник, 24.11.2014, 14:56

Программирование на паскале

Приветствую Вас Гость| RSS
Главная Заполнить массив случайными числами - Форум Регистрация Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Admin, renovatio 
Форум » Помощь в решении задач на паскале » Помощь в решении задач » Заполнить массив случайными числами (Помогите решить, Turbo Pascal,очень очень надо...)
Заполнить массив случайными числами
KsuДата: Вторник, 19.05.2009, 14:17 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
С помощью датчика случайных чисел сформировать матрицу K[10][10].Вывести ее на экран.
Сформировать одномерные массивы из:
-сумм положительных элементов каждой строки
-количеств положительных элементов каждого столбца
-минимальных элементов каждого столбца
Все полученные массивы вывести на экран.
 
Ксано4каДата: Вторник, 19.05.2009, 15:57 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 4
Награды: 0
Репутация: 0
Статус: Offline
Помогите очень очень надо!!!!! составте листинг, пожалуйста вот к этим задачкам!!!
1. Имеется одномерный массив А, состоящий из N произвольных чисел (А(N)), среди которых есть положительные отрицательные и равные нулю. Определить каких чисел в массиве больше, положительных или отрицательных. Не исключается случай равенства.
2. Выпонить действие над двумерными массивами. Программа должна обрабатывать любые числа, предъявлять исходные и новые(если они требуются) массивы. Дана матрица А символов размеро 4х3. Организовать и вывести на экран матрицу Б состоящую из целых чисел, полученных преобразованием чисел матрицы А.

Очень, очень надо!!!

 
AdminДата: Среда, 20.05.2009, 16:39 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 283
Награды: 11
Репутация: 16
Статус: Offline
Ксано4ка,
Code
Var a:array [1..30] of real;
i,n,minus,plus:integer;
begin
randomize;
read(n)
For i:=1 to n do begin a[i]:=random(1000)/10-50;  
write(' ',a[i]);
if a[i]<0 then inc(minus);
if a[i]>= then inc(plus);
end;
if minus>plus then write('minus>plus');
if plus>minus then write('plus>minus');
if plus=minus then write('plus=minus');
end.
  

Выложи задачу в раздел исходники=> массивы, с полным описанием


icq 374577534
вступайте http://vkontakte.ru/pascalcoder
 
AdminДата: Среда, 20.05.2009, 16:56 | Сообщение # 4
Генералиссимус
Группа: Администраторы
Сообщений: 283
Награды: 11
Репутация: 16
Статус: Offline
Ксано4ка,
Code
program art;
const x=4;
y=3;
var a:array [1..4,1..3] of real;
     b:array[1..4,1..3] of integer;
i,j:integer;
begin
randomize;
For i:=1 to x do  begin
  for j:=1 to y do begin a[i,j]:=random((1000)-500)/10;
   b[i,j]:=trunc(a[i,j]);     write(' ',a[i,j]);  end;
   writeln; end;
   writeln;

for i:=1 to x do begin
  for j:=1 to  y do write(' ',b[i,j]); writeln; end;
  end.


icq 374577534
вступайте http://vkontakte.ru/pascalcoder
 
Форум » Помощь в решении задач на паскале » Помощь в решении задач » Заполнить массив случайными числами (Помогите решить, Turbo Pascal,очень очень надо...)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2014 Сайт управляется системой uCoz