Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Порядок создания простого вычислительного проекта

Инсталляция Visual Basic | Сохранение проектана диске. Загрузка проектас диска | Окна среды Visual Basic | Главное меню Visual Basic | Run, Query, Diagram | Перенос вашего проекта на другие компьютеры | Объявление переменных величин | Dim p As Single | Математика. Запись арифметических выражений | Строковые переменные |


Читайте также:
  1. I. Порядок проведения соревнований
  2. I. Порядок проведения соревнований
  3. II. Порядок выплаты ежемесячной компенсации на оплату проезда до места проведения процедуры гемодиализа инвалидам, находящимся на постоянном диализном лечении.
  4. II. Порядок выплаты пенсии
  5. II. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ
  6. II. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ.
  7. II. Порядок и условия проведения

Все, что здесь сказано, полезно не только для вычислительных, но и для всех других проектов.

Задача:

Даны размеры спичечной коробки. Вычислить площадь основания коробки, ее объем и полную площадь поверхности.

 

Порядок создания проекта:

1. Программист сам должен знать решение задачи. Ведь программа - это инструкция по ее решению. Нельзя давать инструкцию, не зная, как решать.

В нашем случае программист должен знать формулы для вычисления всего, что нужно:

 

1. площадь основания = ширина х толщину

2. объем = площадь основания х высоту

3. периметр основания = две ширины + две толщины

4. площадь боковой поверхности = периметр основания х высоту

5. полная площадь поверхности = две площади основания + площадь боковой поверхности

 

Как видите, я для стройности вычислений ввел периметр основания и площадь боковой поверхности.

 

2. Нужно придумать имена переменным. Имя переменной должно говорить о ее смысле. Если смыслом является ширина коробки, то не ленитесь и не называйте ее а, потому что через полгода, разбираясь в своей полузабытой программе, вы будете долго тереть лоб и думать – Что, черт возьми, я обозначил через а? Называйте ее Ширина (если вы не знаете английского) или, к примеру, Width (если знаете). Так делают все профессиональные программисты (а они, как известно, терпеть не могут трудиться зря, значит, зачем-то это им нужно).

Удовлетворимся такими именами:

Ширина - ширина
Толщина - толщина
Высота - высота
S_основ - площадь основания
V - объем

Периметр - периметр основания
S_бок - площадь боковой поверхности
S_полн - полная площадь поверхности

3. Нужно определить, какого типа будут переменные. Поскольку нам заранее неизвестно, будут ли исходные данные целыми, объявляем все переменные - Double. Первые строки программы будут такими:

'Задача вычисления площади основания, объема и полной площади поверхности

'спичечной коробки по известным ее размерам

'Объявляем переменные величины

Dim Ширина As Double 'ширина

Dim Толщина As Double 'толщина

Dim Высота As Double 'высота

Dim S_основ As Double 'площадь основания

Dim V As Double 'объем

Dim Периметр As Double 'периметр основания

Dim S_бок As Double 'площадь боковой поверхности

Dim S_полн As Double 'полная площадь поверхности

4. Перед вычислениями нужно задать исходные данные решения задачи. Для этого нужно решить, каким способом пользователь будет задавать размеры коробки - при помощи текстовых полей, функции InputBox (4.2) или как-то по-другому. Выберем InputBox.

Вот следующие строки программы:

Private Sub Command1_Click()

'Ввод исходных данных

Ширина = InputBox("Введите ширину коробки")

Толщина = InputBox("Введите толщину коробки")

Высота = InputBox("Введите высоту коробки")


Дата добавления: 2015-11-16; просмотров: 52 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Типы данныхи точность вычислений| Теперь нужно задать компьютеру действия, которые он должен проделать с исходными данными, чтобы получить результат.

mybiblioteka.su - 2015-2024 год. (0.014 сек.)