Все люди пишут свой код по-разному. Однако если человек хочет, чтобы его код мог без затруднений прочитать другой программист, то нужно научиться писать код красиво и ясно.
Помогите, пожалуйста. я не понимаю, что конкретно не правильно:
program Project3; {$APPTYPE CONSOLE} {Дан двумерный целочисленный массив размера M ? N и целые числа k и р. Написать функцию, которая вычисляет номер первого столбца, содержащего все элементы, значения которых принадлежат диапазону [k, p].} {$R *.res} uses System.SysUtils; const N=4; M=5; type ARR=array[1..N,1..M] of integer; var a:ARR; k,p,i,j: integer; procedure enter (var c:integer); begin randomize; c:=random((201)-100); //рандомный выбор элементов writeln(c);//вывод матрицы end; function comp(b:ARR; h,e:integer):integer; var j,i,l,j0:integer; begin for j := 1 to N do //столбцы begin l:=0; j0:=0; for i := 1 to M do//строки begin if b[i,j]>=h then//если элемент положительный - считаем if b[i,j]<=e then l:=l+1; if l=M then j0:=j; //если все элементы столбца отрицательны - цыкл останавливается end; if j0=j then comp:=j0; end; end; begin for j:=1 to N do//столбцы begin for i:=1 to M do //строки begin enter(a[i,j]); end; writeln; end; writeln('Enter the lower limit of the range'); readln(k); writeln('Enter the upper limit of the range'); readln(p); if k>=p then writeln('The lower limit can not be equal to or greater than the upper boundary'); if k<p then writeln(comp(a,k,p)); readln; end.
если программа не сохранена, то пишет, что не сумел, а если сохранена, то начинает работать, потом высвечивается брейк, континью, хелп. нажимаю на брейк - отправляет в систем, нажимаю континью- отправляет в CPU. в сообщениях пишет: [dcc32 Warning] Project3.dpr(39): W1035 Return value of function 'comp' might be undefined
Не кто не проверял что ли? Не работает же. i := 0; while i < n do begin i := i + 1; m[i] := random(1, 10); for k := 1 to i - 1 do - вот в этом месте на первой итерации всегда k=1, а i=0
"Итак встречайте самый популярный и самый знаменитый хостинг в России..." Шпок! (Звук лопнувшего шарика от чрезмерного надувания). Лет 10 с хостинг-компаниями работаю, а о таком слышу впервые.
А я этот использую: https://firstvds.ru/ Уже года 4 или 5. Очень навится. Виртуальный выделенный сервер — то что нужно. И цена вроде приемлемая (может и не очень дешево, но и не очень дорого). Техподдержка работает исправно. Бывают проблемы, но решаются довольно быстро. На самом деле я другими хостингами не пользовался так плотно как этим, но могу сказать что пока уходить не планирую.