Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
12 / 1 / 0
Регистрация: 15.04.2012
Сообщений: 26
1

Сортировка линейного массива: исправить ошибки в коде

27.09.2012, 23:07. Просмотров 493. Ответов 1
Метки нет (Все метки)

Задача такая:

В областной олимпиаде по ИКТ участвовало 37 школ. Команды набрали от 12 до 56 очков. Распечатать результаты согласно занятым местам.

Казалось бы!
Тем не менее, сказано решать ИСКЛЮЧИТЕЛЬНО методом вставки.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS:RANDOMIZE TIMER
DIM S(1 TO 37) AS INTEGER
? "Баллы"
FOR X=1 TO 37
       S(X)=RND*44+12
       ? S(X);
NEXT X
FOR X=1 TO 36
      F=S(X):H=X-1
      WHILE (H>=1) AND S(X)>F
               S(H+1)=S(H):H=H-1
      WEND
      S(H+1)=F
NEXT X
?
? "Участники олимпиады и их места"
FOR X=1 TO 37
      ? "Место-";X;", баллов-";S(X);
NEXT X
END
Но что-то он ни разу не сортирует
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.09.2012, 23:07
Ответы с готовыми решениями:

Сортировка массива. Исправить ошибки в коде
Ребят не могу дописать код что бы он правельно работал using System; using...

Сортировка - исправить ошибки в коде
Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin for k:=5 to 8...

Сортировка - исправить ошибки в коде
Подскажите пожалуйста,где ошибка? for (i = 0; i<k; i++) for (j = 0; j<k - 1; j++){...

Merge sort (Сортировка слиянием) - исправить ошибки в коде
Privet dami i gospoda. Ne poluchaetsa realisovat' Merge sort. Proga kompiliruetsa no sorting ne...

1
4783 / 1453 / 392
Регистрация: 25.04.2010
Сообщений: 4,019
Записей в блоге: 1
28.09.2012, 01:30 2
Почитайте тут, в прогах softmob'а ваш метод - первый:
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2012, 01:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сортировка массивов посредством вставок. Исправить ошибки в приведенном коде
program sort_vstav; {$APPTYPE CONSOLE} uses SysUtils, Math; const nn=20; var a:array of...

Сортировка строк: склеивается вторая и третья строка (найти и исправить ошибки в коде)
#include <string.h> #include <stdlib.h> #include <iostream> #include <fstream> using namespace...

Заполнение и графический вывод массива - исправить ошибки в коде
помогите найти ошибку. Может кто-нибудь подскажет в чем проблема program exm; Uses GraphABC;...

Элемент находится за пределом массива, исправить ошибки в коде
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.