Примеры выполнению контрольной работы



Часть 1, задание 2

Записать по правилам программирования на языке Паскаль следующее выражение:

Решение

В Паскале выражения записываются в строчку:

а = ((sqrt (abs (x-1)) + y) / (1+sqr (x) / (2-z))) + y*z .

 

Часть 2. Составить блок-схему алгоритма решения и программу

На языке Паскаль.

 

2.1 Линейные программы

                            Блок-схема                                                Текст программы

                                                                                       

                                                                               Program Lin1;

                                                                               Var x,y,z: integer;

                                                                               a: real;

                                                                               Begin

                                                                               Write (‘Введите целые числа x, y, z > 0

                                                                                       через пробел и нажмите Enter ’);

                                                                               ReadLn (x, y, z);

                                                                               a:=((sqrt(abs(x-1))+y)/(1+sqr(x)/(2+z)))+y*z;

                                                                               WriteLn(‘a = ’, a:8:2)

                                                                               End.

 

 

2.2 Условный оператор

 


y =

x5 – sin(x+10), x>0
√40x4 + 25x, x ≤0

 

    Блок-схема                                                                  Текст программы

 

                                                                                    Program Usl2;

                                                                                    Var x, y: real;

                                                                                    Begin

                                                                                    Write (‘Введите x и нажмите Enter ’);

                                                                                    ReadLn (x);

                                                                                    If x>0 then

                                                                                    y:=((sqr(x)*sqr(x)*x – sin(x+10)

                                                                                    else y:=sqrt(40*sqr(x)*sqr(x)) + 25*x;

                                                                                    WriteLn(‘y = ’, a:8:2)

                                                                                    End.

 

 

Аналогично выполняются задания пунктов 2.3 и 2.4.

 


Список литературы

 

1. Л.З.Шауцукова, Информатика, «Просвещение» М., 2003г.

2. А.Кетков, Практика программирования Бейсик, Си, Паскаль,.«БХВ-Петербург» С-П., 2001г.

3. Н.Б. Культин, Программирование в Turbo Pascal и Delphi,. «БХВ-Петербург» С-П., 2001г.

4. Лабораторный практикум по информатике / под редакцией В.А.Острейковского, «Высшая школа» М.,2003г.

5. О.А.Житкова, Алгоритмы и основы программирования, «Интеллект-центр» М., 2001г.

 


Дата добавления: 2018-04-15; просмотров: 291; Мы поможем в написании вашей работы!

Поделиться с друзьями:






Мы поможем в написании ваших работ!