Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 3
1

Двумерные массивы, операции над ними

04.04.2010, 19:09. Показов 656. Ответов 2
Метки нет (Все метки)

Всем, здравствуйте! Набрала текст программы на паскале, но ответ выводит неправильно. Не могу понять, что такое - программу не раз проверяла, все в порядке... Прошу помочь.
Задание:
1. Вычислить элементы одномерных массивов X[i] и Y[j] по формулам:
x[i]=a+(i-1)*(b-a)/n
y[j]=c+(j-1)*(d-c)/m, где а=с=0, b=d=1, n=m=10.
2. Вычислить элементы двумерного массива Z[i, j], по формуле:
z[i, j]=y[j]/sqrt(1+x[i]*x[i]).
3. Вычислить элементы двумерного массива L[i, j], в котором элементы каждой строки массива Z расположены по возрастанию.
4. Вычислить вектор V[i], в котором каждый элемент равен разности соответствующего элемента 1 и 2 строк массива L.
Проблема заключается в том, что после нажатия Alt+F5, программа не выводит матрицу Z. Заранее благодарю за ответ.

Добавлено через 5 минут
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
59
60
61
62
63
64
65
66
67
68
69
program  lab_5A;
Uses Crt;
var x: array [1..11] of real;
    y: array [1..11] of real;
    z: array [1..11, 1..11] of real;
    l: array [1..11, 1..11] of real;
    v: array [1..11] of real;
    a, b, c, d, min, f: real;
    i, j, m, n, k, s: integer;
begin
Clrscr;
writeln('vvedite a, b, c, d, n, m');
read(a, b, c, d, n, m);
for i:=1 to n+1 do
    x[i]:=a+(i-1)*(b-a)/(n);
for j:=1 to m+1 do
    y[j]:=c+(j-1)*(d-c)/(m);
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
           z[i,j]:=y[j]/(sqrt(1+x[i]*x[i]))
    end;
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
       write(z[i, j]:6:2, ' ');
       writeln
    end;
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
           begin
              l[i, j]:=z[i, j]
           end;
    end;
for i:=1 to n do
    begin
       for j:=1 to m do
           begin
              min:=l[i, j];
              for k:=j+1 to n+1 do
                  begin
                     if min>l[i, k]
                     then
                        begin
                           l[i, j]:=min;
                           s:=k
                        end;
                  end;
              f:=z[i, j];
              l[i, j]:= min;
              l[i, k]:=f;
            end;
              for i:=1 to n+1 do
                  begin
                     for j:=1 to m+1 do
                         begin
                            write(l[i,j]:6:2, ' '); {matrix L}
                            writeln;
                         end;
           end;
    end;
for j:=1 to m+1 do
    begin
       v[i]:=l[1, j]-l[2, j];
       write(v[i]:6:2, ' '); {vector V}
       writeln;
    end
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2010, 19:09
Ответы с готовыми решениями:

Простые типы данных и операции над ними.
Имеются вещественные переменные a:=-2345.78 и b:=1.8351e2; целая переменная c:=367; переменные...

Операции с индексированными переменными и двумерные массивы
1.Даны натуральные n, действительные числа a1, … , an. Преобразовать массив, расположив элементы в...

Двумерные массивы - сложение, мин. элемент над главной диагональю
Здравствуйте, помогите пожалуйста. У меня 3 проблемы: 1) Не правильно выводится минимальный...

Двумерные массивы и операции с ними
Ввести двумерный массив размером 5*5 с клавиатуры. Вывести массив на экран в виде таблицы. Для...

2
772 / 577 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
04.04.2010, 19:24 2
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program mas;
Uses crt;
Const n=10;
Var x,y: array[1..n] of real; i,a,b,c,d: byte;
Begin
d:=1;
b:=1;
a:=0;
c:=0;
Clrscr;
For i:=1 to n do
begin
x[i]:=a+(i-1)*(b-a)/n;
y[i]:=c+(i-1)*(d-c)/n;
end;
For i:=1 to n do
Write(x[i]:4:2,'  ');
Writeln;
For i:=1 to n do
Write(y[i]:4:2,'  ');
End.
0
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 3
04.04.2010, 19:28  [ТС] 3
Не понятно. почему только часть программы...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2010, 19:28

Операции над матрицами (двумерные массивы)
Заданы две квадратные матрицы одинакового размера (≤ 5*5). Найти матрицу АВ-ВА. Вычисление...

Высказывания и операции над ними
помогите пожалуйста) 3. Используя двухместные предикаты P (x, y) – “мужчина (x) и женщина (y)...

Строки и операции над ними
Нужно ввести строку и положить в два разных массива каждую четную букву строки и каждую 3 букву в...

Множества и операции над ними
Добрый день форумчане! Помогите пожалуйста с задачкой по Дискретной математике! Заранее...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru