Двумерный массив и Циклическая алгоритмическая конструкция

[Natcyme]

Добрый деньнужна помощь в исправлении ошибок 2х заданий на языке Pascal.
1е по массивам:Найти сумму элементов нечетных строк матрицы.(моя программа на фото)Преподаватель сказал,что нужен ввод строк и столбцов и тд. И дальнейший расчет сумм элементов неч. строк матрицы.
И 2я задача на Циклическую алгоритмическую конструкцию:
Вычислить значение y, которое соответствует каждому значению x
(x = 1, dx = 0,5), по формуле: . Считать y до тех пор, пока подкоренное выражение больше или равно 0,05. Определить k – количество вычисленных y.
Мой код:

program d;
uses crt ;
var y,x, k,dx: integer;
begin
clrscr;
k:=0;
while y=<0.05 do
begin
         x:=x+dx;
y:=sqrt((x+2)/x*x*x);
K:=K+1;
Writeln( ‘k=’ k);
End;
End.

Но преподаватель сказал,что код не правильный т.к. нету ввода в программе х и dx.
Прошу помогитеЗаранее спасибо

[Mad_Cat]

т.к. нету ввода в программе х и dx.

дык сразу после первого begin

Readln(x);Readln(dx);

и в

var y,x, k,dx: Real;

[Stilet]

Он прав...

program d;
uses crt ;
var y,x, k,dx: integer;
begin
clrscr;
k:=0;

write('А вот вы начальный Иксик всуньте ка мена ка, а?'); Readln(x);
write('А теперь, пожалуйста, приращеньеце dx. Ну пжалста... Чего вам стоит то?'); Readln(dx);

while y=<0.05 do
begin
         x:=x+dx;
y:=sqrt((x+2)/x*x*x);
K:=K+1;
Writeln( ‘k=’ k);
End;
End.

P.S. Ну в смысле и учитель прав и Mad_Cat прав.

[Natcyme]

Неполучается

[Stilet]

Writeln( ‘k=’,k);

Межпрочим это не мои косяки, я просто не заметил там отсутствие запятой.

[Natcyme]

странноК вроде должно быть не такимв чем проблема?

[Mad_Cat]

y:=sqrt((x+2)/x*x*x)=sqrt(3/1)=sqrt(3);
корень из 3 всяко больше 0.05 но цикл один раз отработает все равно)

[Natcyme]

нужно чтобы он отработал больше 1 разапримерно 4,вроде.Как это сделать?

[Mad_Cat]

Как это сделать?

подбирай x и dx)

Нет,ты меня не понял

Эт ты не понял подбери такие начальные данные при которых твой цикл сработает 4 раза)
попробуй x=0.00002 dx=0.0002

[Natcyme]

Нет,ты меня не понял нужно именно расчитать число рассчетов y (это к) т.е. считать уравнение до тех пор пока у не будет>=0.05