Не отображается 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 **[ТС]**

Все норм

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@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

Опции темы