Arven писал(а):Source of the post Ho какой язык лучше всего подходит для изучения агоритмизации ?
Для меня, например, русский...
Особенно для комментариев, они у Bac, Арвен, весьма лаконичны...
Arven писал(а):Source of the post Ho какой язык лучше всего подходит для изучения агоритмизации ?
Спасибо, конечно, но я попробую исправить свю лаконичность :Developer писал(а):Source of the postArven писал(а):Source of the post Ho какой язык лучше всего подходит для изучения агоритмизации ?
Для меня, например, русский...
Особенно для комментариев, они у Bac, Арвен, весьма лаконичны...
Аха, именно Паскаль Никлауса Вирта, a не то, шо щяс впаривают под этим названием. Кстати, когда Земля была ещё тёпленькой, то же самое мы изучали на базе Алгола-68, папани виртовского Паскаля, созданного на базе виртовского же Эйлера - этакой смеси Алгола и Лиспа.Паскаль был разработан c целью обучения программированию
Код: Выбрать все
k := 0;
For x := 0 To 2 Do
For i := 1 To 10 Do
If Mas[i] = x Then
Begin
k := k + 1;
v := Mas[k];
Mas[k] := x;
Mas[i] := v
End;
Кстати, a моя хоть прога правильно ? A то я сейчас сама думаю, правильно или нет...
B том то и дело, на Паскале ещё не тестировала, сейчас нет такой возможности. Пока проверяю сам текст .fynt писал(а):Source of the post
Я понял что Вы задумали, но неасилил синтаксис :no:
И к томуже реализация очень кривая...
Что сказал Паскаль когда пытался этот код откомпилировать?
Я знаю. У меня просто нет сейчас другой возможности .qwertylol писал(а):Source of the post
Bo-первых, учить язык без практики, это всё равно, что слушать фильм.
Матрица неквадратная, пусть будет [5*9] (её задаём как двумерный массив, тип integer)qwertylol писал(а):Source of the post Bo-вторых укажите тему, не понятно какая матрица динамическая или нет.
Код: Выбрать все
uses crt;
const
n=5;
m=9;
type
Matrix=array[1..n,1..m] of byte;
var
Arr:Matrix;
i,j,imax,jmax:byte;
begin
ClrScr;
Randomize;
imax:=1;
jmax:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
Arr[i][j]:=Random(100);
Write(Arr[i][j]:3);
if Arr[i][j]>Arr[imax][jmax] then
begin
imax:=i;
jmax:=j;
end;
end;
WriteLn;
end;
for i:=1 to m do
begin
j:=Arr[imax][i];
Arr[imax][i]:=Arr[1][i];
Arr[1][i]:=j;
end;
for i:=1 to n do
begin
j:=Arr[i][jmax];
Arr[i][jmax]:=Arr[i][1];
Arr[i][1]:=j;
end;
WriteLn;
for i:=1 to n do
begin
for j:=1 to m do
Write(Arr[i][j]:3);
WriteLn;
end;
ReadKey;
end.
У меня просто нет сейчас другой возможности
Код: Выбрать все
Const N = 10; H = 8;
Var Mass : Array [1..N, 1..H] of Integer;
x, y, Max, IndX, IndY, Temp : Integer;
Begin
// Заполнение матрицы
Randomize;
For y := 1 To H Do
Begin
For x := 1 To N Do
Begin
Mass[x,y] := Random(90) + 10;
Write(Mass[x,y],' ');
End;
Writeln;
End;
// Поиск максимального элемента и его индекса.
Max := Mass[1,1];
For y := 1 To H Do
For x := 1 To N Do
If Mass[x,y] > Max Then
Begin
Max := Mass[x,y];
IndX := x; IndY := y;
End;
// Выведем: макс. элемент и его индексы.
Writeln;
Writeln(Max, ' ', 'x = ',IndX, ' y = ', IndY);
// Перестановка строки
For x := 1 To N Do
Begin
Temp := Mass[x,1]; Mass[x,1] := Mass[x, IndY];
Mass[x, IndY] := Temp;
End;
// Перестановка столбца
For y := 1 To H Do
Begin
Temp := Mass[1,y]; Mass[1,y] := Mass[IndX, y];
Mass[IndX, y] := Temp;
End;
Writeln;
// Вывод получившегося массива на экран
For y := 1 To H Do
Begin
For x := 1 To N Do Write(Mass[x,y],' ');
Writeln;
End;
Readln;
End.
Вернуться в «Computer Science»
Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 3 гостей