Вариант 2
1. дан массив В(3:3) необходимо элементы последней строки обменять значениями с элементами одной из диагоналей, определить сумму элементов первого столбца.
2. дан шар, записать алгоритм нахождения его площади.
НЕОБХОДИМО СОСТАВИТЬ ГРАФИЧЕСКОЕ РЕШЕНИЕ ЗАДАЧ
GraphABC;
var
bool: string;
circle: byte;
begin
Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);
repeat
circle += 1;
writeln('Бежим...');
for i: byte := 0 to 11 do
begin
arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);
System.Threading.Thread.Sleep(20);
end;
writeln('Пробежишь ещё кружочек?');
repeat
readln(bool);
if (bool in ['да', 'нет']) then
break
else
writeln('Что?! Я не расслышал!');
until (false);
until (not (bool = 'да'));
Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!');
end.
for i := 1 to 5 do begin x := 0; for j := 1 to 5 do x := x + a[i][j]; arr[i] := x; end; for i := 1 to 5 do begin x := 0; for j := 1 to 5 do begin
x := x + a[j][i]; end; arr[5+i] := x; end; x := 0; for i := 1 to 5 do begin x := x + a[i][i]; end; arr[11] := x; x := 0; for i := 1 to 5 do begin x := x + a[i][6 - i]; end; arr[12] := x; for i := 1 to 12 do begin if arr[i] <> x then begin writeln('Не магический'); break; end; if i = 12 then writeln('Магический.'); end; end.