Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
B-Style
0 / 0 / 0
Регистрация: 04.03.2012
Сообщений: 25
#1

в чем ошибка на delpni7 - Delphi

02.09.2012, 20:47. Просмотров 336. Ответов 3
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project2;
 
{$APPTYPE CONSOLE}
var
i:Integer;
a:array of Integer;
 
begin
randomize;
Setlength(a,1);
for i:=Low(a) to High(a) do
begin;
a[i]:=51+Random(9)
write(a[i]);
end
end.
в чем ошибка на delpni7
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.09.2012, 20:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос в чем ошибка на delpni7 (Delphi):

В чем ошибка? - Delphi
Всем доброго времени суток. Столкнулся с данной ошибкой впервые. Гугл не помог. Даже не знаю к какому разделу отнести, но опишу все...

В чем ошибка? - Delphi
Помогите пожалуйста разобраться в чем проблема

Не пойму в чем ошибка - Delphi
Здравствуйте, Ув. форумчане. Не могу скомпилировать программу, выдает ошибка not enough actual parameters в строке ...

В чем ошибка не пойму - Delphi
есть код , компонент Image1 он не видит и по сути не работает хотя вроде все сделано правильно , помогите разобраться var Form5:...

Не могу понять в чем ошибка - Delphi
Вот код: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...

О чем говорит данная ошибка? - Delphi
Доброго времени суток. Не подскажите что это за ошибка? О чем она говорит?

3
Humanoid
Почетный модератор
9878 / 3779 / 175
Регистрация: 12.06.2008
Сообщений: 11,203
02.09.2012, 21:15 #2
А что требуется? Тут будет выводиться один случайный символ из 3456789:;
Если нужны цифры, тогда надо не от 51, а от 48
0
antikiler_
1079 / 565 / 8
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
02.09.2012, 21:50 #3
Цитата Сообщение от B-Style Посмотреть сообщение
в чем ошибка на delpni7
Технически - точка с запятой не там стоит. Нужно не после
Delphi
1
begin //строка 12
а после
Delphi
1
random(9);// строка13
0
Puporev
Модератор
52847 / 40658 / 13913
Регистрация: 18.05.2008
Сообщений: 94,385
03.09.2012, 08:24 #4
Цитата Сообщение от B-Style Посмотреть сообщение
Setlength(a,1);
И какой смысл создавать массив для одного элемента?
Тогда уж нужно объявить его размер и создавать.
Delphi
1
2
3
4
5
6
7
8
write('n=');
readln(n);
Setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=51+Random(9);
  write(a[i],' ');
 end
0
03.09.2012, 08:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.09.2012, 08:24
Привет! Вот еще темы с ответами:

Ошибка в программе. В чем дело? - Delphi
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var s1, s2, x: string;

В чем ошибка? (Индексированные свойства) - Delphi
Выдается ошибка Project Project2 raised exception class EClassNotFound with message 'class TShape not found'. Прога рисует прямоугольник с...

В чем ошибка программы? Определение параметра в виде функции - Delphi
Определить сопротивление теплообмену Rn=1/an, где an - общий коэф-т теплообмена, имеющий температуру tn: зависит от скорости ветра....

В чем ошибка? Нахождение давления и диаметра с применением функции - Delphi
Var PTC, GTC, dfg:real; const t1=150; Qzd=300000; t2=70; U=1.48; Begin while dfg>=1.5 and dfg<=3.5 do begin


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

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

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