Табулирование функции и суммы функционального ряда

[forumu]

Сообщение от puporev

Вы все таки почитайте какую нибудь книгу. Вы спрашиваете о вещах, которые излагаются на первых страницах.
1. if ((a[i] div 10)*(a[i] mod 10) mod 15 = 0)
2. if ((a[i] div 10)*(a[i] mod 10) mod 15 = 0 then write(a[i])

А у вас выводится здесь a[i] а как сделать так чтобы выводилось много значений. там же не одно число будет, сумма квадратов цифр которых кратно 15.

[puporev]

Так это же все в цикле for i:=1 to n do и выводится будет каждое a[i], пока не закончится цикл. Вы сначала программу напишите, откомпилируйте, а потом вопросы задавайте. А то я еще не успел написать, а Вы уже новый вопрос на ту же тему.

[puporev]

Извини друг, погорячился я, а ты не поправил. Я показал задачу, когда из массива выдергивают нужные числа, а по условию нужно проверить все двухзначные числа, для чего их нужно программно создать, а потом уже выдергивать нужные.
Смотри код и если что непонятно, спрашивай. Насчет книг ты неправ. Если у тебя есть выход в Интернет, то ты там можешь много книжек скачать. Если мы с тобой заплюхались со второй задачей, то за первую лучше пока не браться, все равно до завтра не решишь.

Program Chislo15;
uses crt;
const n=9;
var a,b:array[1..n] of integer; i,j:integer;
begin
clrscr;
for i:=1 to n do   (Вводим первую цифру)
  a[i]:=i;
for j:=1 to n do   (Вводим вторую цифру)
  b[j]:=j;
for i:=1 to n do    (Создаем все двухзначные числа без нолей
  for j:=1 to n do   т.к. 0^2+a^2 никогда не кратны 15)
    begin
      if (sqr(a[i])+sqr(b[j])) mod 15=0 then  (Выбираем из них кратные 15.Это 36,39,63,93.
 write(a[i]*10+b[j],' ');                      (Выводим их на экран)   
    end;
  readln
end.

[forumu]

А на делфи многое надо поменять? я просто между ними связь незнаю какое из паскаля какому из делфи соответствует.
Вроде все также как и на делфи тока вот слова writeln и readln не понимаю

clrscr;
uses crt;
const n=9;
первый раз вижу. извините что так много спрашиваю

[forumu]

write(a[i]*10+b[j],' '); эта строрчка ошибку выдает.
я написал otv:=(a[i]*10+b[j],' '); <== вот это вот ' ' для чего оно, чтобы все числа выводились?
потом Edit2.Text:=FloatToStr(otv);
и не понимаю в чем ошибка

[forumu]

а выводить в edit или в листбокс. ошибку в строке (a[i]*10+b[j],' ') выводит после запятой перед ' '

[forumu]

Ну вот что у мен получилось

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..99] of integer; i,j,otv:integer;
begin
for i:=1 to 99 do //Вводим первую цифру
a[i]:=i;
for j:=1 to 99 do //Вводим вторую цифру
b[j]:=j;
for i:=1 to 99 do // Создаем все двухзначные числа без нолей
for j:=1 to 99 do // т.к. 0^2+a^2 никогда не кратны 15
begin
if (sqr(a[i])+sqr(b[j])) mod 15=0 then //Выбираем из них кратные 15.Это 36,39,63,93.
otv:=(a[i]*10+b[j], ''); здесь выдает ошибку после запятой перед ' '
end;
Label1.Caption:=FloatToStr(otv);
end;

end.

[puporev]

Пропал у меня вчера интернет, только сегодня исправили.
И в каком месте у тебя написано, что нужно на Delphi?
Потом, ты зачем переделал мой текст, если не понимаешь?
У меня a:array[1..9] - это цифры, а у тебя [1..99] - это что?
Вот код на Делфи, внимательно посмотри, где у тебя ошибки.

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..9] of integer; i,j:integer;
begin
   for i:=1 to 9 do 
     a[i]:=i;
   for j:=1 to 9 do 
     b[j]:=j;
   for i:=1 to 9 do 
     for j:=1 to 9 do 
       begin
           if (sqr(a[i])+sqr(b[j])) mod 15=0 then 
           Label1.Caption:=Label1.Caption+InttoStr(a[i]*10+b[j])+' '; 
      end;
end;

end.

Да, еще в ObjectInspector в свойствах Label сотри текст в окошечке Caption.

[forumu]

Спасибо большое я написал

[BUXA]

2forumu
если написал на делфи такую прогу к функции,то отпишись пожалуйста её сюда...ломаю голову не могу написать правильно...