1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 44
1

Нужно найти ошибку

16.05.2009, 17:28. Показов 714. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вычислить F=A(3,4)*PT(4,5)*R(5,2),если y>6
если y=<6 F=P(4,5)*T(5,3)*Q(3,3);
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
 
program z42;
type matrix=array[1..10,1..10] of real;
var a,pt,t,r,q,apt,aptr,aptq; y:integer;
Procedure input(name:string;n,m:byte; var g:matrix);
var i,j:byte f:text;
assign(f,name);
rewrite(f);
for i:=1to n do begin
for j:=1to m do write(f,g[i,j]:8:1);
writeln(f);
end;
end;
Procedure umn(n,m,k:byte;var a1,b1,r:matrix);
var s:real; i,j,l:byte;
begin
for i:=1to n do
for j:=1to m do begin 
s:=0
for l:=1to k do s:=s+a1[i,l]*b1[l,j];
r[i,j]:=s;
end;
end;
begin
writeln('vvedite y')
readln(y);
if y>6 then begin
umn(3,5,4,a,pt,apt);
umn(3,2,5,apt,r,aptr);
input('t.txt',3,2,aptr);
end else begin
umn(4,3,5,p,t,pt);
umn(4,3,3,pt,q,ptq);
input('g.txt',4,3,ptq);
end.
Добавлено через 56 минут 31 секунду
программа не записывает результат умножения в файл
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2009, 17:28
Ответы с готовыми решениями:

Нужно найти ошибку
VAR N: INTEGER; X, Y: REAL; H, X0, XN: REAL; BEGIN WRITELN('ВВЕДИТЕ X0, XN '); READLN(X0,...

Нужно найти ошибку!
Помогите Пожайлуста Найти ошибку в программе Там когда запускаешь программу выдаёт ошибку Invalid...

Нужно найти ошибку в коде
program zada4a; uses crt; type stroenie=record tip, firma: string; cena, proc, vklad, nevip:...

программа нужно найти ошибку
помогите найти ошибку должно получится по сторонам матрицы верхняя строка убывающая начиная с 1 а...

9
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.05.2009, 17:51 2
программа не записывает результат умножения в файл
Да она вообще не работает и с первой строки начинает выдавать , как Вы говорите, незначительные ошибки, которые легко исправить.
1
1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 44
16.05.2009, 17:55  [ТС] 3
да пропущена там точка с запятой ща подправим
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.05.2009, 17:59 4
Да и записывать-то вообщем нечего, ни одна из матриц вообще не создана, воздух умножаете. Ну а объявление матриц как тип integer вообще круто.

Добавлено через 1 минуту 23 секунды
Вычислить F=A(3,4)*PT(4,5)*R(5,2),если y>6
если y=<6 F=P(4,5)*T(5,3)*Q(3,3);
Это поное задание? Если да, то при чем здесь вообще файлы. Если нет, то напишите условие полностью.
1
1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 44
16.05.2009, 18:05  [ТС] 5
МАТРИЦЫ ТАМ ВООБЩЕ БЕЗ ТИПА А ПО ИДЕЕ ОНИ ВЕЩЕСТВЕННЫЕ НЕ ТРУДНО
ДОГАДАТЬСЯ
ВСЕ ЭТИ МАТРИЦЫ ВЫВОДЯТСЯ ИЗ ФАЙЛОВ: A ИЗ FA R ИЗ FR И Т.Д
0
254 / 21 / 5
Регистрация: 30.10.2008
Сообщений: 68
16.05.2009, 18:37 6
файл после открытия надо все таки закрывать, это то что сразу в глаза бросается, а вообще код, неудобочитаемый и задание неполное.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.05.2009, 19:07 7
ВСЕ ЭТИ МАТРИЦЫ ВЫВОДЯТСЯ ИЗ ФАЙЛОВ: A ИЗ FA R ИЗ FR И Т.Д
М где это написано в программе?
В программе только названия матриц, и то неправильно написаныые.
Самих матриц, наполненных данными вообще нет, что же умножать?
МАТРИЦЫ ТАМ ВООБЩЕ БЕЗ ТИПА
Это вообще круто, хотя тип и объявлен
type matrix=array[1..10,1..10] of real;
но матрицы записаны совсем не так.
var a,pt,t,r,q,apt,aptr,aptq; y:integer;
Такое вообще первый раз вижу.
Всвязи с этим непонятно Ваше упорство в доказательстве кокой-то доступной только Вам истины.
Вам просто предложили написать точное условие и через полчаса у Вас была бы программа. Но Вам не это видимо надо, а пофлудить.
0
1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 44
16.05.2009, 21:59  [ТС] 8
я не поняла зачем ты лишний раз себя грузишь говорю же пропустила я real ну что иза этого целые сочинения надо писать
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.05.2009, 22:02 9
Да не real. А надо писать
var a,pt,t,r,q,apt,aptr,aptq:matrix;
0
1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 44
16.05.2009, 22:04  [ТС] 10
я это имела в виду
0
16.05.2009, 22:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2009, 22:04
Помогаю со студенческими работами здесь

Нужно найти ошибку в выражении
1) Переменная F определена как файловая с базовым типом Integer. Переменная N относится к типу...

Нужно найти ошибку(прога график)
Почему то у меня в одном месте показывает ОШИБКУ 143:ОШИБОЧНАЯ ССЫЛКА НА ПРОЦЕДУРУ ИЛИ ФУНКЦИЮ......

Нужно найти ошибку в программе, встает и не работает дальше
Program lab8; Var a: array of char; b: array of char; konstr, kontxt, sym: char; i, u:...

Нужно найти ошибку :(
Господа, не понимаюч в чём заключается ошибка, буду благодарна зв помощь! label ...


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

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

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