Контрольная по информатике на языке Pascal

Министерство транспорта Российской Федерации

Федеральное агентство железнодорожного транспорта

Государственное образовательное учреждение высшего профессионального образования

Самарский государственный университет путей сообщения

Кафедра «Информатика»

Контрольная работа № 1

по дисциплине «Информатика»

       Выполнил: ______________

       Шифр: _________________

       Проверил: ______________

Самара 2010 г.

Условие задачи

Для заданной функции f(х) = 1/4*х2*(х - 4)2 вывести на экран все значения функции, меньше некоторого числа  К  на отрезке [а, в] с шагом ΔХ =h.

Постановка задачи

1.      Для ввода данных, параметров функции, определяем переменные вещественного типа A, B, H, K.

2.      В качестве аргумента  и значения функции используем переменные  вещественного типа Х и Y соответственно.

3.      Поскольку цикл на базе оператора FOR имеет фиксированный шаг приращения, равный 1 или –1, то в программе будем использовать цикл с предусловием на базе оператора WHILE.

4.      В теле цикла организуем приращение аргумента Х на величину H, вычисление функции, вывод результата расчёта в соответствии с условием задачи и установку флага Res при наличии результата вычислений. Для влага наличия результата определим  переменную логического типа Res со значением по умолчанию “False” (ЛОЖЬ).

5.      По окончанию цикла вычислений анализируем флаг наличия результата Res, при значении Res=False выводим соответствующее сообщение на экран и организуем цикл ожидания нажатия любой клавиши, чтобы не произошло выхода из программы по её окончанию.

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

Листинг программы на языке Pascal

{---------------------------------------------------------------------}

{ЗАДАНИЕ: Вычислить f(X)= 1/4*SQR(X)*SQR(X-4) и вывести все f(x) < K  }

{---------------------------------------------------------------------}

uses crt;                                                                  {Подключение текстового модуля}

{Определение переменных}

var

  A,B,H,K,Y,X: real;                    {Переменные вещественного типа}

  Res: boolean;                         {Переменная логического типа}

begin

{Установка текстового видеорежима 80х25}

  textMode(3);

  clrscr;                               {Очистка экрана}

{Заголовок с заданием}

  Writeln('ЗАДАНИЕ:');

  Writeln('--------');

  Writeln('Вывести все f(X) < K, где');

  Writeln('   - f(X)= 1/4*SQR(X)*SQR(X-4);');

  Writeln('   -   X = [A,B];');

  Writeln('   -  dX = H.');

  Writeln;

{Ввод данных}

  Writeln('ВВОД ДАННЫХ:');

  Writeln('-----------');

  Write('Параметр A = ');

  Readln(A);                            {Ввод параметра A}

  Write('Параметр B = ');

  Readln(B);                            {Ввод параметра B}

  Write('Параметр H = ');

  Readln(H);                            {Ввод параметра H}

  Write('Параметр K = ');

  Readln(K);                            {Ввод параметра K}

  Writeln;

{Цикл вывода результат вычислений}

  Res:=False;                           {Индикатор наличия результата}

  Writeln('Результаты вычислений:');

  Writeln('----------------------');

  while A<=B do

    begin

    X:=A;

    Y:=1/4*SQR(x)*SQR(x-4);

    A:=A+H;

    If Y < K then

      begin;

      Res:=True;

      Writeln(Y:12:4);                  {:12:4 - это формат числа Y}

      end;

    end;

{Если нет ни одного результата}

  If Res=False then Writeln('По заданным параметрам результата нет!');

{Ожидание нажатия клавиши}

  repeat until keypressed;

end.

Результаты работы программы (пример 1)

Пример работы программы (пример 1)

Результаты работы программы (пример 2)

Пример работы программы (пример 2)

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

1.      Леонтьев В.П. Новейшая энциклопедия персонального компьютера

2007. – М.: ОЛМА Медиа Групп, 2007. – 896 с.

2.              Семакин И.Г., Залогова Л.А. и др. Информатика и информационно – коммуникационные технологии. Базовый курс. 3-е изд. – М.: БИНОМ. 2007. – 176 с.

Министерство транспорта Российской Федерации

Федеральное агентство железнодорожного транспорта

Государственное образовательное учреждение высшего профессионального образования

Самарский государственный университет путей сообщения

Кафедра «Информатика»

Контрольная работа № 2

по дисциплине «Информатика»

       Выполнил: ______________

       Шифр: _________________

       Проверил: ______________

Самара 2010 г.

Условие задачи

Для заданной функции f(х) = 1/4*х2*(х - 4)2 вывести на экран все значения функции, меньше некоторого числа  К  на отрезке [а, в] с
шагом ΔХ =h.

Выполнение задания

1.       Оформим внешний вид задачи на листе EXCEL согласно рисунку 1:

Рисунок 1. Внешний вид задачи

2.       В ячейки B6, B7, B8 и B9 впишем параметры задачи A, B, H и K соответственно.

3.     В ячейке B14 ставим знак «=» и записываем формулу:
 

ЕСЛИ(B6<=$B$7;$B$6;"КОНЕЦ")

В качестве базовой функции этой ячейки использована функция ЕСЛИ, которая имеет следующий формат: ЕСЛИ(логическое выражение; значение если ИСТИНА; значение если ЛОЖЬ). Ссылка на ячейку вида B6 является относительной, то есть при копировании формулы, содержащей такую ссылку, из одной ячейки в другую, значение ссылки будет автоматически изменено. Ссылка на ячейку вида $B$7 является абсолютной, то есть при копировании формулы, содержащей такую ссылку, из одной ячейки в другую, значение ссылки изменено не будет.

Согласно этой формуле, ячейка примет значение параметра A, если A<=B. В противном случае данная ячейка будет содержать слово “КОНЕЦ”.

4.     В ячейке C14 ставим знак «=» и записываем формулу:
 

ЕСЛИ(B14="КОНЕЦ";"";1/4*СТЕПЕНЬ(B14;2)*СТЕПЕНЬ(B14-4;2))

Согласно этой формуле, ячейка будет пустой, если содержимое прилегающей слева ячейки - это слово “КОНЕЦ”. Если прилегающая слева ячейка не содержит слово “КОНЕЦ”, то происходит вычисление функции по условию задачи.

5.     В ячейке D14 ставим знак «=» и записываем формулу:
 

ЕСЛИ(C14="";"";ЕСЛИ(C14<$B$9;C14;""))

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

6.     В ячейке B15 ставим знак «=» и записываем формулу:
ЕСЛИ(ИЛИ(B14="";B14="КОНЕЦ");"";ЕСЛИ(B14+$B$8<=$B$7;B14+$B$8;"КОНЕЦ"))

В этой формуле будем использовать дополнительно функцию ИЛИ.

Согласно этой формуле, ячейка будет пустой, если содержимое прилегающей сверху ячейки - это слово “КОНЕЦ” или “” (пустое значение). Иначе проводим сравнение суммы, состоящей из значения вышестоящей ячейки и параметра приращения H, со значением параметра B. При этом, если X+H<=B, то отображаем новое значение X=X+H, иначе помещаем в ячейку слово “КОНЕЦ”.

7.     В ячейке C15 ставим знак «=» и записываем формулу:
 

ЕСЛИ(ИЛИ(B15="";B15="КОНЕЦ");"";1/4*СТЕПЕНЬ(B15;2)*СТЕПЕНЬ(B15-4;2))

Согласно этой формуле, ячейка будет пустой, если содержимое прилегающей слева ячейки - это слово “КОНЕЦ” или “” (пустое значение). Если прилегающая слева ячейка не содержит слово “КОНЕЦ”, то происходит вычисление функции по условию задачи.

8.     В ячейке D15 ставим знак «=» и записываем формулу:
 

ЕСЛИ(C15="";"";ЕСЛИ(C15<$B$9;C15;""))

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

9.       После того как оформлены все формулы с необходимыми вычислениями, сделаем форматирование ячеек листа. Для этого:

-         нажатием на самый крайний верхний и левый заголовок столбцов и строк ячеек (не имеет названия) выделим все ячейки листа  (рисунок 2); затем через меню ФОРМАТ – ЯЧЕЙКИ… откроем окно форматирования ячеек; выберем закладку окна ЗАЩИТА и установим флаг ЗАЩИЩАЕМАЯ ЯЧЕЙКА (рисунок 3).

Рисунок 2. Выделение всех ячеек листа

Рисунок 3. Окно форматирования ячеек

-         через  заголовки столбцов B, С и D выделим их (рисунок 4), затем через меню ФОРМАТ – ЯЧЕЙКИ… откроем окно форматирования ячеек; выберем закладку окна ЗАЩИТА и сбросим для выделенных столбцов флаг ЗАЩИЩАЕМАЯ ЯЧЕЙКА.

-         через  заголовки строк 1…15 выделим их (рисунок 5) – остальные НЕ ВЫДЕЛЯТЬ!, затем через меню ФОРМАТ – ЯЧЕЙКИ… откроем окно форматирования ячеек; выберем закладку окна ЗАЩИТА и установим для выделенных строк флаг ЗАЩИЩАЕМАЯ ЯЧЕЙКА.

-         выделим ячейки B6, B7, B8 и B9 (рисунок 6), затем через меню ФОРМАТ – ЯЧЕЙКИ… откроем окно форматирования ячеек; выберем закладку окна ЗАЩИТА и сбросим для выделенных ячеек флаг ЗАЩИЩАЕМАЯ ЯЧЕЙКА.

10.  После того как для всех ячеек определены их статусы защиты, мы можем защитить наш лист от нежелательного редактирования, чтобы не испортить содержимое формул. Для этого выполним команду СЕРВИС – ЗАЩИТА – ЗАЩИТИТЬ ЛИСТ…

Рисунок 4. Выделение столбцов

Рисунок 5. Выделение строк

Рисунок 5. Выделение ячеек

11.  Теперь, когда формулы и защита листа настроены, можно организовать процесс вычисления. В EXCEL, чтобы произвести расчёты согласно заданию, заполним параметры, выделим ячейки B15-D15 и их перетаскиванием вниз за крайний правый маркер (в виде чёрного квадратика) получим результаты как показано на рисунках 6 и 7.
При чём окончание цикла вычислений будет отмечено в одной из ячеек словом “КОНЕЦ”. Если слово “КОНЕЦ” не появилось, то следует увеличить диапазон вычислений путём смещения маркера вниз на большое количество строк.

Рисунок 6. Задание диапазона вычислений

Рисунок 7. Результат вычислений

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

1.      Леонтьев В.П. Новейшая энциклопедия персонального компьютера

2007. – М.: ОЛМА Медиа Групп, 2007. – 896 с.

2.              Семакин И.Г., Залогова Л.А. и др. Информатика и информационно – коммуникационные технологии. Базовый курс. 3-е изд. – М.: БИНОМ. 2007. – 176 с.