Последовательность натуральных чисел

[777UFO777]

да наверное же

[Zakharov]

{приблизительно так}
var i,j:integer;
    matr:array[1..12,1..12] of real;
begin
{.....................}
{где-то матрицу взяли}
{.....................}

for i:=1 to 12 do
begin
  for j:=i to 12 do
  begin
    mat[i,j]:=0
  end
end;

[777UFO777]

{.....................}
{где-то матрицу взяли}
{.....................}
я не пойму что это означает, подскажи пожалуйста

[Deight]

Это означает что сдесь будет заполняться матрица, и этот цикл будет все затирать на ноль(это не то).

[Deight]

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
For i:=0 to 11 do
For j:=0 to 11-i do
StringGrid1.Cells[j+i,i]:='0';
end;

//Сильно просто\\

[777UFO777]

Спасибо огромное работает класно!

[777UFO777]

Ещё бы не могли бы помочь а то в субботу надо сдать 8 задач а у меня только три, хотя бы вот эти две:
1)При некоторых заданных x, N и E, определяемых вводом, вычислить:
сумму N слагаемых заданного вида;
сумму тех слагаемых, которые по абсолютной величине больше Е.
Для случая b выполнить суммирование для двух значений Е, отличающихся на порядок, и при этом определить количество слагаемых, включенных в сумму. Сравнить результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (-R, R).

2)Напишите функцию CountStr(str1,str2: string) которая получает два параметра str1 и str2 типа string и возвращает число, указывающее, сколько раз str2 встречается в str1. Функция не должна изменять свои параметры. Кроме того, любая литера в str1 может учитываться не более чем в одном вхождении str2. Например, CountStr( 'балалайка', 'ала' ) должна возвращать 1, а не 2.
2 задачку я делал через РOS а преподаватель не принял сказал надо через массив чаров.

Помогите пожалуйста!

[Sm1Le]

Сообщение от 777UFO777

2)Напишите функцию CountStr(str1,str2: string) которая получает два параметра str1 и str2 типа string и возвращает число, указывающее, сколько раз str2 встречается в str1. Функция не должна изменять свои параметры. Кроме того, любая литера в str1 может учитываться не более чем в одном вхождении str2. Например, CountStr( 'балалайка', 'ала' ) должна возвращать 1, а не 2.
2 задачку я делал через РOS а преподаватель не принял сказал надо через массив чаров.

Помогите пожалуйста!

Массив чаров это String.

function CountStr(str1:string;str:string):integer;
var i,x:integer
begin 
i:=1;x:=0;
while i<length(str1)-2 do 
begin
if ((str1[i]=str2[1]) and (str1[i+1]=str2[2]) and (str1[i+2]=str2[3])) then 
begin 
i:=i+3;
x:=x+1;
end
else
i:=i+1;
end;
CountStr:=x;
end;

- Проверь =)

а 1 просто не понял ...

[777UFO777]

выдаёт ошибку "expected but 'BEGIN' found это чё значит?

[777UFO777]

всё нашёл где ошибка работает норм. спасибо огромное