Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / "решение задачь на Паскале"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

"решение задачь на Паскале"

библиотека
материалов

Задача1.

Месячная выплата m по займу в s рублей на n лет под процент p вычисляется по формуле:
m = (s * r * (1 + r)
n) / (12 * ((1 + r)n – 1)), где r = p / 100.

Программа, вычисляющая значение m (месячную выплату) по известным s (сумме займа), p (проценту) и n (количеству лет), может выглядеть так:

Программа на языке Паскаль: 

var

m, s, p, n, r, a: real;

 

begin

write('Величина заема : ');

readln(s);

write('Процент: ');

readln(p);

write('Количество лет: ');

readln(n);

 

r := p / 100;

a := exp(ln(1 + r) * n);

m := (s * r * a) / (12 * (a - 1));

m := trunc(100 * m + 0.5) / 100;

 

writeln;

 

writeln('Месячная выплата: ', m:5:2);

writeln('Прибыль банка: ', m * 12 * n - s:5:2);

 

readln

end.


Примечания: Выражение exp(ln(1 + r) * n) вычисляет (1 + r)n.
Выражение trunc(100 * m + 0.5) / 100 выполняет округление до копейки.




Задача 2: Среди трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение "Ошибка".

Программа на языке Паскаль: 

var

a1, a2, a3: integer;

 

begin

write ('Введите три числа: ');

readln (a1, a2, a3);

 

if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then

writeln('Ошибка')

else

if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

writeln(a1)

else

if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

writeln(a2)

else

writeln(a3);

 

end.

Пример работы программы: Введите три числа: 7 4 6

6


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 25.09.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров392
Номер материала ДВ-009023
Получить свидетельство о публикации
Похожие материалы

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