Объяснение:
PascalABC.NET. Версия 3.5.1, сборка 2261 (4.11.2019)Задание 1program abc;
const n=2; // Задание начальных параметров массива через константы
const m=2;
var C:array[1..n,1..m] of integer;
A:array[1..n,1..m] of integer;
B:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
readln(A[i,j]); // Ввод данных и вычисление по формуле
readln(B[i,j]);
C[i,j]:=A[i,j]+B[i,j];
end;
writeln('C[n,m] = ');
for i:=1 to n do
begin
for j:=1 to m do
write(C[i,j],' '); // Вывод массива
writeln;
end;
end.
Задание 2program abc;
const n=3; // Задание начальных параметров массива через константы
const m=3;
var A:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do // Ввод данных массива
readln(A[i,j]);
writeln('Оригинальный массив A(n,m):');
for i:=1 to n do // Вывод оригинального массива
begin
for j:=1 to m do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do // Замена 2-ого столбца 2-ой строкой
A[i,2]:=A[2,i];
writeln('Изменённый массив A(n,m):');
for i:=1 to n do // Вывод изменённого массива
begin
for j:=1 to m do
write(A[i,j],' ');
writeln;
end;
end.
апустив программу ЛогоМиры, вы сначала увидите заставку, а затем — окно с черепашкой в центре. Это рабочее поле. В самом верху окна — название файла. Вы еще файл не сохраняли (то есть не записывали на диск и не давали файлу имя), поэтому он, бедный, пока без имени — Безымянный.
В рабочем поле среды ЛогоМиры можно рисовать, помещать окна с текстами, кнопки и регуляторы, но для нас сейчас главное, что в этом поле будет двигаться черепашка, послушно выполняя написанные вами программы и оставляя при этом рисунки.
Слева от рабочего поля находится панель инструментов, а внизу — поле команд. Можно сказать, что это поле проб и ошибок. Вы будете записывать в это поле команды для черепашки: теперь в вашем распоряжении почти настоящий робот.
Самая первая команда — опустить перо: PD (pen down). Ее нужно выполнить, чтобы черепашка при перемещении оставляла за собой след — рисунок. Напечатайте PD в поле команд. Черепашка выполнит команду после того, как вы нажмете ввод — клавишу .
Для перемещения черепашки вперед и назад служат команды FD и BK (по-английски forward — вперед, back — назад); после команды нужно указать, на сколько шагов должна продвинуться черепашка. Например, FD 50 или BK 70 (шаг у черепашки очень маленький). Между командой и числом необходим пробел. Команды можно набирать и строчными, и прописными буквами (например, fd 100 или FD 100).
Кроме перемещения вперед-назад, черепашка поворачиваться вокруг своей оси на указанное число градусов. Для поворота по часовой стрелке служит команда RT; против часовой стрелки — команда LT (от слов right и left — направо и налево). Например, RT 90 или LT 60.
Команда CG (clear graphics — сотри рисунки) позволит очистить экран и вернуть черепашку в исходное положение.
Задания
1.1. Получите на экране квадрат.1.2. Раcчертите экран в косую линеечку.1.3. Измерьте длину и ширину экрана (в черепашьих шагах).1.4. Начертите треугольник.
Если черепашка уже доползла до границы экрана и должна двигаться дальше, то она не исчезнет, а появится с другой стороны (как будто края экрана склеены).
Прежде чем закончить работу, не забудьте сохранить ваш файл.
§ 2. Последовательность команд — программа для черепашки
Можно управлять черепашкой, нажимая ввод после каждой команды. Если же записать подряд несколько команд (отделяя их друг от друга пробелом) и только после этого нажать ввод, то черепашка быстро выполнит команды одну за другой.
Представьте себе, что черепашка должна выполнить следующую программу:
FD 40 LT 90 FD 40 LT 90 FD 40
Какой рисунок получится на экране? Попробуйте сначала нарисовать картинку на бумаге, а потом проверьте результат на компьютере.
Дополните эту последовательность команд так, чтобы на экране вышел полный квадрат.
Если присмотреться к получившейся программе, то можно заметить, что в ней четыре раза повторяется пара команд:
FD 40 LT 90
Новая команда REPEAT (повтори) избавит нас от скучных повторов:
REPEAT сколько раз [ что повторять ]
Например, чтобы нарисовать квадрат, можно дать команду:
REPEAT 4 [FD 40 LT 90]
Попробуйте изменять набор команд в квадратных скобках и число повторений.
Приемы редактирования командной последовательности: cтереть ошибку можно клавишей (если курсор стоит на удаляемом символе) или клавишей(тогда курсор нужно поставить справа от ошибки); чтобы сделать вставку, достаточно поставить курсор в нужное место и набрать пропущенное.
