Задания уровня 1


Упражнение 1.

     Вычислить месячные выплаты m по займу в s рублей на n лет под процент p.

1. Наберите текст программы:


Program Zaim;
var
m, s, p, r, n, a, d: real;
rub, kop: integer; {Целая и дробная часть числа (рубли и копейки)}
Begin
writeln ('Введите заем, процент и количество лет в одной строке');
readln (s, p, n);
r:=p/ 100;
a:=exp (ln(1+r)*n); {Вычисление степени числа через логарифм}
m:=(s*r*a)/(12*(a-1));
m:=trunc (100*m+0.5)/ 100; {Округление до копейки}
d:=m*n*12 - s; {Общая прибыль}
writeln;
rub:=round (s*100) div 100;{Преобразование числа в денежный формат (выделения руб.и коп.)}
kop:= round (s*100) mod 100;
write ('Взято ', rub, 'руб.', kop, 'коп.');
write ('под ', p:5:2, '% на ', n:5:2, 'лет');
writeln;
rub:=round (m*100) div 100; {Преобразование числа в денежный формат (выделения руб.и коп.)}
kop:= round (m*100) mod 100;
writeln ('Месячная выплата = ', rub, 'руб.', kop, 'коп.');
rub:=round (d*100) div 100; {Преобразование числа в денежный формат (выделения руб.и коп.)}
kop:= round (d*100) mod 100;
writeln ('Общая прибыль= ', rub, 'руб.', kop, 'коп.')
End.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P2PR1

 

Упражнение 2.
     Вычислить сумму цифр трехзначного числа.

1. Наберите текст программы:


Program chislo;
var
i, first, second, third, sum: integer;
Begin
write ('Введите целое трехзначное число: ');
readln (i);
first := i div 100; {Выделение первой цифры числа}
second := i div 10 mod 10; {Выделение второй цифры числа}
third := i mod 10; {Выделение третьей цифры числа}
sum := first + second + third;
writeln ('Сумма цифр числа ', 100 * first+10 * second + third, '=', sum)
End.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P2PR2

Упражнение 3.
     Перевести английские названия дней недели на русский язык.

1. Наберите текст программы:


Program WEEK;
type days=(mon, tue, wed, thu, fri, sat, sun);
var
d : days;
Begin
for d:=mon to sun do
case d of
mon: writeln('понедельник');
tue: writeln('вторник');
wed: writeln('среда');
thu: writeln('четверг');
fri: writeln('пятница');
sat: writeln('суббота');
sun: writeln ('воскресенье');
end
End.

2. Запустите программу на выполнение и проверьте её работу: Ctrl-F9
3. Для просмотра результатов выполненной программы необходимо нажать: Alt-F5
4. Сохраните программу на своем диске: A:\P2PR3

Задания уровня 2

1. Вычислить произведение цифр трехзначного числа. Сохраните как P2PR4
2. Заданы длины трех сторон треугольника a, b, c. Вычислить периметр и площадь треугольника по формуле Герона Сохраните как P2PR5

Задания уровня 3

3. Вычислить значение выражения по формуле (все переменные принимают действительные значения):
Сохраните как P2PR6, P2PR7, P2PR8

4. Вычислить арифметические выражения. При этом выбрать такую форму записи, чтобы количество «медленных» операций (умножение, деление) было сведено к минимуму. Вычисления всех трех выражений произвести в одной программе:
Сохраните как P2PR9, P2PR10, P2PR11


 

Контрольные вопросы:
1. Какие типы данных в Turbo Pascal вы знаете?
2. Как описываются целый, вещественный, логический и символьный типы данных?
3. Как задается перечислимый тип данных?
4. В каких случаях удобно использовать интервальный тип данных?