Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Сортировка двухмерного массива

Автор: drama 24.12.2007, 02:53

Проверьте пожалуйста,что неправильно в этой программе

Код


uses crt;
Type
mas=Array[1..100,1..100] of Integer;
Var
j,i,m,n,k:Integer;
a:mas;
procedure dvoika;
begin
n:=30;
m:=10;
Write('vvesti elementi massiva');
for i:=1 to 30 do
for j:=1 to 10 do
Read(a[i,j]);
end;
begin
k:=0;
for i:=1 to 30 do
for j:=1 to 10 do
if (a[i,j]=0) or (a[i,j]=1) or (a[i,j]=2) or (a[i,j]=3) then
Writeln('koli4estvo neu4ev',k);
end.

Автор: orthrus 24.12.2007, 10:03

Задание немного по подробнее можно описать, а то несовсем понятно про что речь smile

Сортировкой в программе и не пахнет smile

это

Код


if (a[i,j]=0) or (a[i,j]=1) or (a[i,j]=2) or (a[i,j]=3) then

можно было записать вот так:

Код


if (a[i,j]>=0) and (a[i,j]<4) then

Автор: drama 25.12.2007, 21:51

эммм попутал условия...вот условие от этой задачи :
Дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. Определите количество неуспевающих студентов (имеются оценки 0, 1, 2 или 3).

а сам вопрос темы нужен для решения такой задачи :
Разработайте алгоритм методом пошаговой детализации и программу, реализующую этот алгоритм :Сортировка естественным слиянием.

Автор: Hang 26.12.2007, 03:47

Код


uses crt;
var
    j,i,m,n,k: Integer;
    a: array [1..100,1..100] of Integer;
begin
     clrscr;
     n:=30;
     m:=10;
     Writeln('vvesti elementi massiva');
     for i:=1 to n do
     for j:=1 to m do
          Readln(a[i,j]);
     k:=0;
     for i:=1 to n do
     for j:=1 to m do
     if (a[i,j]>=0) and (a[i,j]<4) then
        k:=k+1;
     Writeln('koli4estvo neu4ev = ',k);
     readln;
end.