Возможны минимум три варианта:
1. Меню Run, строка Run с подсказкой горячих клавиш F9;
2. Щёлкнуть по иконке зелёного треугольника 
;
3. F9.
В языке Pascal и соответственно в Delphi нет операции возведения в степень. Это большое упущение. Можно воспользоваться математической формулой:
XY = exp(Y * Ln(X)),
например, 23 = exp(3 * ln(2)).
Так как надстрочные символы в коде программы не напишешь, то для степени при подсказках используют символ титла – ^. В нашем примере для отображения в метке 23 нужно записать 2 ^ 3.
Для перевода вещественного числа в строку воспользуемся функцией FloatToStr ()так как в параметре Caption компонента Label данные строкового типа.
@ десятичные числа с дробной частью в языках программирования записываются с использованием точки, которая является разделителем целой и дробной частей.
@ Для вывода нескольких строковых данных (переменных, констант) воспользуемся операцией сцепления (конкатенации) для строковых данных. Эта операция “+”. С помощью её данные как в паровозике образуют состав, который воспринимается как одна строковая величина.
@ Если в математическом выражении есть обыкновенная дробь, то числитель и знаменатель заключите в круглые скобки. Правда, это не обязательно делать в некоторых случаях, но в большинстве случаях очень даже помогает.
Пусть нам нужно выполнить следующую задачу:
Маша и Даша собирали грибы. Маша принесла a грибов, а Даша – b грибов. Сколько всего грибов собрали девочки?
Данные для переменных a и b нужно ввести с клавиатуры.
После запуска форма может выглядеть так:
|
|
По щелчку на кнопке ОПРЕДЕЛИТЬ появится результат.
Код программы
Рассмотрим код процедуры Click для кнопки “определить”:
procedure TForm1.Button1Click(Sender: TObject);
Var
a , b : integer ;
Begin
// В переменные a и b заносим целочисленные
//значения
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
Label5.Caption := IntToStr(a + b);
End;
Использование оператора ветвления
Константину нужно вычислить модуль введенной числовой величины (расстояние от начала координат) с помощью программы. Он не знает стандартной функции Pascal abs. Помогите ему это сделать (использовать стандартную функцию нельзя).
Контрольный пример:
-17,78 ответ: 17,78 ответ: 3
После запуска форма может выглядеть так:
 | |||
 | |||
По щелчку на кнопке ОПРЕДЕЛИТЬ появится результат.
После изменения данных в любом из компонентов Edit можно снова пересчитать результат, нажав на кнопку ОПРЕДЕЛИТЬ.
Код программы
Процедура Click для кнопки ОПРЕДЕЛИТЬ с дополнительным заданием
procedure TForm1.Button1Click(Sender: TObject);
Begin
a := strtofloat(edit1.Text); { получаем число }
if a < 0 then { не полная форма оператора ветвления }
a := -a;
Label5.Caption := floattostr(a);
end;
Индивидуальные задания:
6. Создать проект «Оптимальный вес». Ответ должен выводиться в окне сообщения.
7. Создать проект «Стоимость поездки на дачу». После щелчка на кнопке «Вычислить» должно появляться окно сообщения с вопросом «Туда и обратно?». Ответ вывести в поле Edit.
8. Дмитрию задали на дом решить несколько примеров по математике. Помогите ему проверить свои вычисления:
a) 28,1 – 36,8 : (50,08 + 49,92)
b) 54 x 3465 – 9025 : 95 + 360 272 : 712
c) (32,24 x 0,32 + 366,032 x 0,1) : 23
d) 62,92 : 5,2 – 4,2 x (7 – 6,3)
- Марианну попросили составить программу вычисления следующих математических выражений:
a) 
b) 
c) 
d) 
- Язык программирования позволяет проще вычислять математические выражения. Для этого сложную конструкцию (дроби, корни и т.д.) нужно представить в виде строчного математического выражения, используя для этого круглые скобки. Попробуйте вычислить следующие математические выражения, округлив данные до трёх цифр в дробной части:
a) 
b) 
c) 
d) 
11. Катя нашла A грибов, а Слава B. Среди этих грибов оказалось C несъедобных. Сколько съедобных грибов было собрано?
Контрольный пример:
А = 64, В = 89, С = 17, ответ: 136
12. Монгольский воин за 7 секунд выпускает обычную стрелу, а за 10 – зажженную. За какое время воин выпустит А обычных и В зажженных стрел?
Контрольный пример:
4 обычных, 5 зажженных – 78 секунд
13. У фермера дяди Вася в загоне паслись коровы и гуси. Каждый час дядя Вася заходил в загон и подсчитывал количество голов и общее количество ног и лап, не считая людские головы и конечности. После этого он сверял результаты со своими цифрами. Помогите подсчитать фермеру дяде Васе количество голов и количество ног и лап, если известно, что на данный момент в загоне А коров и В гусей.
Контрольный пример:
12 коров, 4 гуся, ответ: 16 голов и 56 ног и лап.
14. Для созревания картофеля нужно 90 дней. Прошло N дней после посадки. Можно ли выкапывать картофель?
Контрольный пример:
N – 67, ответ: рано.
N – 90, ответ: можно выкапывать.
*Усложним задачу.
До 85 – “рано”, от 85 до 89, “в принципе можно”, от 90 – 110 дней – “время выкапывать”, более 110 дней – “можешь все проспать”.
15. Молодой богатырь Данило Забияка решил мир посмотреть и себя показать. Взял с собой он сумму в A рублей (не менее 50). Вот подъезжает он к перекрестку и видит камень, на котором написано, – “налево пойдешь – пол суммы потеряешь и еще 20 рублей, направо пойдешь – утроишь свою сумму”. Данило подумал, что это вранье, да и не пристало добру молодцу кого-то бояться и поехал налево. Все случилось пописанному. Вернулся Данило к перекрестку и решил поехать направо. Снова все получилось, как написано на камне. Интересно – в проигрыше ли оказался Данило?
Контрольный пример:
A = 60 Ответ: в проигрыше
A = 200 Ответ: в выигрыше
16. Сестры подсчитали свои денежные накопления, у них оказались разные суммы. Какая сестра должна дать другой денег и сколько, чтобы у обеих сестер суммы стали равными?
Контрольный пример:
24,50 13, 48 ответ: первая сестра 5,51
20, 30 ответ: вторая сестра 5
17. Коля, Вася и Маша решили купить в столовой комплексный обед (фиксированный набор продуктов, следовательно, фиксированная цена одного обеда) стоимостью A рублей. Смогут ли они купить обед на каждого, если у Коли B рублей, Васи С рублей, а у Маши D рублей?
Контрольный пример:
A = 19,50; B = 4,8; C = 23,1; D = 20,1 Ответ: нет
A = 19,50; B = 14,8; C = 23,1; D = 20,1 Ответ: да
18. Коля, Вася и Маша собирали ягоды. После окончания сбора Маша решила отдать свои ягоды тому, кто меньше собрал ягод. Если же мальчики собрали одинаковое количество (в литрах), то разделить ягоды поровну. Сколько стало ягод у Коли и Васи, если ребята соответственно собрали A, B и C литров ягод?
Контрольный пример:
3 4,5 4 ответ: 7 4,5
4,5 4,5 6 ответ: 7,5 7,5
19. Кролик и бобер участвовали в одной команде по переноске воды из одного блюда в другое, используя соответственно чашку и кружку. Их команда проиграла. Кролик обвинил бобра в том, что тот медленно бегал. На это бобер ответил, что в кружке он за один раз переносил больше воды. Помогите им определить, кто из них прав, если кролик A раз вылил воду из чашки, бобр B раз из кружки? В кружку входило по C мл, а в чашку по D мл.
Контрольный пример:
A = 5 B = 3 C = 50 D = 70 – прав кролик
A = 5 B = 4 C = 50 D = 70 – прав бобёр
A = 7 B = 5 C = 50 D = 70 – оба ошиблись
20. Спроектировать приложение для перевода шкалы температур из Фаренгейта в Цельсия. Использовать для пересчета формулу (x-32) * 5/9 0C
Содержание отчета:
1. Наименование, тема, цель работы.
2. Таблица идентификаторов.
3. Блок-схема алгоритма.
4. Скриншоты выполнения программы на контрольном примере.
5. Код программы.
6. Выводы по работе.
Контрольные вопросы:
1. Какая функция переводит строковые данные в вещественные? Какая функция переводит строковые данные в целые? Какая функция переводит вещественные данные в строковые? Какая функция переводит целые данные в строковые?
2. Для запуска формы нужно …? Для сохранения формы и проекта нужно …? Где нельзя ставить символ “;” в операторе ветвления?
3. Сколько операторов можно записать после ключевых слов then и else?
4. Изменяя какой параметр можно вывести различные надписи?
5. Как назначить действие клик – щелчок по кнопке?
6. Для изменения параметров шрифта (цвет, размер, начертание, гарнитура) нужно …
7. Какой математической операции нет в Delphi? Как изменить порядок выполнения операций Delphi? В каком порядке выполняются операции одного приоритета?
8. Назовите стандартные математические функции в Delphi для извлечения квадрата из числа и получения квадрата числа.
9. Какие данные хранит компонент Edit?
10. Как поменять цвет шрифта в Label и Edit? Как создать процедуру Click (щелчок по кнопке)?
Дата: 2019-05-28, просмотров: 247.
