Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2011, 20:05   #1
uses_non
Новичок
Джуниор
 
Регистрация: 29.04.2011
Сообщений: 2
По умолчанию проблемка в паскале..

ошибка тут выскакивает, может кто нить поможет...

program k7;
uses crt;
const m=15;
var q,w,c,i,j,n:integer;
z,x,e:real;
a:array[1..m] of integer;
b:array[1..m] of integer;
begin clrscr;
writeln('исходный массив:');
Randomize;
for i:=1 to m do
begin
a[i]:=random(16)+2;
write(a[i]:8);
end;
writeln;
{задача №1}
writeln('задача №1');
for i:= 1 to n do
if z<abs(a[i]) then
begin
z:=abs(a[i]);
c:=i;
end;
writeln(' ',c);
{задача №2}
writeln('задача №2');
for i:= 1 to n-1 do
begin
if c<1 then
if a[i]>0 then
x:=x+a[i+1];
c:=1;
end;
writeln(x:6:2);
{задача №3}
writeln('задача №3');
writeln('введите границы интервала [a,b]');
write('a=',' ');
read(q);
write('b=');
read(w)
for i:= 1 to n do
if (trunc(a[i]) >=q) and (trunc(a[i]) <= w) then
write(' ',a[i]:6:2);
else
b[i]:=a[i];
for i:= 1 to n do
if b[i]<>0 then
write(' ',b[i]:6:2);
writeln;
{задача №4}
writeln('задача №4');
for i:= 1 to n-1 do
for j:= 1 to n-1 do
if a[i]>a[i+1] then
begin
e:=a[i];
a[i]:=a[i+1];
a[i+1]:=e;
end;
for i:= 1 to n do
write(' ',a[i]:6:2);
writeln;
{задача №5}
writeln('задача №5');
for i:=1 to n do
if a[i]>0 then
begin
a[j]:=a[i];
write(' ',a[j]:6:2);
end;
readkey;
end.
uses_non вне форума Ответить с цитированием
Старый 01.05.2011, 21:12   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

ну вопервых сделай етот код читабельным... во вторых что он делает и какая ошыбка...
Pein95 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемка Assman Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 21.06.2010 17:24
Проблемка Lacrimoso Общие вопросы C/C++ 11 24.09.2009 23:14