проверьте пожалста програмку

@Kosmonaft · Регистрация: 01.03.2010

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

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
Program matrix;
const
n=4;
m=4;
var
i,j:integer;
A:array [1..n,1..m] of real;
B:array [1..n] of real;
X:array [1..n] of real;
begin
for i:=1 to n do
for j:=1 to m do
begin
write ('A[,i:2,',',m:2]=');
read (A[i,j]);
writeln;
end;
for i:=1 to n do
begin
write ('B[i:2]=');
read (B[i]);
writeln;
end;
for i:=1 to n do
begin
X[i]:=(A[i,1]+A[i,2]+a[i,3]+a[i,4])/B[i];
end;
for i:=1 to n do
begin
write ('x[i]':3);
writeln;
end;
end;
end.

@o-user · 03.03.2010, 20:43

Проверил.
1. Лишний end; перед последней строкой end.
2. А что должно быть в резульатет работы? Какое условие задачи?

@Kosmonaft · 03.03.2010, 20:50 **[ТС]**

ну AX=B A матрица резмером 4х4 В столбец 4х1 ну нада найти столбец Х (данные по матрице и столбцу даны)

Добавлено через 1 минуту
ну удалил лишний end; перед последней строкой end. прога все равно не работает

@o-user · 03.03.2010, 20:57

Как не работает? Что пишет?

@Ngx1 · 03.03.2010, 21:00

в 30-той строке, наверно, должно быть так write (x[i]:3),то есть без кавычек ,иначе получается ,что у тебя нет результирующих данных

@Kosmonaft · 03.03.2010, 21:04 **[ТС]**

я недавно поставил FreePascal выдает ошибку на англизком...а в нем я не шарю))

Добавлено через 18 секунд
ща попробую разгуглить))

Добавлено через 3 минуты
Чтобы сохранить размер файла FPC
разумных низкая, она приходит без HTML
отформатированные документы
которые необходимы для IDE.
Чтобы получить эти документы, перейдите к
http://www.freepascal.org/down/docs/docs.html
и получите один
в HTML Doc и распаковывать архивы
Содержание прилагаются в ваш каталог FPC.
Добавить fpctoc.html через Помощь | Файлы ... на IDE

вот что оказываетсо гад выдает!!!!!а у тебя ета прога работает если end лишний убрать?

@jonni · 03.03.2010, 21:14

Kosmonaft,

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
Program matrix;
const
n=4;
m=4;
var
i,j:integer;
A:array [1..n,1..m] of real;
B:array [1..n] of real;
X:array [1..n] of real;
begin
for i:=1 to n do
for j:=1 to m do
begin
write ('A[',i,',',j:2,']=');
read (A[i,j]);
writeln;
end;
for i:=1 to n do
begin
write ('B[',i,']=');
read (B[i]);
writeln;
end;
for i:=1 to n do
begin
X[i]:=(A[i,1]+A[i,2]+a[i,3]+a[i,4])/B[i];
end;
for i:=1 to n do
begin
write (x[i]:3);
writeln;
end;
 
end.

@Kosmonaft · 03.03.2010, 21:30 **[ТС]**

Спс огромное!!!прогу коряво всегда пишу...единственное что хотел б еще спросить...ана пральн работает?

@jonni · 03.03.2010, 21:39

Kosmonaft, условие нормально напиши, а лучше скопируй из источника...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	03.03.2010, 20:43
	Проверил. 1. Лишний end; перед последней строкой end. 2. А что должно быть в резульатет работы? Какое условие задачи? 0

@Kosmonaft 0 / 0 / 0 Регистрация: 01.03.2010 Сообщений: 35
	03.03.2010, 20:50 [ТС]
	ну AX=B A матрица резмером 4х4 В столбец 4х1 ну нада найти столбец Х (данные по матрице и столбцу даны) Добавлено через 1 минуту ну удалил лишний end; перед последней строкой end. прога все равно не работает 0

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	03.03.2010, 20:57
	Как не работает? Что пишет? 0

@Ngx1 2 / 2 / 4 Регистрация: 28.02.2010 Сообщений: 9
	03.03.2010, 21:00
	в 30-той строке, наверно, должно быть так write (x[i]:3),то есть без кавычек ,иначе получается ,что у тебя нет результирующих данных 0

@Kosmonaft 0 / 0 / 0 Регистрация: 01.03.2010 Сообщений: 35
	03.03.2010, 21:04 [ТС]
	я недавно поставил FreePascal выдает ошибку на англизком...а в нем я не шарю)) Добавлено через 18 секунд ща попробую разгуглить)) Добавлено через 3 минуты Чтобы сохранить размер файла FPC разумных низкая, она приходит без HTML отформатированные документы которые необходимы для IDE. Чтобы получить эти документы, перейдите к http://www.freepascal.org/down/docs/docs.html и получите один в HTML Doc и распаковывать архивы Содержание прилагаются в ваш каталог FPC. Добавить fpctoc.html через Помощь \| Файлы ... на IDE вот что оказываетсо гад выдает!!!!!а у тебя ета прога работает если end лишний убрать? 0

@Kosmonaft 0 / 0 / 0 Регистрация: 01.03.2010 Сообщений: 35
	03.03.2010, 21:30 [ТС]
	Спс огромное!!!прогу коряво всегда пишу...единственное что хотел б еще спросить...ана пральн работает? 0

@jonni 119 / 119 / 25 Регистрация: 03.03.2010 Сообщений: 436
	03.03.2010, 21:39
	Kosmonaft, условие нормально напиши, а лучше скопируй из источника... 0