Простейшие программы на языке Паскаль

 

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ И НАУКИ РОССИИ

ФГБОУ ВПО Башкирский государственный педагогический университет

им. М.Акмуллы

 

 

 

Институт профессионального  образования

и информационных технологий

 

Кафедра прикладной информатики

 

 

 

 

 

 

 

Лабораторная  работа №1

 

Простейшие программы на языке Паскаль

 

Вариант 4

 

 

 

 

 

 

 

 

 

 

 

Дисциплина: Информатика и программирование

 

Направление (специальность):  Прикладная информатика в психологии

 

Выполнил: (ФИО, группа, курс): Гарифуллин Айдар Альбертович, 12, 1

 

Проверил:   Забихуллин. Ф. З.

 

 

 

 

 

 

 

 

 

 

                                                          Уфа – 2012

1.Цель  работы:

      Получение навыков составления  и отладки простейших программ  на Паскаль.

 

2. Условия задания:

1. Напишите первую версию программы, которая запрашивает аргументы функции, вычисляет значение функции по заданной формуле и выдаёт результат на экран. Корректность входных данных не проверяется. Продемонстрируйте работу программы для нескольких наборов корректных и некорректных входных данных (для каждого случая сделайте снимки экрана).
2. Напишите вторую версию программы, которая проверяет корректность входных данных. В случае ввода некорректных данных программа должна выдавать соответствующее сообщение и не приступать к вычислению значения функции. В случае корректности входных данных программа должна вычислить значение выражения и выдать на экран. Осуществите форматированный вывод значения функции с фиксированной десятичной точкой тремя позициями в дробной части. Аргументы и значение функции – вещественные числа.
3. Отчёт по лабораторной работе оформите по установленному образцу. Отчёт обязательно должен включать тему, автора, дату сдачи, формулировку задания, блок-схемы, листинги программ. К каждой программе должны быть блок-схема и скриншоты с результатами выполнения при различных входных данных (корректных и не корр.). Выполняйте работу поэтапно.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Решение  задания:

     I)

         1) Алгоритм решения задания  в виде блок- схемы:

 

2) Текст программы на языке Паскаль:

Program zadacha1;

Var

     a, b, c, x, y: real;

Begin

   Write ('a= '); Readln (a);

   Write ('x= '); Readln (x);

   Write ('c= '); Readln (c);

   y:=abs((a-2)/(3+x))+sqr(c) -1;

   Writeln ('y= ',y:3:2);

   if (y<0) then Writeln ('y:= ',y) else

End.

 

 

 

 

 

 

3) Результат тестирования программы: 

 

II)

 

         1) Алгоритм решения задания  в виде блок- схемы:

 

 

  

 

 

 

 2) Текст программы на языке Паскаль:

Program zadacha2;

uses crt;

var

x, y, a , c: real;

Begin

   Write ('Ввести числа ');

   readln(a,x,c);

     if  (a<>-3) and (c>0)  then

         Begin

           y:=abs(a-2)/(3+x)+sqrt(2)-1;

           writeln('y=', y:4:4);

           end

          else

           writeln('а не может равняться -3');

end.

 

        3) Результат тестирования программы: