Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Ksenamorf
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 16
#1

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

28.11.2009, 17:43. Просмотров 1265. Ответов 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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 17:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите сделать одномерный масив с матрицами (Pascal):

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

Одномерный масив - Pascal
Помогите пожалуйста! 1) Найти максимальный четный элемент в данном массиве 2) Дана матрица целых чисел размерами 4х6. Вычислить...

Одномерный масив - Pascal
Дан массив размером N. Вычислить сумму элементов стоящих на четных местах. Определить минимальный и максимальный элемент массива кто...

одномерный масив - Pascal
Создать одномерный массив из 14 элементов. Вычислить максимальный элемент из элементов, имеющих четные индексы. Вывести эти значения. За...

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

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

20
Puporev
Модератор
53012 / 40823 / 14066
Регистрация: 18.05.2008
Сообщений: 94,949
28.11.2009, 19:24 #16
Ksenamorf,
1. Если еще раз назовете линейный массив матрицей, приеду и убью.
2. Мы не можем создать матрицу из векторов разного типа, это я уже писал.
3. Как Вы будете получать результирующий массив скажем по четырем исходным массивам, если условие четко прописано для двух исходных массивов?
0
Ksenamorf
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 16
28.11.2009, 19:28  [ТС] #17
ну нужно как то изменить,я вот сам не пойму как это сделать почему и обратился к вам.
мне препод подал пример что вот скажем тебе сказалитебе сделать 3 матрицы,а ты просто скопируешь текст и изменишь условие потом скажут а сделай 100матриц,то ты будешь копировать и изменять значения?
я вам описал моё задание как мне сказали...
0
Puporev
Модератор
53012 / 40823 / 14066
Регистрация: 18.05.2008
Сообщений: 94,949
28.11.2009, 19:35 #18
Ksenamorf, Я уже почти еду. Тебе препод сказал написать эту программу процедурой с параметром, чтобы в программе задавать параметры и выводить массивы. При чем наверняка не обязательно по 10 элементов. Сейчас накатаю, с собой привезу.
0
Ksenamorf
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 16
28.11.2009, 19:40  [ТС] #19
=))
ну я же не специально...я выразился как сам понял задание.
спасибо за терпение

Добавлено через 2 минуты
приезжайте рад буду познакомиться хоть 1 человек будет который нормально понимает програмирование
0
Puporev
Модератор
53012 / 40823 / 14066
Регистрация: 18.05.2008
Сообщений: 94,949
28.11.2009, 20:00 #20
Я думаю с тебя требовали это.
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
47
program lab;
uses crt;
type
mas1=array[1..100] of integer;
mas2=array[1..100] of real;
procedure Generate(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
for i:=1 to x do
 begin
  v1[i]:=random(9)+1;
  v2[i]:=random(9)+1;
  if v1[i]=v2[i] then v3[i]:=0
  else v3[i]:=1/(v1[i]-v2[i]);
 end;
end;
procedure Vyvod(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
writeln('Massiv A');
for i:=1 to x do
write(v1[i]:5);
writeln;
writeln;
writeln('Massiv B');
for i:=1 to x do
write(v2[i]:5);
writeln;
writeln;
writeln('Massiv C');
for i:=1 to x do
write(v3[i]:5:1);
writeln;
writeln;
end;
var a,b:mas1;
    c:mas2;
    n,i:integer;
begin
clrscr;
randomize;
write('Razmer massivov n=');
readln(n);
Generate(a,b,n,c);
Vyvod(a,b,n,c);
readln
end.
Добавлено через 1 минуту
Если захочешь, что бы программа по требованию повторяла все, то нужно добавить цикл repeat и маленькое меню из двух пунктов.

Добавлено через 6 минут
Тогда будет так, меню можешь переделать.
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
47
48
49
50
51
52
53
54
55
56
57
58
program lab;
uses crt;
type
mas1=array[1..100] of integer;
mas2=array[1..100] of real;
procedure Generate(var v1,v2:mas1;var x:byte; var v3:mas2);
var i:byte;
begin
write('Razmer massivov=');
readln(x);
for i:=1 to x do
 begin
  v1[i]:=random(9)+1;
  v2[i]:=random(9)+1;
  if v1[i]=v2[i] then v3[i]:=0
  else v3[i]:=1/(v1[i]-v2[i]);
 end;
end;
procedure Vyvod(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
writeln('Massiv A');
for i:=1 to x do
write(v1[i]:5);
writeln;
writeln;
writeln('Massiv B');
for i:=1 to x do
write(v2[i]:5);
writeln;
writeln;
writeln('Massiv C');
for i:=1 to x do
write(v3[i]:5:1);
writeln;
writeln;
readln;
end;
var a,b:mas1;
    c:mas2;
    n:byte;
    w:char;
begin
clrscr;
randomize;
repeat
clrscr;
writeln('Dejstvie 1-povtor, drugoe-vyhod');
readln(w);
case w of
'1':begin
    Generate(a,b,n,c);
    Vyvod(a,b,n,c);
    end;
else exit;
end;
until w<>'1';
end.
0
Ksenamorf
0 / 0 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Одномерный масив паскаль (очень срочно) - Pascal
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1,...

Отсортировать одномерный масив методом вставок по убывания! - Pascal
Мне нужно на завтра написать вот такой масив: Отсортировать элементы одномерного массива, стоящих на четных мисцях методом вставок по...

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

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


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

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

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