Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Ksenamorf
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 16
#1

Помогите сделать одномерный масив с матрицами - Pascal

28.11.2009, 17:43. Просмотров 1291. Ответов 20
Метки нет (Все метки)

14. Заданы одновымерные масивы А, В из 10 чисел. Построить масив С, каждый елемент которого вычесляется

Код
    | 1/(ai-bi),  когда  ai<>bі 
 Сi={ 
    | 0       ,    когда  ai=bi
Но задание дали вот как сделать прогу так что бы самому написать количество матриц и оно геренрировало их с рандомными числами.
Вот моя лаба из двух матриц и рандомными числами. как сделать что бы вписать число матриц и оно их делало?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program lab
uses crt;
var
   a,b:array[1..10] of integer;
   c:array[1..10] of real;
   i,j:integer;
   ch:char;
const n=10;
begin
{ repeat          }
  clrscr;
  writeln('BBeguTb Matix A');
  for i:=1 to n do
    a[i]:=random(10)+1;
  writeln('BBeguTb Matrix B');
  for i:=1 TO n do
    b[i]:=random(10)+1;
 
  writeln('Matrix A');
  for i:=1 TO n do
   begin
    write(a[i]:5);
   end;
 
  writeln;
  writeln('Matrix B');
  for i:=1 TO n do
   begin
    write(b[i]:5);
   end;
  writeln;
  for i:=1 TO n do
   begin
    if a[i]<>b[i] then  c[i]:=1/a[i]-b[i]
                  else c[i]:=0;
   end;
  for i:=1 TO n do
   begin
    write(c[i]:7:2);
   end;
 
   writeln;
   writeln('if you want to repeat calculations press y');
   ch:=readkey;
 {until ch<>'y';}
 readln;

http://www.cyberforum.ru/pascal/thread76272.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 17:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Помогите сделать одномерный масив с матрицами (Pascal):

Одномерный масив
В одномерном массиве вычислить количество чисел, которые кратны 5.

одномерный масив
Создать одномерный массив из 14 элементов. Вычислить максимальный элемент из...

Одномерный масив
Помогите пожалуйста! 1) Найти максимальный четный элемент в данном массиве...

осадки одномерный масив
пожалуйста помогите В массив введены результаты измерения среднего количества...

Дан масив А, сформировать одномерный.
Дан массив А (матрица) А (n*m). Сформировать одномерный массив из суммы каждого...

20
Ksenamorf
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 16
28.11.2009, 20:05  [ТС] #21
будем надеятся.
Спасибо за ваше терпение.

Добавлено через 2 минуты
А можно с вами связаться как нибудь другим способом?? там ICQ или эмеил?если понадобиться помощ ваша
0
28.11.2009, 20:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 20:05
Привет! Вот еще темы с решениями:

Одномерный масив паскаль (очень срочно)
В одномерном массиве с четным количеством элементов (2N) находятся координаты N...

Отсортировать одномерный масив методом вставок по убывания!
Мне нужно на завтра написать вот такой масив: Отсортировать элементы...

Упорядочить масивы по убыванию значений,и включить число Р в масив А,число Q в масив B,8 - в С.
Дано 3 масива A(1..n),B(1..10),C(1..m),а также числа P ,Q и 8.Упорядочить...

Помогите плиз с задачкой (одномерный массив)
Создать одномерный массив A. Все его элементы, не равные нулю, переписать,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru