Расчетно-графическая работа по Информатике

    Дисциплина: Программирование
    Тип работы: Реферат
    Тема: Расчетно-графическая работа по Информатике

    Министерство образования и науки РФ

    Федеральное агентство по образованию

    ГОУ ВПО

    Саратовский государственный технический университет

    Институт бизнеса и делового администрирования

    Кафедра Менеджмента, маркетинга и

    логистики

    Расчетно-графическая работа

    по Информатике

    Выполнил: студент

    группы МНЖ-11

    Проверил:

    доцент

    кафедры ММЛ,

    к.т.н. Балабан О.М.

    Саратов 2007

    содержание:

    Задание (задача поставленная на расчетно-графическую работу) 2

    Словесное описание алгоритма решения поставленной задачи ... 3

    Блок-схема алгоритма решения поставленной задачи ………….. 5

    Тексты (листинги) трех вариантов программ …………………… 7

    Примеры выполнения составленных программ…………………

    задача поставленная на расчетно-графическую работу

    №2:

    Написать программу, выполняющую следующие действия:

    Требуется на экран монитора ЭВМ вывести таблицу чисел «Функция

    )». Значения

    лежат в интервале [-

    ], шаг изменения

    равно 2. Здесь

    целое четное положительное число, которое определяется пользователем и вводится с клавиатуры по запросу программы. Если введенное

    значение

    не отвечает заданному условию, на экран монитора выдается сообщение: «Ошибка ввода!!! Значение

    четное положительное число. Введите значение

    ». После чего вводится новое значение

    . Если значение

    отвечает

    поставленному условию, считаем значения

    по следующей формуле:

    Результаты значений второго столбца

    вывести на экран ПЭВМ с 5 знаками после точки и 5 знаками перед точкой красным цветом. Значения

    выводим желтым цветом. По запросу «Повторить?» на ответы «да» или «

    » - ввод нового значение

    и повторный вывод таблицы,

    в противном случае – вывод сообщения «До новых встреч!!!» и выход из программы.

    словесное описание алгоритма решения поставленной задачи :

    шаг

    действие

    Называем программу

    Указываем библиотеку

    Вводим переменные

    Начало исполнительной части

    Очистка экрана

    Начало цикла

    Ввод значения К

    Если Значение К нечетное или К0 то переходим к следующему

    действию

    устанавливаем шаг изменения

    если

    меньше 0, то считаем

    по формуле:

    иначе если

    больше 0, то считаем

    по формуле:

    иначе

    34,2

    устанавливаем цвет текста. Желтый

    вывод

    Устанавливаем цвет текста. Красный

    Вывод

    5 знаками перед точкой и 5 знаками после точки

    устанавливаем цвет текста. Белый

    Выводим запрос о повторе расчета

    Вводим значение

    Если значение

    равно «Да» или «

    », то переходим к шагу 7, иначе переходим к шагу 18

    Вывод сообщения «ДО НОВЫХ ВСТРЕЧ!!!»

    Конец

    блок-схема алгоритма решения поставленной задачи :

    листинги трех вариантов программ :

    вариант программы :

    program rgr;

    uses crt;

    var k,i,w:integer;z:real;s:string;

    begin

    clrscr;

    repeat

    writeln

    (‘Введите значение К:

    repeat

    readln(k);

    if odd(k)or(k=0) then writeln(\'ОШИБКА ВВОДА!!!ЗНАЧЕНИЕ К

    until not odd(k) and(k

    for i:=-k div 2 to k div 2 do begin

    w:=2*i;

    if(w0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

    else if(w=0) then z:=34.2

    else z:=2*exp(ln(w)*2/3)/(0.23*w);

    textcolor (yellow);

    write(w);

    write(\'

    textcolor (red);

    writeln(z:5:5);

    end;

    textcolor (white);

    write(\'

    ПОВТОРИТЬ

    ?\');

    readln(s);

    until(s\'

    да

    \')and(s

    writeln(\'ДО НОВЫХ ВСТРЕЧ!!!\');

    readkey

    end.

    вариант программы :

    комментарий:

    подпрограмма-функция(«

    Znash

    »), принимает значение

    считает значение

    по формуле оговоренной в задаче, передавая

    подсчитанное значение в основную программу.

    program rgr;

    uses crt;

    var k,w:integer;f,z:real;s:string;

    function Znash(z:real): real;

    var i: integer;

    begin

    for i:=-k div 2 to k div 2 do begin

    w:=2*i;

    if (w0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

    else if(w=0) then z:=34.2

    else z:=2*exp(ln(w)*2/3)/(0.23*w);

    textcolor (yellow);

    write(w);

    write(\'

    textcolor (red);

    writeln(z:5:5);

    end;

    end;

    begin

    clrscr;

    repeat

    writeln

    (‘Введите значение К:

    repeat

    readln

    if odd(k)or(k=0) then writeln

    (\'Ошибка ввода!!!Значение К четное

    until not odd(k) and(k

    f:=Znash(z);

    textcolor (white);

    write(\'

    Повторить

    ?\');

    readln(s);

    until(s\'

    да

    \')and(s

    writeln(\'ДО НОВЫХ ВСТРЕЧ!!!\');

    readkey

    end.

    вариант программы :

    комментарий:

    подпрограмма-процедура(«

    Znash

    »), принимает значение

    , считает значение

    по соответствующей формуле и выводит пару переменных (

    ) в строку таблицы.

    program rgr;

    uses crt;

    var k,w:integer;z:real;s:string;

    procedure Znash(k,w:integer;z:real);

    var i: integer;

    begin

    for i:=-k div 2 to k div 2 do begin

    w:=2*i;

    if (w0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

    else if(w=0) then z:=34.2

    else z:=2*exp(ln(w)*2/3)/(0.23*w);

    textcolor (yellow);

    write(w);

    write(\'

    textcolor (red);

    writeln(z:5:5);

    end;

    end;

    begin

    clrscr;

    repeat

    writeln

    (‘Введите значение К:

    repeat

    readln(k);

    if odd(k)or(k

    until not odd(k) and(k

    Znash(k,w,z);

    textcolor (white);

    write(\'

    Повторить

    ?\');

    readln(s);

    until(s\'

    да

    \')and(s

    writeln(\'ДО НОВЫХ ВСТРЕЧ!!!\');

    readkey

    end.

    примеры выполнения составленных программ:

    Ошибка ввода!!! Значение К четное положительное число.

    введите значение К

    Ошибка ввода!!! Значение К четное положительное число.

    введите значение К

    -2 12.31443

    0 34.20000

    2 6.90174

    Повторить?

    -4 47.67011

    -2 12.31443

    0 34.20000

    2 6.90174

    4 5.47792

    Повторить?

    нет

    До новых встреч!!!

    Язык: Русский

    Скачиваний: 408

    Формат: Microsoft Word

    Размер файла: 22 Кб

    Автор:

    Скачать работу...

    Забрать файл

    Похожие материалы:


ПИШЕМ УНИКАЛЬНЫЕ РАБОТЫ
Заказывайте напрямую у исполнителя!


© 2006-2016 Все права защищены