VPF::[Pascal] Сортировка двухмерного массива

drama

Дата 24.12.2007, 02:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.12.2007

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: 5
Всего: 16

Задание немного по подробнее можно описать, а то несовсем понятно про что речь 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

--------------------

У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image

drama

Дата 25.12.2007, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.12.2007

Репутация: нет
Всего: нет

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

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

Hang

Дата 26.12.2007, 03:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Код


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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »