Главная » Уроки по ОАиП » Урок 2. Переменные. Типы данных. Математические выражения

ПРАКТИЧЕСКАЯ РАБОТА

Урок 2. Переменные. Типы данных. Математические выражения

 

ПРАКТИЧЕСКАЯ РАБОТА №2. ЛИНЕЙНЫЕ ПРОСТЕЙШИЕ ПРОГРАММЫ

Уровень №1. Даны три числа x,y,z. Составить программу для вычисления значения переменных a и b по следующим формулам:

Решение:

1. Запустите Delphi. Перед вами откроется новый проект.  Сохраните его в отдельной папке (сохраните модуль .pas и файл проекта .dpr) командой из главного меню File – Save All.
2. Установите на форму 3 компонента Edit (со вкладки Standart на палитре компонентов), 3 компонента Label (стр. Standart), кнопку Button (стр. Standart).
3. Установите в окне Object Inspector свойства следующих компонентов:

Свойство Font у всех компонентов установите: Начертание - Жирный, Размер - 14 пунктов.

1. В результате ваша форма должна иметь следующий вид:

1. Затем дважды щелкните левой кнопкой мыши по кнопке Button1. В результате откроется окно редактора кода с готовым обработчиком события onClick:

1. Впишите между служебными словами begin и end следующий код программы:

x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);
a:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x)*sqr(y))))+x;
b:=sqr(cos(arctan(1/z)));
ShowMessage('a='+FloatToStr(a)+', b='+FloatToStr(b));

1. Перед словом begin добавьте раздел Var:

var x,y,z:integer;a,b:real;

1. Сохраните проект (File – Save All).
2. Запустите программу на выполнение (F9 или Run - Run).
3. Введите экспериментальные данные в компоненты Edit1, Edit2, Edit3 и нажмите на кнопку «Вычислить». В результате на экране появиться окно с вычисленными значениями переменных a и b.

Уровень №2. Даны три числа x,y,z. Составить программу для вычисления значения переменных a и b по следующим формулам:

Уровень №3. Даны два числа a и b. Получить их сумму, разность и произведение.
Практическая работа №3. Простейшие линейные программы

Уровень №1. Составьте программу, которая переводит введенную пользователем сумму в тенге в доллары.
Тест: сумма в тенге = 2500, курс доллара = 130, результат = 19,23
Уровень №2

1. Пользователь вводит цену 1 килограмма яблок и вес в килограммах своей покупки. Программа выводит общую стоимость.

Тест: цена = 130, вес = 3, результат = 390.

1. Даны действительные числа x и y. Получить z=(|x| – |y|) / (1 + |x·y|).

Тест: x=7, y=5, результат z=0.55
Уровень №3. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь. (Формула гипотенузы -  с2=а2+b2, Формула площади - S=ab/2).
Тест: a=3, b=4, результат c=5, s=6

 

 

Составитель: Салий Н.А.