Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / "решение задачь на Паскале"

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

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

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

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs


Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/

  • Информатика

Поделитесь материалом с коллегами:

Задача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% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy

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

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