Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Изменение периода Average https://www.cyberforum.ru/ delphi-beginners/ thread2455115.html Как в программе обратиться к опции series, чтобы изменить период в графе "namber of points". Прилагаю скрин:	Delphi Shape Когда фигура Shape выходит за границы формы то показывает сообщения "Границы пересечены"
Delphi Как вызвать процедуру? https://www.cyberforum.ru/ delphi-beginners/ thread2454989.html Помогите, пожалуйста. Как вызвать процедуру Action ? С какими параметрами? procedure Action(var f: arr; var count: integer); begin Masgen(a); count:=0; for i:=Low(f) to High(f) do begin if (f mod 3 = 0) and (f mod 7 <> 0) then Inc(count); end; Form1.Label1.Caption:=IntToStr(count); end;	Delphi Реализовать функцию для edit https://www.cyberforum.ru/ delphi-beginners/ thread2454963.html 1.Помогите реализовать функцию для edit , так чтобы он использовал вещественное(дробное) число =1/9 , 1/3 и тп для обработчика , так чтобы если ты вводишь в один из edit вещественное число он понимал и считал его для дальнейших вычислений , 2.И такой вопрос , если мы заранее в edit в поле text пишим текст как передать это текст на другую форму , потому что он передается только тогда когда мы...
Динамические структуры данных Delphi Помогите решить, пожалуйста const d =…; {длина строки} n =…; {максимальное число строк} type строка = string; ссылка = ^строка; текст = array of ссылка; (Если в тексте менее n строк, то последние элементы массива равны NIL; в начале массива ссылок NIL не должно быть. Если в операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим номером равен равен NIL, то...	Delphi правильно ли я записать эту формулу в программе? https://www.cyberforum.ru/ delphi-beginners/ thread2454909.html procedure TForm1.FormCreate(Sender: TObject); begin SpinEdit1.Text:='16'; Edit1.Text:='0,1'; Edit2.Text:='1,0'; Memo1.Clear; Memo1.Lines.Add('Ëàáîðàòîðíàÿ ðàáîòà ¹3 - Öèêëè÷åñêèé àëãîðèòì'); end; procedure TForm1.Button1Click(Sender: TObject); var xn,xk,x,h,s,y,al,fk,del:extended;
Delphi Вылазит ошибка при использовании компонента ICS Поставил компонент ICS для делфи 10.1 Berlin и появилась ошибка при использовании компонента Unit1.pas(8): F2613 Unit 'OverbyteIcsWndControl' not found. как это исправить? https://www.cyberforum.ru/ delphi-beginners/ thread2454824.html	Delphi подскажите, с чего начать , как сделать.Есть типизированный файл со списком информации , её надо загрузить подскажите, с чего начать , как сделать.Есть типизированный файл со списком информации , её надо загрузить в динамический список и должна быть возможность удалять элементы и добавлять?????
Delphi Определите, есть ли в данном бинарном дереве два одинаковых элемента https://www.cyberforum.ru/ delphi-beginners/ thread2454591.html Надо задать бинарное дерево и выяснить, есть ли в этом дереве два одинаковых элемента	Delphi Разработать проект, который вычисляет оплату за телефонные переговоры Разработать проект, который вычисляет оплату за телефонные переговоры. Если время переговоров не превышает 100 минут, то оплата – 210 рублей. Разговоры свыше 100 минут оплачиваются дополнительно по тарифу 2 руб\мин. Требования: Кнопка и флажок «Рассчитать стоимость» должны рассчитать стоимость переговоров по событию OnClick. Флажок «Очистить» должен очищать поле ввода и компонент с... https://www.cyberforum.ru/ delphi-beginners/ thread2454504.html
Объекты и поля Delphi Помогите и объясните пожалуйста, как это вообще сделать. Задание: Создать модуль с именем Parent. Определить базовый класс с именем Tbase (Объект - Житель) и полями данных -фамилия, город, адрес (улица, дом, квартира). Включить в класс методы, обеспечивающие: заполнение полей данных; отображение (вывод) полей данных; конструктор, который инициализирует поля класса пустыми значениями;...	Delphi Курсовой проект https://www.cyberforum.ru/ delphi-beginners/ thread2454429.html Надо создать БД по теме( ПО агенства недвижимости) и связать его с Delphi 7, + справка. Если кто может помочь буду очень благодарен, помощь в том как лучше создать.

Донил

0 / 0 / 0

Регистрация: 10.12.2018

Сообщений: 33

21.05.2019, 17:45 [ТС]

Delphi 6-7

Фибоначчи - Delphi - Ответ 13588870

21.05.2019, 17:45. Показов 892. Ответов 15

Метки (Все метки)

Ответ

А для чего вы пишете system? И если я так код упрощу, то он работать будет?

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  f: file of integer;
  fsize, i1, i2: integer;
begin
  // Дописать в конец файла очередное число Фибоначчи.
  // Открыть файл
  Assignfile(f, 'fib.txt');
    Rewrite(f);
  fsize := FileSize(f);
    i1 := 1;
    i2 := 1;
    // и записать в него первые 2 числа из ряда Фибоначчи
    Write(f, i1, i2);
CloseFile(f);
  // Если больше 2 чисел, то читаем 2 последних числа
Seek(f, fsize - 2);
  Read(f, i1, i2);
  // Считаем следующий элемент
  i1 := i1 + i2;
  // И записываем его в файл. При этом, указатель стоит уже в конце файла
  Write(f, i1);
  CloseFile(f);
end;

Добавлено через 10 минут
Самое главное, подскажите пожалуйста, возникла такая проблема: после всех действий вместо цифр в файле, я вижу непонятные символы. Открывал через блокнот и word.

Вернуться к обсуждению:
Фибоначчи Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.05.2019, 17:45

Готовые ответы и решения:

Последовательность Фибоначчи. Сумма в последовательности Фибоначчи для числа N
смысл задачи - каждое число можно представить как сумму чисел из ряда Фибоначчи. 1>2>3>5>8>13>21...

Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное число М
Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное...

Фибоначчи!!
вывести последовательность Фибоначчи до заданного числа, т.е пользовательо задает число с...

Фибоначчи и while
Дано целое число N(>1). Последовательность чисел Фибоначчи F(k) определяется следующим образом:...

	21.05.2019, 17:45

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.05.2019, 17:45

Помогаю со студенческими работами здесь

Фибоначчи-Трибоначчи
Ребята, подсобите немного, если не сложно. Требуется для вводимого числа построить значения...

Числа Фибоначчи
Числа Фибоначчи.Определить 40-е число Фибоначчи Плизз!!!в делфи:(

Фибоначчи длинных чисел
Народ, требуется сделать программу нахождения N-ного числа Фибоначчи. Соль в том, что нужно, чтобы...

массивы + числа Фибоначчи
Разработать проект. Delphi:wall: Вводятся размеры и элементы двумерного массива. Составить...

Наверх