Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Misha_Beginner
5 / 5 / 12
Регистрация: 12.09.2013
Сообщений: 156
1

найти ошибку в коде, пожалуйста

19.10.2013, 12:41. Просмотров 254. Ответов 2
Метки нет (Все метки)

Нам дан массив с 5 елементами: нужно посортировать в порядке убывания: (3,2;-6.3;-8.3;0.0;1.2),
Вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program laba7_3;
 const n=5;
 var m:array[1..n] of integer;
 k,i,j:integer;
 Begin
      writeln('Vvedit massiv');
      for i:=1 to n do
      read(m[i]);
          for i:=1 to n-1 do
          for j:=i+1 to n do
              if (m[j]>m[i]) then
                begin
                   k:=m[i];
                   m[i]:=m[j];
                   m[j]:=k;
              end;
      writeln('vidsort mas');
      for i:=1 to n do
      writeln(m[i],' ');
      readln(m[i]);
end.
но когда ввожу -6,3 выбивает: Ошибка времени выполнения: Входная строка имела неверный формат. Что то с типом переменной не так??? там где array??
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2013, 12:41
Ответы с готовыми решениями:

Найдите пожалуйста ошибку в коде
program EMV_RZ_1; uses crt; var eps,x,a,b:real; function f(x:real):real;...

Пожалуйста, нужно исправить ошибку в коде
Моё задание "Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во...

Помогите найти ошибку в коде. Найти сумму ряда
Добрый день, помогите найти ошибку. Задача: Найти сумму ряда, вычисление...

Найти ошибку в коде
Вродебы все правильно записал а задача не запускается что мне делать?? ...

Найти ошибку в коде
подскажите где ошибка?

2
Puporev
Модератор
55444 / 42560 / 29412
Регистрация: 18.05.2008
Сообщений: 100,675
19.10.2013, 13:05 2
Pascal
1
2
var m:array[1..n] of real;
     k:real;
1
Misha_Beginner
5 / 5 / 12
Регистрация: 12.09.2013
Сообщений: 156
19.10.2013, 13:08  [ТС] 3
да уже поправил благодарю все работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2013, 13:08

Найти ошибку в коде
procedure uvel; var s:string; sto1:real; begin ...

Найти ошибку в коде
var a,c,b,d,x:real; begin assign(input , 'input.txt'); reset(...

Найти ошибку в коде
const n=5; var a,b: array of integer; nch1,nch2,d,i,c: integer; ...


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

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

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