TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

         Практическое задание N 1. 6

            1.  Определить ваши действия в зависимости от дня недели.  Например,  суббота - еду в баню,  воскресенье - еду в гости и т. д.  Программа запрашивает ввод дня недели и выводит на экран ваши действия в зависимости от составленного расписания.

            2.  Определить вид функции в зависимости от значения аргумента:

 y=7 при х<-7,     у=-х при -7=<х<0,     у=х при 0<х<=5,     у= 5 при х>5.

Программа запрашивает ввод значения "х" и выводит на экран вид функции "у".

            3.  Рассчитать значение функции Y= хN в зависимости от значения "х" с выбором вида формулы: для случая аргумента х>0 функция Y= exp(N*ln(x)),  при х<0 преобразовать "х" в положительное число x= abs(x),  при х= 0  функция Y= 1. 

            4.  Рассчитать значение функции Y= 1/ Ö х  в зависимости от значения "х" с выбором вида формулы: для случая аргумента х>0 функция Y= 1/sqrt(x),  при х<0 преобразовать "х" в положительное число x= abs(x),  при х= 0  вывести надпись: " Деление на ноль". 

 

            Для разложения целого числа на цифры удобно применять операции: MOD и  DIV.  Например,  если дано трехзначное число "N" ( "N" соответствует "X1X2X3" ),  то цифры:  X1X2X3,  составляющие это число  определяются блоком операторов:

     X3:= N mod 10;   N:= N div 10;

     X2:= N mod 10;   N:= N div 10;   X1:= N;

            Если требуется определить,  делится ли вещественное число "A" нацело на число "B",  то можно применять функции Frac(x); и Int(x); например:

     x:= A/B;   

     If Frac(x) = 0  then writeln('Число "A" делится нацело на число "B"');

     If Int(x) = x   then writeln('Число "A" делится нацело на число "B"');

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz