Tipo - Learn · Pascal · Типо Лерн · Урок 1

Perfect vision for programming

> Урок 1 (Вы здесь) > Урок 2 >
Функции write() и read()
Решим такую задачу - Напишите программу, которая возводит введенное число в степень 10, используя только четыре операции умножения. Описание типа данных переменных и считывание числа с клавиатуры: var a,b: real; // Присваиваем переменным a и b тип real (вещественный тип) BEGIN write ('Введите число '); readln(a);
Возводим число в 10 степень и выводим ответ: b:=aa; b:=bb; b:=ba; b:=bb; write(b); end. Вот еще задачка - Используя только символы '-','_','\|' напишите программу, которая выведет Tipo - Learn в рамке. uses crt; begin write (' ______________________________________________________________________________ '); write ('\|-_________--______-------------------------------------------____-------------\|'); write ('\|-\|_______\|--\|_____\|-_-___----___-------_-----____-----------\|---\|-------------\|'); write ('\|----\|-\|------\|-\|---\|-\|--\|---\|---\|-----\|-\|----\|--------/\----\|---\|---\|\----\|---\|'); write ('\|----\|-\|------\|-\|---\|-\|__\|---\|---\|-----\|-\|__--\|___----/__\---\|___\|---\|-\---\|---\|'); write ('\|----\|-\|------\|-\|---\|-\|------\|---\|-----\|-\|__\|-\|------/____\--\|\----- \|--\--\|---\|'); write ('\|----\|_\|-----_\|_\|_--\|_\|------\|___\|-----\|____\|-\|___--/------\-\|-\-----\|---\-\|---\|'); write ('\|-----------\|_____\|------------------------------------------\|--\----\|----\\|---\|'); write ('\|______________________________________________________________________________\|'); end. Кстати, окно 'uses crt' имеет размеры 80х25

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail