Алгоритмизация и программирование на языке Паскаль - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Алгоритмизация и программирование на языке Паскаль

Составление алгоритмов и программ для вычисления значений неизвестных: программирование формул; операторы ввода и вывода; условный оператор; цикл с предусловием и с постусловием, с заданным числом повторений; графические средства; тестирование программы.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.


Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Омский государственный технический университет
Кафедра: «Средства связи и информационная безопасность»
Алгоритмизация и программирование на языке Паскаль
Лабораторная работа 1 «Программирование формул; операторы ввода и вывода» (Read, Write)
Лабораторная работа 2 «Условный оператор» (If..then..else)
Лабораторная работа 3 «Цикл с предусловием» (While..do)
Лабораторная работа 4 «Цикл с постусловием» (Repeat..until)
Лабораторная работа 5.1 «Цикл с заданным числом повторений» (For..to..do)
Лабораторная работа 5.2 «Цикл с заданным числом повторений» (For..to..do)
Лабораторная работа 10 «Графические средства» (модуль - Graph)
Программирование формул; операторы ввода и вывода (Read, Write)
Для данных из таблицы 3 написать алгоритм и программу для вычисления формулы для х, введенных с клавиатуры . Произвести тестирование программы с помощью имеющегося математического пакета или калькулятора.
Writeln (' ПРОГРАММИРОВАНИЕ ФОРМУЛ; ОПЕРАТОРЫ ВВОДА И ВЫВОДА');
Writeln (' Лабораторная работа № 1, 8-ой вариант');
Writeln (' Константы a=1.1 и b=4');
Writeln (' Переменные x, которые надо ввести с клавиатуры = -3 и 3');
Writeln (' При -3 y=1.31; 3 y=2.87');
Writeln (' Вычисленение производится по формуле:');
y:= ln(abs(x+a))*b/(sqrt(exp(b*ln(a)))-sin(b));
WriteLn ('Результат вычисления y =',y:6:2);
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
Написать алгоритм и программу для вычисления значения у из таблицы 4 для х, введенного с клавиатуры. Произвести тестирование программы.
Writeln (' Лабораторная работа № 2, 8-ой вариант');
Writeln (' Дана система уравнений для вычисления значения y');
Writeln (' при котором x требуется ввести с клавиатуры.');
Writeln (' Диапазон, при которых значение x подходит к решению,');
Writeln (' должно контролироваться программой.');
Writeln (' | x*(3-x) , -1<= x <0');
Writeln (' Производя проверку, в значении tg(2x) - х является ГРАДУСОМ!');
{-= делаем проверку и вычисления =-}
if ((x<-1) or (x>2)) then Writeln ('Введённое значение выходит за пределы')
else y := (sin(2*x*Pi/180)/cos(2*x*Pi/180));
WriteLn ('Результат вычисления y =',y:7:3);
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
Написать алгоритм и программу вычисления у(х) или z(t) из лабораторной работы № 1 для заданных значений диапазона и шага аргументов z, t, таблица 5. Первое значение вычисляется в крайней левой точке заданного диапазона значений аргументов х. Произвести тестирование программы.
Writeln (' Лабораторная работа № 3, 8-ой вариант');
Writeln (' Изменение x происходит от -3 до 3 с шагом 0,5');
Writeln (' Вычисленение производится по формуле:');
Writeln ('Для продолжения нажмите "Enter"');
Writeln (' Вычисленение производится по формуле:');
Writeln (' y = ----------- ; a=1.1, b=4' );
y:= ln(abs(x+a))*b/(sqrt(exp(b*ln(a)))-sin(b));
WriteLn ('Результат вычисления y =', y :6:2, ' при x = ', x :6:2);
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
алгоритм программа формула тестирование
«Цикл с постусловием» (Repeat..until)
Задание 1. Написать алгоритм и программу вычисления функции у(х) из лабораторной работы №2 в N равномерно распределенных в диапазоне Х1<х<Х2 точках, таблица 6. Результаты сформировать в виде таблицы. Произвести тестирование.
Задание 2. Произвести пошаговое выполнение программы, наблюдая переменные х, у, n
Writeln (' Лабораторная работа № 4, 8-ой вариант');
Writeln (' Дана система уравнеий для вычисления значения y,');
Writeln (' | x*(3-x) , -1<= x <0');
Writeln (' При выводе значении tg(2x) - х является ГРАДУСОМ!');
Writeln (' Из диапазона x выбирается 10 значений, которые');
Writeln (' атоматически вычисляются, разбив промежуток на равные части.');
Writeln ('Выберите вариант вывода значений:');
Writeln (' 1 - вывод всех значений');
Writeln ('(нажмите соотв. цифру на клавиатуре)');
{Проверяем выбораный режим 49="1", 50="2"}
Writeln (' Cистема уравнеий для вычисления значения y,');
Writeln (' | x*(3-x) , -1<= x <0');
Writeln(' для завершения нажмите "Esc", для продолжения любую клавишу');
{-= выводим в табличном значении =-}
{ на всякий случай пусть проверяет ;) }
if (( x <-1) or ( x >2)) then Writeln ('Значение вышло за пределы - ГЛЮК 8)')
else y := (sin(2*x*Pi/180)/cos(2*x*Pi/180));
Writeln (' =',i:3,'=',x:7:2,'=',y:7:2,'=');
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
«Цикл с заданным числом повторений» (For..to..do)
Задание 1. Изменить алгоритм и программу из лабораторной работы 4, используя вместо цикла с постусловием счетный цикл.
Writeln (' ЦИКЛ С ЗАДАННЫМ ЧИСЛОМ ПОВТОРЕНИЙ');
Writeln (' Лабораторная работа № 5 (задания 1), 8-ой вариант');
Writeln (' Дана система уравнеий для вычисления значения y,');
Writeln (' | x*(3-x) , -1<= x <0');
Writeln (' При выводе значении tg(2x) - х является ГРАДУСОМ!');
Writeln (' Из диапазона x выбирается N значений, которые');
Writeln (' атоматически вычисляются, разбив промежуток на равные части.');
Writeln ('Выберите вариант вывода значений:');
Writeln (' 1 - вывод всех значений');
Writeln ('(нажмите соотв. цифру на клавиатуре)');
{Проверяем выбораный режим 49="1", 50="2"}
Writeln (' Cистема уравнеий для вычисления значения y,');
Writeln (' | x*(3-x) , -1<= x <0');
Writeln(' для завершения нажмите "Esc", для продолжения любую клавишу');
{-= выводим в табличном значении =-}
else y := (sin(2*x*Pi/180)/cos(2*x*Pi/180));
Writeln (' =',i:3,'=',x:7:2,'=',y:7:2,'=');
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
«Цикл с заданным числом повторений» (For..to..do)
Задание 2. Для заданного х, числа слагаемых или п вычислить следующее.
Writeln (' ЦИКЛ С ЗАДАННЫМ ЧИСЛОМ ПОВТОРЕНИЙ');
Writeln (' Лабораторная работа ь 5 (задания 2), 8-ой вариант');
Writeln (' Дана последовательность s,');
Writeln (' s = 1 - --- + --- - --- + ... ---');
Writeln (' Значение x и n надо ввести с клавиатуры.');
Writeln (' Где: x - не известная x');
Writeln (' n - кол-во решений (дробей)');
Writeln (' *для примера x,n большими лучше не вводить ');
Writeln (' ограничение и переполнение не учитывается ');
Writeln (' т.к. это выходит за рамки данного задания* ');
Write (' Введите занчение х нажмите Enter: ');
Write (' Введите значенеи n нажмите Enter : ');
Writeln ('Выберите вариант вывода значений:');
Writeln (' 1 - вывод итогового значения s');
Writeln (' 2 - вывод значения s, для каждого решения');
Writeln ('(нажмите соотв. цифру на клавиатуре)');
{Проверяем выбораный режим 49="1" vr=10, 50="2" vr=1}
Writeln(' для завершения нажмите "Esc", для продолжения любую клавишу');
Writeln (' s = 1 - --- + --- - --- + ... ---');
{-= выводим в табличном значении =-}
Writeln (' = решение = s при x = ', x:6:5);
{проверяем на чётность и соответственно добавляем знак}
if odd(i) then a := -1 else a := 1;
{вычисляем факториал знаменателя - zn (n!)}
zn := 1; {zn - факториал в знаменателе}
!ПРИМЕЧАНИЕ так как отрицательное число под знаком логарифма приведёт к ошибке, дополнительно при вычислении избавляемся от знака "-". В нашём конкретном случае это не будет ошибкой т.к. при нашем задании степень ЧЕТНАЯ т.е. при любом значении x оно всегда будет чётное. Поэтому смело можно применять abs.}
b := exp ( c * ln ( abs ( x )))/ zn ;
{находим результат s = s+a*b (= 1 - (x^n/n!) + .. - ..}
Writeln (' =',i:7,'=',s:7:5,' x^',c,'=',b*zn:7:5,' ',c,'!=',zn);
if vr = 10 then Writeln (' =',i:7,'=',s:7:5);
Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
«Графические средства» (модуль - Graph)
Пользуясь, по возможности, процедурами: Bar, Bar3D, Line, Ellipse, FloodFill, написать программу рисования на экране Вашей фамилии.
Writeln (' Лабораторная работа ь 10');
Writeln (' Вывести на экран фамилию в графическом режиме.');
Writeln(' для завершения нажмите "Esc", для продолжения любую клавишу');
InitGraph (GraphDriver, GraphMode, 'C:\Pascal\Bp\Bgi');
if GraphResult <> grOk then Halt (1);
FloodFill { PutPixel} (5*dx,8*dy,Color);
FloodFill { PutPixel} (10*dx,8*dy,Color);
Line (14*dx,7*dy,13*dx+dx2,6*dy+dx2);
Line (13*dx+dx2,6*dy+dx2,14*dx+dx2,5*dy+dx2);
Line (14*dx+dx2,5*dy+dy2,15*dx+dx2,5*dy+dy2);
Line (15*dx+dx2,5*dy+dy2,16*dx+dx2,6*dy+dy2);
Line (16*dx+dx2,6*dy+dy2,16*dx+dx2,7*dy+dy2);
Line (16*dx+dx2,7*dy+dy2,15*dx,8*dy+dy2);
Line (15*dx,8*dy+dy2,16*dx+dx2,9*dy);
Line (16*dx+dx2,9*dy,16*dx+dx2,10*dy+dy2);
Line (16*dx+dx2,10*dy+dy2,16*dx,11*dy);
Line (16*dx,11*dy,13*dx+dx2,11*dy);
Line (13*dx+dx2,11*dy,13*dx,10*dy+dy2);
Line (13*dx,10*dy+dy2,13*dx+dx2,10*dy);
Line (13*dx+dx2,10*dy,14*dx,10*dy+dy2);
Line (14*dx,10*dy+dy2,15*dx+dx2,10*dy+dy2);
Line (15*dx+dx2,10*dy+dy2,15*dx+dx2,9*dy+dy2);
Line (15*dx+dx2,9*dy+dy2,14*dx+dx2,9*dy);
Line (14*dx+dx2,9*dy,14*dx,8*dy+dy2);
Line (14*dx,8*dy+dy2,14*dx+dx2,8*dy);
Line (14*dx+dx2,8*dy,15*dx+dx2,7*dy+dy2);
Line (15*dx+dx2,7*dy+dy2,15*dx+dx2,6*dy+dy2);
Line (15*dx+dx2,6*dy+dy2,14*dx+dx2,6*dy+dy2);
Line (14*dx+dx2,6*dy+dy2,14*dx,7*dy);
FloodFill { PutPixel} (15*dx,9*dy,Color);
FloodFill {PutPixel} (20*dx,8*dy,Color);
FloodFill {PutPixel} (18*dx,8*dy+dy2,Color);
FloodFill { PutPixel} (23*dx,8*dy,Color);
FloodFill { PutPixel} (27*dx,7*dy,Color);
Arc (31*dx, 6*dy+dy2, 330, 125, 25);
Arc (31*dx+dx2, 9*dy+dy2, 225, 64, 30);
FloodFill {PutPixel} (32*dx,10*dy,Color);
Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');
1. Алгоритмизация и программирование на языке паскаль. Методические указания к лабораторным работам. Омск 2005. Составитель Осипов Вадим Евгеньевич
2. Сухарёв М. Turbo Pascal 7.0, теория и практика программирования. - СПб: Наука и Техника, 2003. - 576 стр. с ил. Под редакцией М.В. Финкова ISBN 5-94387-062-8
Программирование линейных алгоритмов. Процедуры ввода READ и READLN и вывода WRITE и WRITELN. Примеры решения задач на языке Паскаль. Оператор присваивания и выражения. Основные способы формирования структурных операторов. Операторы вызова процедур. курсовая работа [44,3 K], добавлен 18.03.2013
Понятие программы и ее основные составляющие. Операторы ввода и вывода. Разветвляющиеся алгоритмы. Цикл как многократное выполнение одинаковых действий. Особенности использования оператора выбора. Графики функций и системы координат. Рекурсия и анимация. презентация [663,7 K], добавлен 24.12.2010
Программирование линейных и ветвящихся процессов; циклов с предусловием, постусловием и параметром для вычисления сложных сумм и произведений рядов; таблицы значений функции двух переменных. Блок-схемы алгоритмов. Тексты программ и результаты их работы. курсовая работа [2,4 M], добавлен 11.03.2015
Предназначение цикла for - оформление циклов (набора действий) с заданным количеством повторений. Пример программы, выводящей на экран все целые числа от 0 до 99. Решение задачи с помощью двух алгоритмов, используя известные функции ввода-вывода. лабораторная работа [35,1 K], добавлен 15.07.2009
Информационные технологии и защиты данных. Методы защиты информации. Виды информационной безопасности и умышленные угрозы. Программирование на языке Turbo Pascal. Типы числовых данных. Функции ввода и вывода. Логические операторы, символьные переменные. курсовая работа [1,7 M], добавлен 16.05.2016
Основы синтаксиса, переменные, константы. Оператор if и switch. Цикл с предусловием while и постусловием do-while. Операторы передачи управления и включения. Формы в HTML-документах. Обработка запросов с помощью РНР. Передача параметров по ссылке. методичка [44,2 K], добавлен 29.10.2013
Понятие и принципы реализации оператора ветвления, его значение и роль в языке программирования Паскаль. Основные логические операции и сложные логические выражения, их содержание. Программа упорядочения значений двух переменных, ее этапы и методы. презентация [187,9 K], добавлен 02.04.2014
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Алгоритмизация и программирование на языке Паскаль курсовая работа. Программирование, компьютеры и кибернетика.
Техника Подачи В Волейболе Реферат
Пример Готового Эссе По Истории В 2022
Пособие по теме Стекло, ситаллы и каменное литье. Строительные пластмассы
Контрольная работа по теме Основные учетные документы государственного (муниципального) архива, их целевое назначение
Реферат На Моральную Тему
Сочинение На Тему Слово О Пушкине
Реферат: Этикет делового общения 3
Реферат по теме Карибский кризис 1962 года. Мир на грани войны.
Реферат по теме Етикет ділового мовлення
Реферат по теме Hobby - Travekkung
Реферат: Саровский Серафимо-Дивеевский монастырь
Реферат: Сколиоз - патология опорно-двигательного аппарата. Скачать бесплатно и без регистрации
Реферат: Історико-політичні та правові аспекти становлення парламентаризму в Україні на зламі ХХ-ХХІ ст.
Как Правильно Писать Вступление К Сочинению
Реферат По Дубровскому 6 Класс
Движение Реферат
Компьютерные информационные технологии
Сочинение Про 2 Мировую Войну
Реферат: Антонов - великий конструктор
Постановка Задач Реферат
Система управления жилищно-коммунальным хозяйством субъекта Российской Федерации - Государство и право дипломная работа
Маркетинговая деятельность ресторанного бизнеса - Маркетинг, реклама и торговля курсовая работа
Аналіз оптових закупівель товарів на ярмарках та виставках - Маркетинг, реклама и торговля курсовая работа