Ребят можете просмотреть задание и указать на ошибки

@Kain144 · Регистрация: 05.04.2022

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

program zadanie_4;
uses crt;
const
n=4;
var
a: array [1..n,1..n] of real;
b: array [1..n,1..n] of real;
i,j,d:integer;
begin
clrscr;
for j:=1 to n do
for i:=1 to n do
begin
clrscr; gotoxy(1,1);
write('элемент - ',j,',',i,':'); readln(a[j,i]);
end;
clrscr;
writeln;
writeln('34.0 4.0 5.0 34.0
45.0 43.0 54.0 34.0
5.0 6.0 4.0 5.0
6.0 7.8 56.0 5.0:');
for i:=1 to n do
begin
d:=d+2;
for j:=1 to n do
begin
b[j,i]:=d+a[j,i];
gotoxy(i*6,j+3);
writeln(a[j,i]:3:1)
end;
end;
writeln;
writeln('36.0 8.0 11.0 42.0
47.0 47.0 60.0 42.0
7.0 10.0 10.0 13.0
8.0 11.8 62.0 13.0:');
for i:=1 to n do
for j:=1 to n do
begin
gotoxy(i*6,j+10);
writeln(b[j,i]:3:1)
end;
readln;
end.

@XzzzX · 05.04.2022, 14:05

дак компилятор вроде по-русски говорит.
но дело в том, что строковые литералы в pabc.net нельзя вот так просто разрывать. либо пишите в одну строку файла, либо делайте как-то так.

Code
1
2
3
4
writeln('36.0 8.0 11.0 42.0'+
'47.0 47.0 60.0 42.0'+
'7.0 10.0 10.0 13.0'+
'8.0 11.8 62.0 13.0:');

если Вы хотели сделать построчный вывод, то в конце строк вместо + напишите #13#10

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Kain144 0 / 0 / 0 Регистрация: 05.04.2022 Сообщений: 6

	Ребят можете просмотреть задание и указать на ошибки 05.04.2022, 10:31. Показов 259. Ответов 1 Метки нет (Все метки) program zadanie_4; uses crt; const n=4; var a: array [1..n,1..n] of real; b: array [1..n,1..n] of real; i,j,d:integer; begin clrscr; for j:=1 to n do for i:=1 to n do begin clrscr; gotoxy(1,1); write('элемент - ',j,',',i,':'); readln(a[j,i]); end; clrscr; writeln; writeln('34.0 4.0 5.0 34.0 45.0 43.0 54.0 34.0 5.0 6.0 4.0 5.0 6.0 7.8 56.0 5.0:'); for i:=1 to n do begin d:=d+2; for j:=1 to n do begin b[j,i]:=d+a[j,i]; gotoxy(i6,j+3); writeln(a[j,i]:3:1) end; end; writeln; writeln('36.0 8.0 11.0 42.0 47.0 47.0 60.0 42.0 7.0 10.0 10.0 13.0 8.0 11.8 62.0 13.0:'); for i:=1 to n do for j:=1 to n do begin gotoxy(i6,j+10); writeln(b[j,i]:3:1) end; readln; end. 0