Версия для печати темы

Автор: Яndex 13.03.2008 2:49

вот задача:
организовать ввод данных их фаила (f1.txt), решить СЛУ с верхней треугольной матрицей.

uses crt;
var s,x,k,l,i,j,n:integer;
q:array[1..6,1..5] of integer;
xn:array[1..5] of integer;
f1:text;
begin
clrscr;
 assign (f1,'f1.txt');
 reset (f1);
 for i:=1 to 6 do begin
 for j:=1 to 5 do begin
  read (f1,q[i,j]);
  write (q[i,j]:6);
  end;
  readln(f1);
  end;
  for k:=n downto 1 do begin
  s:=0;
  for l:=k+1 to n do begin
  s:=s+q[i,j]*xn[l];
  end;
  writeln(xn[k]);
  readln;
  end;
  readln;
  end.

примерно так, но вот не получается вывести строку переменных X... и ваще хз считает ли он их, т.к. выводит он строку нулей (приэтом последний X точно не равен 0).
фаил ф1- константы в блокноте (6x5)

Автор: volvo 13.03.2008 2:53

Открыл Блокнот, никакого файла там не оказалось... Думаю, что же случилось? Может, у меня что-то не так установлено?

Ты файл мог сразу присоединить, чтобы можно было воспроизвести твою же ситуацию, а не заниматься придумыванием каких-то данных? Или надо обязательно сказать об этом, чтоб ты догадался?

Автор: Яndex 13.03.2008 15:37

Ща будет...



Прикрепленные файлы
 f1.txt ( 65 байт ) Кол-во скачиваний: 206

Автор: Яndex 14.03.2008 3:29

volvo или кто-нибудь, посморите плиз

Автор: Ozzя 15.03.2008 18:51

    1     2     3     4     5     0     3     4     5     2     0     0     1
  0

Посмотрел. Выводит эдак вот твоя программа.
Эрго - что-то считает.
Правильно ли?
Проверь.
Оттестируй.
Волшебные кнопки F7,F8