народ, кто шарит в дельфи помогите решить пару задачик. Первая:
Дана матрица размера M×N. Преобразовать матрицу, поменяв местами мини-мальный и максимальный элемент в каждой строке
Вторая:
Опишите запись с именем типа Inf, содержащую информацию для школьной базы: личный номер ученика (тип integer), ФИО (тип string), год рождения (тип integer), ад-рес (тип string). Переменную, определяющую массив записей, назовите Baza. Tov. Вы-брать из массива записи с заданным годом рождения.
нашел задачу с матрицей на паскале
uses crt;
const n=5;
m=10;
var a:array[1..n,1..m] of integer;
i,j,min,max,imin,jmin,imax,jmax:integer;
begin
min:=0;
max:=0;
randomize;
clrscr;
writeln('Матрица 5x10 - ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:2,' ');
end;
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
end;
a[imin,jmin]:=max;
a[imax,jmax]:=min;
min:=0;
max:=0;
writeln;
end;
writeln('Преобразованная матрица 5х10 - ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:2,' ');
end;
writeln;
end;
end.
но при запуске программы ругуется на uses crt; и clrscr; че за х может быть?
Zidan_@777@, в делфи нет модуля crt, а чего паскаль не установлен у вас или надо обязательно на делфи писать?
Jane, именно на дельфи. С crt проблема решена, его просто можно удалить и ошибка пропадет
Zidan_@777@ (10.12.2012 / 20:35)
народ, кто шарит в дельфи помогите решить пару задачик. Первая:
Вторая:
type aType: array[1..10][1..10];
procedure TForm1.fMatrix(arr: aType): aType;
var i, j, c1, c2, c3, c4, max, min: integer;
begin
max := arr[1][1]; min := arr[1][1];
for i := 1 to 10 do begin
for j := 1 to 10 do begin
if(arr[i][j] > max) then begin
c1 := i; c2 := j; max := arr[i][j];
end;
if(arr[i][j] < min) then begin
c3 := i; c4 := j; min := arr[i][j];
end;
end;
end;
arr[c1][c2] := arr[c1][c2] + arr[c3][c4];
arr[c3][c4] := arr[c1][c2] - arr[c3][c4];
arr[c1][c2] := arr[c1][c2] - arr[c3][c4];
fMatrix := arr;
end;
Onatolich, А компаненты никакие ненужны будут ? (Кроме memo)
Прошло уже больше года и вновь судьба свела с delphi. Щас проблема такая, нужен был тест написанный на delphi, нашел уже готовый, но есть небольшая проблемка, он расчитан на 3 варианта ответов, а нужно 4. В коде вроде все поменял, но работать как надо он не захотел, 4ый вариант ответа считает как ответ(в архиве по файлам все можно понять) Если кто разбирается гляньте если не лень, буду очень благодарен.
Нормально все добавляется четвертый вариант, сейчас проверил, в итоге 9 правильных ответов из 9, и 9 неправильных (в случае если отвечать добавленным четвертым вариантом.
Что сделано:
В var добавил переменную:
QuestionText4: array [0..max] of string;
В procedure TForm1.LoadQuestion:
AnswerGroup.Items.Add(QuestionText4[index]);
В procedure TForm1.LoadTest:
QuestionText4[h]:=s.Strings[j+5];
AnswerQuestion[h]:=strtoint(s.Strings[j+6]); // исправил номер ответа, было [j+5]
В архиве правленые исходники, но сразу предупреждаю, у меня RAD XE 5, потому не знаю, как откроются исходники в прошлых версиях делфи.
xpank, Спасибо, но уже сам сделал, просто запускал программу неправильно вот и не работало) все равно спасибо что взялся помочь.
