Визуальное программирование

СОДЕРЖАНИЕ

 

Задание 1

 

1. Постановка задачи

Протабулировать функцию ,

                                                         

где с =3 2, d = 5.

2. Блок-схема программы

 

 

 

Рисунок 1 – Блок-схема табулирования функции

 

1.3. Исходные данные для отладки и тестирования программы

 

В качестве исходных данных выберем значения a = -2, b = 1, h = 0,1 и проверим работу программы, нажав на кнопку «Табулировать».

Результаты можно посмотреть в рабочем окне программы на рис. 2.

 

     1.4. Исходный текст программы:

 

procedure TForm1.Button1Click(Sender: TObject);

var a,b,h,x,y,c,d: real;

begin

  a:=strtofloat(Edit1.Text);

  b:=strtofloat(Edit2.Text);

  h:=strtofloat(Edit3.Text);

  x:=a;

  d:=5;

  c:=3;

  Memo1.Clear;

  Memo1.Lines[0]:='x  |  y';

  Memo1.Lines.Add('      ');

  While x<=b+0.0001 do

begin

  if x>0 then y:=d*Ln(sqr(x))+2*c*sqrt(x) else y:=Abs(d*x)+c*exp(2*x);

  Memo1.Lines.Add(Floattostr(x)+'  |  '+Floattostr(y));

  x:=x+h;

  end;

end;

 

5. Экранная форма программы

 

 

Рисунок 2 – Результат выполнения программы

 

Задание 2

 

1. Постановка задачи

 

       Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000].

1. Найти сумму четных элементов.
2. Подсчитать количество элементов массива, значения которых состоят из двух цифр.
3. Найти номер первого положительного элемента, делящегося на 5 с остатком 2.

 

2. Блок-схема программы

 

 

Рисунок 3 – Блок-схема создания массива целых чисел

 

 

Рисунок 4 – Блок-схема нахождения количества четных элементов.

 

 

Рисунок 5 – Блок-схема нахождения количества элементов массива, значения которых состоят из двух цифр

 

 

 

Рисунок 6 – Блок-схема нахождения номера первого положительного элемента, делящегося на 5 с остатком 2.

 

3. Исходные данные для отладки и тестирования программы

 

В качестве исходных данных вводим любое целое число n – количество элементов массива и, нажав на кнопку «Создать», формируем одномерный массив, заполненный случайным образом целыми числами из промежутка [-1000, 1000].

Напротив каждой задачи стоит кнопка «Найти», при нажатии  которой она решается.

Результаты можно посмотреть в рабочем окне программы на рис. 8.

 

4. Исходный текст программы

 

Описание глобальных переменных

var

  Form1: TForm1;

  a:array [1..20] of integer;

  n,i,t:integer; 

 

Текст процедуры для  заполнения массива случайными числами:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  n:=strtoint(Edit1.text);

  Edit2.Clear;

  for i:=1 to n do

  begin

    a[i]:= Random (2001)-1000;

    Edit2.Text:=Edit2.Text+'  '+Inttostr(a[i]);

    end;

end;                            

 

Тексты процедур для заданных вычислений и вывода результатов на экран:

 

procedure TForm1.Button2Click(Sender: TObject);

var k: integer;

begin

  k:=0;

  Edit3.Clear;

  for i:=1 to n do

  begin

    if (a[i] mod 2=0) and (a[i]<>0) then k:=k+a[i]

    end;

  Edit3.Text:=inttostr(k);

   end;                                 

 

 

procedure TForm1.Button3Click(Sender: TObject);

var k: integer;

begin

  k:=0;

  Edit4.Clear;

  for i:=1 to n do

  begin

   if (Abs(a[i])>=10) and (Abs(a[i])<=99) then k:=k+1;

  end;

  Edit4.Text:=InttoStr(k);

end;                                       

 

procedure TForm1.Button4Click(Sender: TObject);

var k: integer;

begin

  k:=0;

  Edit5.Clear;

  for i:=n downto 1 do

  begin

    if (a[i] mod 5 = 2) and (a[i]>0) then k:=i

    end;

  Edit5.Text:=inttostr(k);

end;              

 

Текст процедуры для  закрытия формы:

 

procedure TForm1.Button5Click(Sender: TObject);

begin

  Form1.Close;

end;            

 

 

5. Экранная форма программы

 

 

Рисунок 7 – Результат выполнения программы.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+

 

 

 

-