понеділок, 22 жовтня 2018 р.

9 клас. Алгоритми пошуку елементів табличних величин.

Завдання:
1. Використовуючи програмний код (див. нижще) виконайте Вправу 1. Пошук номера елемента. с. 130.
2. Замініть в програмному коді цикл for на інший (repeat, або while)
3. ДЗ: повторити 8 клас п.25 (цикли),
           опрацювати с. 130-132, вправа 2 с.132 пояснювати.

begin
  flag:=0;
  a[1]:=StrToInt(Memo1.Lines[0]);
  for i:=1 to 9 do
      begin
           a[i+1]:= StrToInt(Memo1.Lines[i]);
           if a[1]=a[i+1] then
                          begin
                            flag:=i+1;
                            break;
                          end;
       end;
  if flag>0 then edit1.Text:=IntToStr(flag)
            else edit1.Text:='Елемент не існує';
end;   

Немає коментарів:

Дописати коментар