§ 17 Консольное приложение

Консольным называется приложение, имитирующее работу программы в текстовом режиме без использования визуальных компонентов. Интерфейс консольного приложения (КП) напоминает интерфейс программы, созданной в среде Турбо Паскаль. КП работают значительно быстрее и требуют для хранения в несколько раз меньше памяти, чем приложения, созданные в среде Delphi. Использование КП целесообразно в тех случаях, когда к интерфейсу программы не предъявляется жёстких требований, например, в случае отладки процедуры. Для создания КП можно либо воспользоваться шаблоном Console Wizard, либо в режиме создания нового приложения закрыть окна формы, модуля, инспектора объектов и дать команду Project  View Source, после чего должно открыться редактора кода, содержащее заготовку файла проекта, куда следует внести текст программы. Непосредственно за заголовком должна следовать директива компилятору {$APPTYPE CONSOLE}, свидетельствующая о создании КП. Главная особенность текста КП состоит в том, что ввод и вывод информации осуществляются с использованием процедур Read, Readln, Write, Writeln, как при общении с жёстким диском, но без использования файловой переменной. Пример КП расчёта площади треугольника по формуле Герона приведен ниже.

program Project1;

{$APPTYPE CONSOLE}

var a,b,c,p,s: real;

begin

WRITELN('INPUT LENGTH');

READLN (a,b,c);

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

WRITELN('SQUARE=',S:5:2);

READLN

end.

Запись S:5:2 означает, что результат (S) должен содержать 5 (первая цифра) символов в том числе 2 (вторая цифра) десятичных знака. Процедура READLN останавливает выполнение программы после вывода результата на экран.

Литература:

1 Турбо Паскаль 7.0. Изд-во BHV, Киев, 19 г.

2 Зуев Е.А. Язык программирования Turbo Pascal 6.0. Москва, «Унитех», 1992 г.

3 Культин Н. Delphi. Программирование на Object Pascal. «БХВ – Санкт-Петербург», 1999.

4 Федоров А.Г. Delphi 3 для всех. Москва, «Компьютер Пресс», 19 .

5 Джарахвелидзе П., Марков Е. Программирование в Delphi. «БХВ – Санкт-Петербург» 1999.

Глава 7. Задачи по программированию для индивидуального решения

§ 1 Линейная программа

1.1 Даны два действительных числа a и b. Получить их сумму, разность и произведение.

1.2 Дано действительное число x. Не пользуясь никакими другими арифметическими операциями, кроме умножения сложения и вычитания, вычислить 2x⁴ – 3x³ + 4x² – 5x +6. Разрешается использовать как можно меньше умножений, сложений и вычитаний.

1.3 Даны действительные числа x, y. Не пользуясь никакими операциями, кроме умножения, сложения и вычитания, вычислить 3x²y² – 2xy² – 7x²y – 4y² + 15xy + 2x² – 3x + 10y + 6. Разрешается использовать как можно меньше умножений, сложений и вычитаний.

1.4 Дано действительное число x. Не пользуясь никакими другими арифметическими операциями, кроме умножения сложения и вычитания, вычислить 1 – 2x + 3x² – 4x³ и 1 + 2x + 3x² + 4x³. Разрешается использовать как можно меньше операций.

1.5 Написать программу для вычисления площади треугольного участка по заданным координатам его вершин. Значения координат задаются в метрах, площадь необходимо вычислить в гектарах и округлить до 0,1 га. Формула для вычисления площади:

Форма выдачи результата:

ПЛОЩАДЬ = значение S ГА.

1.6 Написать программу для вычисления площади четырехугольного участка по заданным значениям координат его вершин.

Формула для вычисления площади:

Значения координат задаются в метрах, площадь необходимо вычислить в гектарах. В программе предусмотреть округление вычисленного значения площади до 0,1 га.

Форма выдачи результата:

ПЛОЩАДЬ УЧАСТКА РАВНА значение S ГА.

1.7 Написать программу для вычисления площади треугольного участка по заданным значениям координат его вершин по формуле:

Значения координат задаются в метрах, площадь определить в гектарах с точностью до 0,001 га.

Форма выдачи результата:

ПЛОЩАДЬ РАВНА значение S ГА.

1.8 Написать программу для определения объема усеченного конуса, с высотой H м и параллельными основаниями с радиусами R₁ м и R₂ м. В программе предусмотреть округление объема до 0,001 м³. Формула для вычисления объема:

Форма выдачи результата:

ОБЪЕМ КОНУСА= значение V КУБ.М.

1.9 Написать программу для вычисления суммы вклада в сберегательный банк через N лет при условии, что начальная сумма вклада составляла A рублей, а процент годовых равен P%. Расчет выполняется по формуле сложных процентов:

В программе предусмотреть округление результата до 0,01 рубля.

Форма вывода результата:

СУММА ЧЕРЕЗ значение N ЛЕТ РАВНА значение S РУБ.

1.10 Дан прямоугольный параллелепипед. a, b, c — ребра прямоугольного параллелепипеда. Найти:

1)его диагональ ;

2)площадь полной поверхности ;

3) объем .

1.11 Дан обелиск. Нижнее и верхнее основание являются прямоугольниками, расположенными в параллельных плоскостях; противоположные боковые грани одинаково наклонены к основанию, но не пересекаются в одной точке.

1.12 Даны a, b и a1, b1 — стороны оснований, h — высота. Найти объем обелиска по формуле

V=h[ab+(a+a₁)(b+b₁)+a₁b₁]/6.

Форма выдачи результата:

ОБЪЕМ ОБЕЛИСКА= значение V КУБ.М.

1.13 Если известны координаты двух точек X₁Y₁ и X₂Y₂ (рис. 7-1), то координаты X, Y точки, делящей отрезок 1–2 в отношении , можно определить по формулам:

.

X₂Y₂

n

m X Y

X₁Y₁

Рис. 7-1.

Написать программу для определения X, Y. Значения X₁, Y₁, X₂,Y₂ вводить в метрах. Координаты X, Y выводить в метрах в метрах с точностью до 0,1м.

Форма выдачи результата:

КООРДИНАТЫ ДЕЛЯЩЕЙ ТОЧКИ:

X = значение X, Y = значение Y.

1.14 Написать программу для вычисления поправки превышения за кривизну Земли и рефракцию:

f — поправка измеряется в метрах. Рефракция — преломление светового луча в атмосфере (поправку вычисляют для расстояний более 300 м);

R — радиус Земли. R6371,1 км (в формуле перевести в м);

S_i — длина линии в метрах между точками, где измеряется превышение.

Поправку округлять до 0.01 м.

Форма вывода результата: ПОПРАВКА= значение (м).

1.15 Написать программу для расчета общих годовых издержек на 1 га угодий в зависимости от площади территории P и пространственного расположения земель и хозяйственного центра:

г де K1 — коэффициент, характеризующий конфигурацию земельной площади и положение хозяйственного центра;

K2 — коэффициент, показывающий, во сколько раз путь по дорогам к данному участку длиннее, чем путь по прямой.

Значение Z округлить до 0,01.

Форма вывода результата:

ГОДОВЫЕ ИЗДЕРЖКИ= значение Z Р/ГА.

1.16 Написать программу для определения площади участка пашни, с баллом бонитировки Б₂ (балл экономической оценки земли, оценивается по 100-бальной шкале), которую хозяйство должно отдать в обмен на полученный им участок с площадью S₁ и баллом Б₁:

Значение S₂ S₁ округлять до 0,01 га.

Форма вывода результата:

ПОДЛЕЖИТ ВОЗВРАТУ значение ГА ПАШНИ.

1.17 Написать программу для вычисления поправки за кривизну Земли в длину измеренной линии:

г де S — длина линии в метрах, R- радиус Земли. R6371,1 км. Поправку вычислить в сантиметрах и округлить до 0,1 см.

Перевод в единые единицы измерения предусмотреть в формуле самостоятельно.

1 .18 Написать программу для определения оптимальной площади территории по формуле:

г де a₁, a₂, a₃, a₄, — коэффициенты уравнений переменных частей годовых издержек (возможные значения 1-100);

K₁ — коэффициент, значение которого определяется в зависимости от конфигурации земельных площадей и положения хозяйственного центра (возможные значения 1-100);

K₂ — дорожный коэффициент, показывающий, во сколько раз путь по дорогам к данному земельному участку длиннее пути по прямой (возможные значения 1-100);

Г — грузооборот на 1 га земельной площади в тоннах;

 — переменная часть транспортных расходов (0,1-1);

n — количество переездов в день;

D — среднегодовые затраты на полевые работы на 1 га (человеко-дней);

S_p — тариф за 1 км пробега автомашины;

S_d — оплата одного человеко-дня;

 — коэффициент использования вместимости автомашин (0,1-1);

 — коэффициент использования автопробега (0,1-1) ;

Е — вместимость автомашины (0,1-1) ;

V_ — скорость движения автомашин;

N_p — продолжительность рабочего дня.

Результат округлить до 0,01 га.

Форма вывода результата:

ОПТИМАЛЬНАЯ ПЛОЩАДЬ = значение P ГА.

1.19 С оставить программу для вычисления длины окружности C и площади круга S, если известен радиус r по формулам:

Форма вывода результатов:

ДЛИНА ОКРУЖНОСТИ С РАДИУСОМ значение r = значение C

ПЛОЩАДЬ КРУГА С РАДИУСОМ значение r = значение S. Исходные данные вводить в сантиметрах. Результат округлить до целых.

1.20 С оставить программу для вычисления площади сегмента S₁ и площади сектора S₂, если известны r — радиус круга,  — центральный угол (в градусах) по формулам:

Форма вывода результатов:

ПЛОЩАДЬ СЕГМЕНТА КРУГА = значение S₁

ПЛОЩАДЬ СЕКТОРА КРУГА = значение S₂.

Радиус круга задан в метрах. Площади определить с точностью до 0,1 м².

1.22 Составить программу для исследования величины поправки (S) за редуцирование расстояния (S в метрах) при переходе с эллипсоида на плоскость в проекции Гаусса. Для этого рассчитать поправку:

для случаев :

1. линия располагается на осевом меридиане (y = 0 км);

2. линия находится на краю шестиградусной зоны (y330км).

R — радиус Земли. R6371,1 км.

y — ордината середины редуцируемого отрезка в км.

Поправку вычислить в метрах с точностью до 0,1 м.

1 .23 Составить программу для вычисления поправки P в площадь за переход с поверхности шара на плоскость в проекции Гаусса:

P — площадь участка на поверхности шара (га).

R — радиус Земли. R6371,1 км.

y — ордината середины редуцируемой площади (0-300 км).

Поправку округлить до 0,01 га.

1.24 Составить программу для расчета цены деления уровня по формуле:

г де l₁-l₂ — разность отсчетов по рейке в мм;

n — число делений, на которое сместился пузырек уровня;

d — расстояние от нивелира до рейки в метрах.

Перевод мм в м в рабочей формуле учтен константой 206''.

Результат вывести с точностью до 0,01 секунды.

1.25 Дан радиус сферы (R) в метрах. Составить программу для вычисления площади полной поверхности:

и объема:

.

Результат округлить до 0,01 метра.

1.26 Известны значения хорды шарового сектора в сантиметрах (a), радиуса шара (R в см) и стрелы шарового сектора (h в см). Cоставить программу для вычисления площади полной поверхности шарового сектора:

и объема шарового сектора:

.

Результат округлить до 0,1 сантиметра.

1.27 Дан круговой прямой цилиндр. Известен радиус цилиндра R в метрах. Составить программу для вычисления площади боковой поверхности:

площади полной поверхности:

объема:

1.28 Дан усеченный круговой цилиндр. Известны: радиус основания цилиндра — R в метрах; h₁ и h₂ — высоты усеченного цилиндра. Написать программу для вычисления площади боковой поверхности:

площади полной поверхности:

,

объема

.

Результат округлить до 0,001 метра.

1.29 Известны: r и R — внутренний и внешний радиусы кругового кольца в метрах; центральный угол  (в градусах) части кольца. Составить программу для вычисления площади кругового кольца (S₁) и площади части кольца (S₂) с заданным центральным углом по формулам:

, .

Результат округлить до 0,1 метра.

1.30 Составить программу для вычисления объема трехгранной усеченной пирамиды. Если известны стороны оснований пирамиды: a₁, b₁, c₁ a₂, b₂, c₂, высота пирамиды h по формуле:

где F — площадь нижнего основания;

f — площадь верхнего основания.

Площади оснований рассчитать по формуле Герона.

1.31 Написать программу для вычисления расстояния S между двумя населенными пунктами, если автомобиль со скоростью V км/час проезжает его за T часов.

Расстояние S между населенными пунктами равно S = V*T.

Предусмотреть запросы при вводе исходных данных:

Скорость автомобиля км/час:

Время проезда в часах:

Форма вывода результата:

Расстояние между населенными пунктами равно <значение S> км.

1.32 Составить программу для вычисления силы тока I = q/t,

где q — величина электрического заряда (измеряется в кулонах);

t — время прохождения заряда через поперечное сечение проводника в секундах.

Результат округлить до 0,1 ампера.