Кто может помочь с блок схемами???

[kirillbobo]

1)дано два числа А и В ,если А больше В присвоить обеим пременным значения суммы А+В,иначе присвоить обеим переменнымзначения 0

2)дано два числа А и В, А меньше В,найти сумму квадратов от А до В

3)вклад в банке сосотовляет 1000 р ,прценты по вкладу вводятся с клавиатуры,найти когда сумма вклада будет равна 1100 р,или привысит 1100 р и определить чему будет равна сумма вклада

Заранее спосибо

[Veselyn]

http://programmersforum.ru/showthread.php?t=78868
Это выглядит как флуд

[aleks8091]

Veselyn да , наверно ты прав , но меня тема заинтересовала подскажи как правильно написать код...
Задача 2. Решение:

procedure TForm1.Button1Click(Sender: TObject);
var  A, B, C, D, E: Integer;
begin
  A:=StrToInt(Edit1.Text);
  B:=StrToInt(Edit2.Text);
if A<B then
  begin
    C:=A*A;
    D:=B*B;
    ListBox1.Items.Add('A^2='+IntToStr(C));
    ListBox1.Items.Add('B^2='+IntToStr(D));
  end;
  E:=C+D;
  ListBox1.Items.Add('Сумма квадратов равна: '+IntToStr(E));
end;
end.

Сдесь я просто сумму квадратов сложил E:=C+D , как сделать "найти сумму квадратов от А до В" ??? тоесть как создать такой цикл ?

[Veselyn]

program xxx;
var
mas:array[1..99] of integer;
a, b, sym: integer;
begin
readln(a,b);
sym:=0;
for a to b do
sym:=sym+sqr(mas[a]);
writeln("Сумма квадратов равна: ",sym);
read;
end.

Не проверял

[aleks8091]

Вроде сделал также..

var
  mas: array[1..99] of Integer;
  a, b, s: Integer;
begin
  s:=0;
  b:=StrToInt(Edit2.Text);
for a:=StrToInt(Edit1.Text) to b do
  begin
    s := s + mas[a];
    Memo1.Lines.Add('Сумма квадратов равна: '+IntToStr(s));
  end;
end;

задал от 3 до 5 при проверке получилось

Сумма квадратов равна: 9572309
Сумма квадратов равна: 19541509
Сумма квадратов равна: 23822338

В чем ошибка?

[s.Creator]

PHP код:

var
  a, s: Integer;
begin
  s := 0;
  for a := StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
  begin
    s := s + sqr(a);
  end;
  Memo1.Lines.Add('Сумма квадратов равна: ' + IntToStr(s));
end; 


[s.Creator]

Ошибка в том что массив mas не был инициализирован и содержал мусор памяти ( и зачем он вообще? )

[aleks8091]

Спасибо, разобрался..