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

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

Войти
Регистрация
Восстановить пароль
 
A1lexen
0 / 0 / 0
Регистрация: 14.07.2016
Сообщений: 27
#1

Не могу разобрать задачу - Delphi

08.02.2017, 12:59. Просмотров 166. Ответов 3
Метки нет (Все метки)

Скрин задачи. Без использования массивов
0
Миниатюры
Не могу разобрать задачу  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2017, 12:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Не могу разобрать задачу (Delphi):

разобрать задачу с radiobutton и элементами оформления - Delphi
Не понимаю смысл задачи. Разместите на форме три компонента переключателя RadioButton. Каждый из них будет соответствовать варианту...

Решение квадратного уравнения (разобрать задачу) - Delphi
пишите в скайп soslan15rus1 или агент sos_dzusov@mail.ru срочно unit Unit1; interface uses Windows, Messages, SysUtils,...

не могу сформулировать задачу - Delphi
Задача в Delphi Присваиваете переменной значение элемента массива (3,1) В цикле перебираете этажи (от 3-го до 4-го) Во вложенном...

Не могу открыть задачу для редактирования!( - Delphi
Здравствуйте. Через архив мне скинули задачу. Хотела открыть ее в Делфи и отредактировать. Но когда открываю, такового листинга нет.:(...

Работа с файлами. Я новичок и что то вообще не могу сделать задачу - Delphi
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, делящиеся на 2 и не делящиеся на 7.

НАрод, пожалуста, с этого сайта задачу, очень надо сделать задачу - Delphi
http://www.delphiplus.org/praktikum-po-delphi/prakticheskaya-rabota-34-igra.html

3
YuryK
1026 / 843 / 313
Регистрация: 08.12.2016
Сообщений: 3,283
08.02.2017, 14:15 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
  a1, a2, a3, ai, fac, i: integer;
  s: double;
begin
  s := 0;
 
  a1 := 1; // эти строки лишние, но компилятору не нравится :)
  a2 := 1;
  a3 := 1;
 
  fac := 1;
  for i := 1 to 16 do begin
    fac := fac * i;
    if i <= 3 then ai := 1 else ai := a1 -  a3;
    Memo1.Lines.Add('a(' + IntToStr(i) + ') = '+ IntToStr(ai)); //для проверки
    s := s + ai / fac;
    a1 := a2; a2 := a3; a3 := ai;
  end;
 
  Memo1.Lines.Add('s = ' + FloatToStr(s));
end;
1
Puporev
Модератор
52415 / 40262 / 13596
Регистрация: 18.05.2008
Сообщений: 93,075
08.02.2017, 14:31 #3
Delphi
1
else ai := a3 -  a1;
1
YuryK
1026 / 843 / 313
Регистрация: 08.12.2016
Сообщений: 3,283
08.02.2017, 14:35 #4
Puporev, точно
0
08.02.2017, 14:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2017, 14:35
Привет! Вот еще темы с ответами:

Не могу доделать "задачу о рюкзаке" - Delphi
Нужно решить многострадальную задачу о рюкзаке методом дп.я в курсе,что это стандартная задача,тем не менее решить ее не получается. .Уже...

Не могу разобрать задачу - C++
Когда вы вступите в Благотворительный Орден Программистов ( БОП ) , к вам могут обращаться на заседаниях БОП по вашему настоящему имени, по...

Не могу разобрать задачу - Java
Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1. Заранее спасибо.

не могу разобрать задачу по теории - Теория вероятностей
имеются три урны. в первой урон 10 белых и 3 черных, во второй 15 белых и 4 черных, в третьей - 20 белых и 5 черных. из каждой урны наудачу...


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

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

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