Предмет: Информатика,
автор: sliusarenkotx
Создать проект нахождения сумы чисел 1^2 + 2^2 + … + n^2 в TurboDelphі
МОЛЮ ВАС. ПОМОГИТЕ.
Ответы
Автор ответа:
0
Вот тебе функция для подсчета суммы, проект форму, кнопки, едеты на твоих плечах. Код вставляй после implementation и используй примерно так:
////////////////
Label1.Caption:=inttostr( sums( strtoint( edit1.text ) ) );
///////////////
function sums(N: integer): integer;
var i, t: integer;
begin
for i:=1 to N do t:=t+sqr(i);
sums := t;
end;
////////////////
Label1.Caption:=inttostr( sums( strtoint( edit1.text ) ) );
///////////////
function sums(N: integer): integer;
var i, t: integer;
begin
for i:=1 to N do t:=t+sqr(i);
sums := t;
end;
Интересные вопросы
Предмет: Биология,
автор: Justttmann
Предмет: Литература,
автор: Аноним
Предмет: Другие предметы,
автор: Аноним
Предмет: Алгебра,
автор: dasha278258
Предмет: Математика,
автор: lera8900