Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 32
1

Расчет матрицы и выведение графика

09.12.2015, 18:30. Показов 549. Ответов 7
Метки нет (Все метки)

Здравствуйте, у меня есть код для расчета матрицы и выведения графика:
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
writeln('Введите коэффициенты матрицы нажимая ENTER:');
   for k:=1 to n do 
    for j:=1 to n do 
     begin
      write ('a[',k,',',j,']='); 
      read(a[k,j]); 
     end;
   writeln('Введите свободные члены нажимая ENTER:');
    for k:=1 to n do 
     begin
      write ('b[',k,']=');
      read (b[k]);
     end;
  writeln; 
  
 
  writeln('Матрица:'); 
  for i:=1 to n do 
   begin
    for j:=1 to n do
        write (a[i, j],' '); 
        write (b[i],' '); 
        writeln;
   end;
  writeln;
 
    for i:=1 to n-1 do 
     begin
      for k:=i+1 to n do 
       begin
if a[i,i]=0 then a[i,i]:=c; 
 
        delenie:= -1*(a[k,i] / a[i,i]); 
         for j:=1 to n do 
             a[k,j]:= a[k,j] + a[i,j] * delenie;
             b[k]:= b[k] + b[i] * delenie; 
       end;
    end;
    writeln('Результат прямого хода:'); 
    for i:=1 to n do
      begin
       for j:=1 to n do
        write (a[i, j],' '); 
        write (b[i],' '); 
        writeln;
      end;
    writeln;
    for i:=n downto 1 do 
     begin
      for j:= i+1 to n do
          b[i]:= b[i] - a[i,j] * x[j]; 
          x[i]:= b[i] / a[i,i]; 
     end;
 
     writeln('Ответ:'); 
    for i:=1 to n do
     writeln('X[',i:1,']=', x[i], '.'); 
   readln;
end.
Мне нужно, чтобы при запуске программы появлялась кнопка и уже при нажатии на эту кнопку выводилась моя программа для расчета. Как это можно сделать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2015, 18:30
Ответы с готовыми решениями:

Выведение графика функции (MFC)
Люди помогите плз,я написал прогамму которая выводит график функции одной перемненной,но при...

Выведение диагональных элементов матрицы
Нужно вывести элементы главной диагонали матрицы 5х5. Я думаю так: for i:=1 to 5 do for j:=1...

Расчёт площади замкнутого графика
Здравствуйте. В ходе обработки экспериментальных данных ( лабораторная работа) возникла...

Расчет графика сложной функции
Помогите переделать печать через For....do

7
17 / 17 / 16
Регистрация: 15.12.2012
Сообщений: 533
10.12.2015, 10:03 2
lECI, Вверху в паскале ABC есть кнопка "сервис" нажми на эту кнопку там появится список где есть такая строка "Создать форму". Нажми ее. У тебя создастся форма. накидай туда элементы которые тебе надо. вставишь свой код туда. Маленько его переделаешь и все.
0
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 32
10.12.2015, 14:34  [ТС] 3
У меня нету "создать форму"
0
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,102
10.12.2015, 14:41 4
Если у тебя просто АВС, то должна быть, если АВС.net Файл->Новый проект->Приложение Widows Forms
0
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 32
10.12.2015, 18:30  [ТС] 5
А как-то можно теперь мой код в эту кнопку запихать? Не знаю как это грамотно сделать
0
17 / 17 / 16
Регистрация: 15.12.2012
Сообщений: 533
10.12.2015, 18:37 6
lECI, можно конечно. Просто тыкни на эту кнопку два раза откроется метод этой кнопки. Потом вместо своих read впихни на форму текстовые поля для ввода. Посмотри в инете как считывать из этих текстовых полей. и вывод сделай в метку(либо еще куда-нибудь).
1
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,102
10.12.2015, 18:55 7
Кроме кнопки еще нужны поля вывода. Да еще у Вас что-то про график написано...
1
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 32
10.12.2015, 19:29  [ТС] 8
Всё, разобралась, спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2015, 19:29

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Расчет значений тригонометрической ф-и и построение графика
Помогите, нужно: 1)расчитать значение тригонометрической функции в заданных точках интервала;...

Расчет применяемости на сутки из годового графика
Здравствуйте! В прикрепленном Файле видно как работает на данный момент программа. Дан график и...

Расчет временных параметров для сетевого графика в Mathcad
Доброе время суток! Может кто знает, можно ли в Mathcad как-то реализовать расчеты для сетевого...

Расчет интеграла с параметром и построение графика зависимости от параметра
Здравствуйте, форумчане. Задача состоит в следующем найти решение интеграла, например такого...


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

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

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