51059

Програмування циклів

Практическая работа

Информатика, кибернетика и программирование

Мета: Створити форму для розвязування задачі табулювання функції. Створити у ній головне меню (обєкт типу MeinMenu) з командами: Закінчити роботу програми, табулювати функцію, очистити поле виведення результатів, а також контекстове меню (PoupMenu), що міститиме команду для очистки поля виведення...

Украинкский

2014-02-04

152.28 KB

2 чел.

Розробив

Олійник Д.А.

2.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

1

Змін

Арк.

№ Докум

Підпис

Дата

Практична робота №3

Тема: Програмування циклів

Мета:Створити форму для розв’язування задачі табулювання функції. Створити у ній головне меню (об’єкт типу MeinMenu) з командами: Закінчити роботу програми, табулювати функцію, очистити поле  виведення результатів, а також контекстове меню (PoupMenu), що міститиме команду для очистки поля виведення. Результати табулювання вивести у багаторядкове поле редагування(об’єкт  типу Memo). Передбачити можливість виведення результатів на екран, у файл,у масив. Напрямок виведення  задати за допомогою трьох прапорців (об’єктів типу CheckBox), розташування на панелі групи об’єктів (типу GroupBox).

Хід роботи

procedure TForm1.N3Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Ghjnfekdfnb1Click(Sender: TObject);

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

cod          : integer;

str1,str2    : string;

begin

Memo1.Lines.Add('  X  F(X)');

Val(Edit1.Text,a,cod);

Val(Edit2.Text,b,cod);

Val(Edit3.Text,h,cod);

x:=a;

while x<=b+h/2 do

begin

y:=sin(x)+1;

Str(x:8:2,str1);

Str(y:8:3,str2);

if CheckBox1.Checked then

Memo1.Lines.Add(str1+str2);

x:=x+h;

end;

Розробив

Олійник Д.А.

2.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова М.

2

Змін

Арк.

№ Докум

Підпис

Дата

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.FormCreate(Sender: TObject); 

begin

end;

end. 

            

Висновок:  Я навчився програмувати цикли для розв’язування задачі табулювання функцій.


 

А также другие работы, которые могут Вас заинтересовать

65083. Этнонимы народов золотоордынского Поволжья по данным персидских источников XIII - первой половины XV века 52.5 KB
  Обширный Поволжский регион в силу своего выгодного географического положения с давних времен занимал особое место в исторических судьбах Евразии. Являясь связующим звеном между Востоком и Западом, он стал ареной активных межэтнических контактов...
65086. ОЦЕНКА РЕЛИГИОЗНО-ПОЛИТИЧЕСКОЙ ДЕЯТЕЛЬНОСТИ ЦЗОНКАБЫ ЛОБЕАН-ДАГБЫ В ТРУДАХ Г.Ц. ЦЫБИКОВА И Б.Я. ВЛАДИМИРЦОВА 34.5 KB
  Цыбиков пользуется термином реформаторство применительно к деятельности Цзонкабы однако вместе с тем уточняет что он подразумевает под ним объясняя свое понимание сущности рассматриваемой проблемы.
65087. УКЕК В КУЛЬТУРНОМ ПРОСТРАНСТВЕ НИЖНЕГО ПОВОЛЖЬЯ 60 KB
  На южной окраине Саратова находятся остатки золотоордынского города Укека возникшего в конце 40 начале 50х гг. И в настоящее время города в отдельных регионах имеют значительные особенности. Многие считают что города у кочевников возникали сначала искусственно как военно-административные центры...
65088. Никудерийская орда как фактор чагатайской истории (1270-1330-е гг.) 99.5 KB
  Никудер поддержал Чагатаида Боракхана потерпел неудачу и попал под стражу. когда Боракхан опираясь на решение курултая в Таласе заявил о претензиях на южные территории входившие по завещанию Чингизхана в улус Чагатая.
65090. Караунасы-никудерийцы и их роль в чагатайской истории 63.5 KB
  Никудерийцы и Дувахан Согласно завещанию Чингизхана улус его сына Чагатая распространялся от уйгурских земель на востоке до Амударьи на западе а на юге имел пределом индийские владения. После поражения Боракхана и подчинения ильханами дома...