|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите решить задачку пожалуйста на Delphi
Здрасте!! помогите пожалуйста с задачкой!
Даны действительные числа А1,...,А25, B1,...,B25. Члены последовательности C1,...,C25 связаны с членами данных последователей соотношениями С25=0, С25-i=A25-i/B25-i - C25-i + 1 (i=1,..,24). Получить C1,...,C25. я тут создал три StringGrid. в двух забиваю случайные числа, а в одном хочу вывести правильный ответ! так вот..... подскажите пожалуйста как решить эту задачку? у ня чё то не получается... я пока смог забить тока случайные числа! а дальше?? |
#2
|
|||
|
|||
Ну так и считай.
Код:
var I : Integer; A, B, C : Array [1..25] Of Integer; begin C[25] := 0; For I := 24 DownTo 1 Do C[25-I] := A[25-I]/B[25-I] - C[25-I+1]; end; Ну а потом из массива C выводишь в 3й стринггрид. |
#3
|
|||
|
|||
Задача не получается! =( помогите пожалуйста!!!
Код:
procedure TForm1.Button1Click(Sender: TObject); var A,B:Byte; mas:array[1..25,1..25] of SmallInt; C : Array [1..25] Of Integer; i : Integer; begin Randomize; //генератор чисел for A:=1 to 25 do for B:=1 to 25 do begin mas[A,B]:=random(100); //забиваем массив случайными числами StringGrid1.Cells[0,A-1]:=IntToStr(mas[A,1]); //выводим на экран StringGrid1.Cells[1,B-1]:=IntToStr(mas[B,2]); //выводим на экран begin C[25] := 0; For i := 24 DownTo 1 Do C[25-i] :=A[25-i]/B[25-i]- C[25-i+1]; end; StringGrid1.Cells[2,C[25-i]]:=IntToStr (C[25-i]); end; end; end. ошибка выходит когда в стрингид С забиваю! =( исправьте пожалуйста! а еще программка тож вроде не оч правильно работает! там везде 0 выходит вроде! |
#4
|
||||
|
||||
1. C[25-i] :=A[25-i]/B[25-i]- C[25-i+1];
не вяжеться с A,B:Byte; 2. C[25-i] :=A[25-i]/B[25-i] не вяжеться с C : Array [1..25] Of Integer; Последний раз редактировалось Konrad, 17.05.2009 в 20:23. |
#5
|
|||
|
|||
А как связать?? =)
|