Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
За пингвинов !!!
10 / 10 / 0
Регистрация: 14.10.2008
Сообщений: 162
1

В чём ошибки?

16.10.2008, 17:07. Просмотров 630. Ответов 1
Метки нет (Все метки)

Могите найти ошибки и обьяснить их (Сортировка вставками).
____________________________________________________________ _

Код
program re;
type Hr = array[1..10] of Integer;
var
a, b :Hr;
l, o : Integer;
{/////////////////////////////////////////////////////}
{/////////////////////////////////////////////////////}
begin
Writeln('array 1 = ');

for l:=1 to 10 do Read(a[l]);
for l := 1 to 10 do 
 begin
o := l;
    while (b[o-1] > a[l])
and
 (o > l)
do
 begin
b[o] := b[o+1];
o := o-1;
end;
    end;
 for l :=1 to 10 do Write('', b[o]);
     Readln;
end.
{//////////////////////////////////////////////////////////////////////////////}
____________________________________________________________ ______________
------------------------------------------------------------------------------------
По возможности обьясните, готовых кодов не нужо!!!!!!!!!!!!!!!!!!!!!!!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2008, 17:07
Ответы с готовыми решениями:

в чём ошибка
program sum(input,output); {$N+} var a,b: Comp; begin assign(input,'input.txt'); ...

В чём ошибка?
Var x, y:real; b1, b2, b3, b4:boolean; begin write ('x='); readln(x); write ('y=');...

в чём ошибка?)
подскажите, кто может, где ошибка в программе, препод сказал пока не найду не зачтёт, я 2 часа...

В чём ошибка?
program Main(input, output); procedure B; begin A end; procedure A; begin Writeln('A')...

1
3 / 3 / 2
Регистрация: 22.01.2007
Сообщений: 41
19.10.2008, 17:32 2
хм, это полнейший бред... автор знает как собственные типи создавать, но незамечает елементарных ошибок... может нужно литературу с первой страницы читать, а не с конца ?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2008, 17:32

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

В чём ошибка?
program v1; var z,y:real; begin writeln('Vvedite znachenie y',y:6:2); readln(y); begin if...

На чём писать
Я чаиник. Хочу переехать из обычной для паскаля FPC среды написания кода на текстовый редактор типа...

В чём ошибка?
Program Zad; Var a, b, c, m: integer; Begin Readln (a, b, c); a:=a/1; b:=b/2; c:=c/4; if a>b...

В чём ошибка?
program _5; var a,b,c,summa:integer; function maxmin(a,b,c:integer):integer; var...


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

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

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