Задачи для самостоятельной работы. Линейные алгоритмы
1. Как правило, использование семейного бюджета планируется. В одной семье 43% бюджета уходит на питание, 20% - на культуру (театры, кино, бассейн, музыкальная школа и т.д. ), 10% - коммунальные услуги (свет, квартира, транспорт), 27% - на покупки и накопления. Составьте программу для ЭВМ, которая определит сумму денег на каждую статью расходов, если бюджет семьи заранее не известен. Рассчитайте эти суммы для месячного бюджета в 300 000, 350 000, 735 000 рублей.
2. Составьте программу рисования на экране дисплея закрашенного треугольника. Координаты вершин и цвет закраски должны предварительно вводиться в текстовом режиме.
3. Предположим, Ваша фирма заработала какую-то сумму денег. По существующему законодательству Вы должны из этой суммы перечислить в налог 23% (20% - налог на добавленную стоимость, 3% - спецналог). Далее, какая-то часть суммы идет на зарплату. Из этой суммы 39% платится в виде различных обязательных выплат. Составьте программу, с помощью которой Вы сможете быстро определить, какую сумму Вы получите после выплаты всех налогов.
4. Составьте программу рисования на экране снеговика. Радиус меньшего круга и координаты центра этого круга необходимо задавать в диалоге.
5. Пусть дана следующая программа:
Program swap;
var A,B:integer;
begin
Write(‘Первое число=’); readln(A);
Write(‘Второе число=’); readln(B);
WriteLn(‘Введены числа: ‘,A,B);
...
WriteLn(‘После решения задачи получили: ‘,A,B);
ReadLn
end.
Вместо многоточия поставьте операторы, которые позволят поменять значения переменных A и B местами. Допускаются изменения в блоке описания данных. Например, если в диалоге введены числа 6 и 9, то на экране после выполнения программы должен быть выведен следующий текст:
Введены числа: 6 9
После решения задачи получили: 9 6
6. Составьте программу вычерчивания рамки вокруг экрана заданной ширины и заданного цвета. Ширина и цвет задаются в диалоге.
7. Составьте программу рисования 5 разноцветных олимпийских колец (верхний ряд: голубое, черное, красное; нижний ряд: желтое и зеленое). Координаты центра левого кольца задаются в диалоге.
8. Нарисуйте на экране объемную кнопку, напоминающую кнопку клавиатуры. Координаты кнопки и ее цвет определяется в диалоге.
9. Две точки заданы своими координатами. Составить программу определения расстояния между ними.
10*. Составить программу рисования пирамиды, имеющей в основании квадрат. Высоту и длину основания следует задавить в диалоге.
Лабораторная работа 5. Операции с целыми и вещественными числами
Задание 1
Скопируйте в Ваш каталог файлы int_op.pas, int_real.pas, real_op.pas из каталога PAS_TXT. Загрузите среду Turbo Pascal.
Задание 2
Вспомните, какие операции можно выполнять с целыми числами. Для этого:
a) загрузите программу int_op.pas и зпустите ее на выполнение;
б) запишите в тетрадь новую для вас информацию;
в) составьте программу, которая позволит для любых заданных целых чисел найти разность квадратов и квадрат разности.
Задание 3
Вспомните, какие функции преобразования вещественных чисел в целые есть в языке Pascal. Для этого:
a) загрузите программу int_real.pas ;
б) запустите ее на выполнение;
в) запишите в тетрадь новую для вас информацию;
г) составьте программу, которая позволит определить доходы от вклада в два банка. Программа должна обеспечивать следующий диалог:
Здравствуйте. Задайте размер Вашего вклада : 120000
На сколько месяцев Вы делаете вклад: 10
Сколько процентов годовых Вам обещано в банке 1: 355
Сколько процентов годовых Вам обещано в банке 2: 400
Через 10 месяцев на Вашем счете в банке 1 будет 475000
Через 10 месяцев на Вашем счете в банке 2 будет 520000
Примечание
Имейте в виду, что Ваша программа должна работать с реальными числами (это может быть миллион, сто миллионов и т.п.). Так как переменные целого типа не позволяют выполнять операции с числами больше 65535, проще всего воспользоваться переменными вещественного типа. При этом следует обеспечить вывод чисел без дробной части.
Задание 4
Вспомните, какие операции можно выполнять с вещественными числами. Для этого:
а) загрузите программу real_op.pas и запустите ее на выполнение;
в) запишите в тетрадь новую для вас информацию;
г) составьте программу, которая по заданным сторонам треугольника определяет его площадь (напомним, что это можно сделать с помощью формулы Герона:
,
где p - полупериметр, a, b, c - стороны треугольника);
д) результат выведите, используя форматированный вывод;
е) обеспечьте красивый и удобный для пользователя диалог в программе. Помимо форматированного вывода результатов, непременно воспользуйтесь следующими процедурами работы с экраном: ClrScr; GotoXY(x,y); TextColor(цвет).