задачи на тему алгоритмы циклической структуры

@dedkarakyl · Регистрация: 20.02.2012

задачи на тему алгоритмы циклической структуры

@BumerangSP · 20.02.2012, 20:05

1)

Delphi

var i: integer;
    x,y,sum: real;
    s,i1: string;
begin
 i:=0;
 sum:=0;
 x:=4;
 while x<>0 do
  begin
   y:=sqrt(x+sin(x));
   if y>1 then
    begin
     sum:=sum+y;
     inc(i);
    end;
   x:=x-0.5;
  end;
  i1:=inttostr(i);
  s:=floattostrf(sum,ffFixed,0,2);
  label1.Caption:='Сумма значений = '+s+' Количество значений: '+i1;
 end;

@dedkarakyl · 20.02.2012, 20:36 **[ТС]**

спасибо большое

Добавлено через 25 минут
а можешь полностью скинуть? пожалуйста.

@BumerangSP · 20.02.2012, 21:04

Вот полностью:

@dedkarakyl · 20.02.2012, 22:04 **[ТС]**

прошу прощение за наглость, а как другие две задачи делать? ну если конечно тебе не сложно.

@BumerangSP · 21.02.2012, 08:26

Вообще, не сложно, а интересно, но я не могу понять алгоритм, к примеру, в третьей задаче. Какое слагаемое идет в след за $https://www.cyberforum.ru/cgi-bin/latex.cgi?{t}_{1}{t}_{k-2}$ ?

@dedkarakyl 0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 3
		1
	задачи на тему алгоритмы циклической структуры 20.02.2012, 17:07. Показов 1125. Ответов 5 Метки нет (Все метки) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@dedkarakyl 0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 3
	20.02.2012, 20:36 [ТС]	3
	спасибо большое Добавлено через 25 минут а можешь полностью скинуть? пожалуйста. 0

@dedkarakyl 0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 3
	20.02.2012, 22:04 [ТС]	5
	прошу прощение за наглость, а как другие две задачи делать? ну если конечно тебе не сложно. 0

@BumerangSP 4299 / 1421 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	21.02.2012, 08:26	6
	Вообще, не сложно, а интересно, но я не могу понять алгоритм, к примеру, в третьей задаче. Какое слагаемое идет в след за $https://www.cyberforum.ru/cgi-bin/latex.cgi?{t}_{1}{t}_{k-2}$ ? 0

Опции темы