Блог

Чтобы не забыть

Category

Borland Turbo Pascal

Факториал больших чисел

Данную тему задали в курсовую работу. И нужно было, чтобы программа считала спокойно не менее 500!

Поиск min

Поиск минимального числа из всех введенных.

Поиск max

Поиск максимального числа из всех введенных.

Решение квадратных уравнений

Образец решения квадратного уравнения, пригодится в будущем.

Игра «Кости»

Программа должна уметь бросать по две кости нужное количество раз и выводить результат по обеим, их сумму и общее число.

Возводим числа в степень

Дано вещественное число A и целое число N (> 0). Вывести A в степени N: AN = A·A·…·A (числа A перемножаются N раз).

Выводим названия чисел

Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — «ноль», 1 — «один», 2 — «два», …).

Оператор выбора

Дан номер месяца (1 — январь, 2 — февраль, …). Вывести название соответствующего времени года («зима», «весна» и т.д.).

Описание чисел

Program begin62; Uses crt; Var a:integer; begin ClrScr; WriteLn (‘Введите a’); ReadLn (a); if (a>(-100)) and (a<(-9)) then WriteLn (‘Отрицательно двузначное’) else if (a=0) then WriteLn (‘Нулевое число’) else if (a>0) and (a<10) then WriteLn (‘Положительное однозначное’); ReadLn end. Дано… Continue Reading →

Даны три целых числа.

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)

© 2017 Блог — Powered by WordPress

Theme by Anders NorenUp ↑