Не отображается 1 шаг при решении СЛАУ в программе

@iluxa1810 · Регистрация: 03.09.2011

Студворк — интернет-сервис помощи студентам

Не могу понять,где ошибка . Программа решает СЛАУ методом итераций и должна в процессе подсчетов выводить получаемые иксы. Иксы она выводит,но проблема в том,что первую партию иксов она пропускает и начинает сразу со второй.В чем глюк,я понять не могу...

Delphi
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
procedure TForm1.btn3Click(Sender: TObject);
var
 
  dif,buf:array[1..6] of Real;
  f:Real;
  c,colvo:integer;
begin
 
     for i:=1 to n do
     a[i]:=0;
       c:=0;
       colvo:=0;
     while c<n  do
     begin
       c:=0;
     for i:=1 to n do
     begin
     buf[i]:=a[i];
     f:=0;
     For j:=1 to n do
     f:=x[i,j]*a[j]+f;
     a[i]:=f+x[i,m];
     end;
     for i:=1 to n do
      begin
        strngrd3.cells[i-1,colvo]:=FloatToStr(a[i]);
     dif[i]:=Abs(buf[i]-a[i]);
     if dif[i]<=d then c:=c+1
      end;
      strngrd3.rowcount:=strngrd3.RowCount+1;
     colvo:=colvo+1;

Добавлено через 52 секунды
Конечный ответ верным получается .

Добавлено через 25 минут
И еще такой вопрос.
Хотел использовать ffFixed,что бы значения выводились с требуемым кол-вом знаков после запятой ,а он их округляет немного .Что не есть хорошо .
К примеру ввожу задание.После использования ffFixed получается,что 2 последние строки идентичны в подсчетах,а без ffFixed значения отличаются.Нельзя ли убрать это округление?Мне надо просто ограничить кол-во знаков после запятой.

WoodHead · 02.05.2012, 20:05

Сообщение от iluxa1810

Ну сколько знаков после запятой в точности,столько и должно выводиться .

Тогда просто FloatToStr(a[i]), как у тебя в примере. Не понял, в чем затруднение.

@iluxa1810 · 02.05.2012, 20:08 **[ТС]**

Тогда там около 6 знаков выводится,если не больше

WoodHead · 02.05.2012, 20:10

Сообщение от iluxa1810

Тогда там около 6 знаков выводится,если не больше

Цитирую:

Ну сколько знаков после запятой в точности,столько и должно выводиться .

@iluxa1810 · 02.05.2012, 20:22 **[ТС]**

Ну я ввожу точность 0,01 и выводится больше 2 ух .

WoodHead · 02.05.2012, 20:32

Попробуй

Delphi
1
FloatToStrF(a[i],ffFixed, 8, fix);

Вообще, чем больше число на месте 8, тем лучше. Главное, не вылезти за допустимый диапазон.

The Precision parameter specifies the precision of the given value. It should be 7 or less for values of type Single, 15 or less for values of type Double, and 18 or less for values of type Extended.

перевожу: 7 или меньше - для данных типа single, 15 или меньше - для Double, 18 или меньше - для Extended.
Если что, Real, это и есть Double.

@iluxa1810 · 02.05.2012, 20:35 **[ТС]**

Все норм

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@iluxa1810 13 / 13 / 11 Регистрация: 03.09.2011 Сообщений: 1,026
	02.05.2012, 20:08 [ТС]
	Тогда там около 6 знаков выводится,если не больше 0

@iluxa1810 13 / 13 / 11 Регистрация: 03.09.2011 Сообщений: 1,026
	02.05.2012, 20:22 [ТС]
	Ну я ввожу точность 0,01 и выводится больше 2 ух . 0

@iluxa1810 13 / 13 / 11 Регистрация: 03.09.2011 Сообщений: 1,026
	02.05.2012, 20:35 [ТС]
	Все норм 0