Функция

[qqq``]

Даны два значения G,F. F-не изменяется, G-начальное значение диапазона, найти функцию Z при условии если G>F то Z:=(F+G)div2 ,иначе Z:=F*G*2. К значению G при каждом прохождении цикла прибавляется шаг. Цикл с параметром обязательно .

Криво-косо идею написал ,но плохо понимаю программы с функцией

program project1;
uses Crt,FIleUtil;
var G,F:integer; i,p,d,j,h:integer;
function Z(G, F: integer): integer;
   begin
     If G>F then
         Z:=(G+F)div 2
           else
             z:=G*F*2;
             end ;
begin
  writeln (utf8ToConsole('Введите значение F'));//входной параметр
  readln (F);
  writeln (utf8ToConsole('Введите начальное значение диапазона G'));
  readln (P);
  writeln (utf8ToConsole('Введите конечное значение диапазона G'));
  readln (D);
  writeln (utf8ToConsole('Введите шаг диапазона J '));
  readln (J);
   h:=(D-P) div J; //по данной формуле вычисляется сколько раз будет выполнятся цикл
   G:=P;
  for i:=1 to h do //Цикл с параметром,чтобы автоматически вычислялся диапазон
     begin
       writeln (utf8ToConsole('Итерация='),i,' G=',G);
           Writeln (Z(G, F));
           end;
      G:=P+J*i;//Формула нужна для того, чтобы каждый раз к значению G прибавлялся шаг J.
      readln();
  writeln (utf8ToConsole('Нажмите enter для завершения программы...'));
  readln ();
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Heilagr]

У вас не правильно указан цикл. Цикл должен идти от начала диапазона до конца с шагом h

For i:=P to D do
           Begin
              ...//вычисление вашей функции
              i:=i+h  //переход на следующий шаг
           end;

и измените тип данных h с целочисленного на дробное.
h вычисляется вот так:

h=(D-P)/J