|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.03.2015, 13:23 | #51 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
мучайся, мне всё равно. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
07.03.2015, 15:20 | #52 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
procedure TForm1.Button1Click(Sender: TObject);
var x:array of integer; f:textfile; a,n,i:integer; begin assignfile(f,'111.txt');//файл в папке с программой reset(f); n:=0; while not seekeof(f) do begin read(f,a); inc(n); setlength(x,n); x[n-1]:=a; end; closefile(f); for i:=0 to n-1 do Memo1.Lines.Add('x'+inttostr(i+1)+' ='+inttostr(x[i])); end; |
07.03.2015, 16:31 | #53 |
Форумчанин
Регистрация: 16.01.2015
Сообщений: 672
|
а массив тут зачем?
|
08.03.2015, 07:36 | #54 |
Пользователь
Регистрация: 23.04.2013
Сообщений: 76
|
в задании сказано, что есть массив чисел X
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Экранная лупа | SaNeKBF | C# (си шарп) | 5 | 05.05.2011 19:34 |
Компонент экранная клавиатура | MikeSam | Компоненты Delphi | 1 | 02.05.2011 19:18 |
экранная клавиатура | mobilitialex | Общие вопросы Delphi | 1 | 10.03.2011 17:19 |
Экранная клавиатура | Кристинка89 | Общие вопросы Delphi | 7 | 02.03.2011 23:45 |
Экранная клавиатура | aesoem | Софт | 9 | 13.03.2009 10:59 |