var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
#include <stdio.h>
int main()
{
int N;
char c;
printf("Исходное направление робота (n,w,s,e): ");
scanf("%c",&c);
printf("Команда (0,1,-1,2,-2): ");
scanf("%d",&N);
while (N != 0){
switch (N) {
case 1 : break;
case -1:
switch (c) {
case 'n' : c = 's'; break;
case 'w' : c = 'e'; break;
case 's' : c = 'n'; break;
case 'e' : c = 'w'; break;
};
break;
case 2 :
switch (c) {
case 'n' : c = 'e'; break;
case 'w' : c = 'n'; break;
case 's' : c = 'w'; break;
case 'e' : c = 's'; break;
};
break;
case -2:
switch (c) {
case 'n' : c = 'w'; break;
case 'w' : c = 's'; break;
case 's' : c = 'e'; break;
case 'e' : c = 'n'; break;
};
break;
}
printf("c = %c\n", c);
printf("Команда (0,1,-1,2,-2): ");
scanf("%d",&N);
}
return 0;
}
Пример:
<span>Исходное направление робота (n,w,s,e): n
Команда (0,1,-1,2,-2): 2
c = e
Команда (0,1,-1,2,-2): 1
c = e
Команда (0,1,-1,2,-2): -2
c = n
Команда (0,1,-1,2,-2): -1
c = s
Команда (0,1,-1,2,-2): 0</span>
2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
<span>end.
3. </span>uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
<span>end.
4. </span>uses GraphABC;<span>
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
<span>end.
</span>5. </span>uses GraphABC;
begin
Brush.Color := clRandom;
Pie(200, 200, 100, 0, 170);
Brush.Color := clRandom;
Pie(200, 200, 100, 170, 270);
Brush.Color := clRandom;
Pie(200, 200, 100, 270, 300);
Brush.Color := clRandom;
Pie(200, 200, 100, 300, 330);
Brush.Color := clRandom;
Pie(200, 200, 100, 320, 333);
Brush.Color := clRandom;
Pie(200, 200, 100, 333, 360);
<span>end.
С цветами, думаю, сам разберешься</span>