37805

Програмування лінійних та розгалужених алгоритмів

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

Информатика, кибернетика и программирование

Ознайомитися з операторами вводу, виводу і присвоєння, навчитися записувати лінійні алгоритми на мові програмування Pascal; закріпити теоретичні відомості про розгалужені алгоритми, оператори передачі управління, навчитися програмувати розгалуження.

Украинкский

2017-03-19

62.52 KB

1 чел.

9

Міністерство освіти і науки України

Хмельницький національний університет

Кафедра системного програмування

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

з програмування

на тему:

«Програмування лінійних та розгалужених алгоритмів»

Виконав:

Студент групи КІ-10-1

Ноль М.Г.

Перевірив:

Савенко О.С.

Хмельницький

2010

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

Тема: програмування лінійних та розгалужених алгоритмів.

Мета: ознайомитися з операторами вводу, виводу і присвоєння, навчитися записувати лінійні алгоритми на мові програмування Pascal; закріпити теоретичні відомості про розгалужені алгоритми, оператори передачі управління, навчитися програмувати розгалуження.

Завдання

Задача 1. За заданими сторонами a, b, c трикутника знайти величини згідно з варіантами. Передбачити введення значень a, b, c  з клавіатури. Виведення вихідних даних здійснювати з відповідним пояснюючим текстом.

Варіант 8. Знайти .

b2 + c2a2)/2bc.

Блок-схема 1

початок

Ввести(a,b,c)

P1:=(b*b+c*c-a*a)/(2bc)

P2:=sqrt(1-p1*p1)

P:=p1+p2

Вивести(р)

кінець

uses crt;

  (*оголошуємо змінні для сторін і шуканих величин*)

var a, b, c, p, p1, p2: real;

begin

clrscr;

writeln ('Введіть сторони трикутника:');

  (*вводимо значення сторін*)

readln (a, b, c);

  (*обчислюємо значення синуса і косинуса*)

p1:=(b*b+c*c-a*a)/(2*b*c);

p2:=sqrt(1-p1*p1);

   (*обчислюємо значення суми*)

p:=p1+p2;

   (*виводимо результат*)

writeln ('cos(a)+sin(a)=', p:5:2);

readln

end.

Задача 2. Дано числа a, b, c. Надрукувати їх в порядку зменшення.

Блок-схема 2

початок

Ввести(a,b,c)

max:=a

А

А

+

b>max?

+

c>max?

max:=b

max:=c

               

min:=a

+

b<min?

+

c<min?

min:=b

                                   

                                            

min:=c

+

a≠max?

a≠min?

+

b≠max?

b≠min?

p:=a

p:=b

c≠max?

c≠min?

+

p:=c

Вивести(max,p,min)

кінець

uses crt;

var a, b, c, max, min, p: real;                        

  (*Оголошуємо основні та допоміжні змінні*)

begin

clrscr;

writeln ('Введіть числа a, b, c:');

  (*Вводимо значення чисел*)

readln (a, b, c);

  (*Знаходимо значення максимуму*)

max:=a;

if b>max then max:=b;

if c>max then max:=c;

  (*Знаходимо значення мінімуму*)

min:=a;

if b<min then min:=b;

if c<min then min:=c;

  (*Знаходимо інше число*)

if (a<>max) and (a<>min) then p:=a;

if (b<>max) and (b<>min) then p:=b;

if (c<>max) and (c<>min) then p:=c;

  (*Виводимо числа у порядку зменшення*)

writeln ('Числа у порядку зменшення: ', max:5:2, p:5:2, min:5:2);

readln

end.

у

Задача 3. Дано графік функції. Необхідно задати дану функцію аналітично і вкласти програму, яка при заданому значенні аргументу буде видавати значення функції.

1

х

0.5

0

-1

Блок-схема 3

початок

Ввести(х)

+

х<=0?

y:=0.5

y:=sin(x)

Вивести(у)

кінець

uses Crt;

var x, y: real;

begin

clrscr;

writeln ('Введіть х:');

  (*Вводимо значення х*)

readln (x);

  (*Перевіряємо умову, обчислюємо відповідне значення у*)

if x<=0 then y:=sin(x) else y:=0.5;

  (*Виводимо результати*)

writeln ('x=', x:5:2);

writeln ('y=', y:5:2);

readln

end.

Задача 4. Дано п’ятизначне число менше 30000, яке вводиться з клавіатури. Скласти програму, яка визначає кожну його цифру в розряді і додає їх.

початок

Блок-схема 4

Ввести(х)

+

10000<x<30000?

B

B

x1:=x mod 10

x2:=(x mod 100-x mod 10) div 10

x3:=(x mod 1000-x mod 100) div 100

x4:=(x mod 10000-x mod 1000) div 1000

x5:=x div 10000

p:=x1+x2+x3+x4+x5

Вивести(х1,х2,х3,х4,х5,р )

кінець

uses crt;

  (*Зробимо позначку*)

label start;

  (*Оголошуємо змінні для кожної цифри числа*)

var x, x1, x2, x3, x4, x5, p: integer;

begin

clrscr;

start: writeln ('Введіть число x, (10000<x<30000):');

  (*Вводимо значення числа х*)

readln (x);

  (*Перевіряємо умову*)

if (x<10000) or (x>30000) then goto start else

  (*Знаходимо кожну цифру числа*)

x1:=x mod 10;

x2:=(x mod 100 - x mod 10) div 10;

x3:=(x mod 1000 - x mod 100) div 100;

x4:=(x mod 10000 - x mod 1000) div 1000;

x5:=x div 10000;

  (*Додаємо усі цифри*)

p:=x1+x2+x3+x4+x5;

  (*Виводимо результат*)

writeln (x1,' одиниць, ', x2,' десятків, ', x3,' сотень, ', x4,' тисяч, ', x5,' десятків тисяч');

writeln (сума цифр=', p);

readln

end.


 

А также другие работы, которые могут Вас заинтересовать

16174. Коммерческое право России. Учебно-методическое пособие 619 KB
  Система российского права представляет собой целостное образование, включающее в той или иной степени связанные между собой отдельные отрасли права. С признанием в последний период разделения права на публичное и частное отрасли права дифференцируются прежде всего по их принадлежности к первому или второму. Будучи отнесенным к гражданскому праву, коммерческое право одновременно входит в сферу частного права
16175. Правовое регулирование хозяйственных товариществ и обществ. Учебное пособие 1.1 MB
  Согласно ГК РФ полному товариществу был придан статус юридического лица. Хозяйственные товарищества и общества наконец-то получили от участников имущество, передаваемое в уставный (складочный) капитал этих юридических лиц, а участники получили не право долевой собственности
16176. Правовая организация отраслевых хозяйственных систем. Учебное пособие 776.5 KB
  Пронская Г.В. Правовая организация отраслевых хозяйственных систем/ К.: Вища школа 1985 124с. Грациэлла Васильевна Пронская ПРАВОВАЯ ОРГАНИЗАЦИЯ ОТРАСЛЕВЫХ ХОЗЯЙСТВЕННЫХ СИСТЕМ На примере Украинской ССР Редактор О. А. Ульяницкая Художник В. И. Гридко...
16177. Криминальные организации. Учебное пособие 518 KB
  Криминальные организации Преступность вымогательство и политика американского города. От автора Эта книга совместный труд прошедший множество стадий прежде чем принять настоящую форму. Я обязан огромному числу людей за их помощь. Филипп Дженкинс из ...
16178. Муниципальное право России. Учебное пособие 628.5 KB
  СЕРИЯ ПОДГОТОВКА К ЭКЗАМЕНУ И. В. Постовой Муниципальное право России вопросы и ответы МОСКВА Юриспруденция 2000 УДК35 ББК 67.401 П63 П63 Постовой Н.В. Муниципальное право России: Вопросы и ответы. М.: Юриспруденция 2000. 128 с. С
16179. Тактика допроса на предварительном следствии. Учебное пособие 2.4 MB
  Порубов Н. И. Тактика допроса на предварительном следствии: Учебное пособие. М.: Издательство БЕК 1998. 208 с. В книге на основе действующего законодательства последних достижений криминалистики данных психологии логики и педагогики рассматривается допрос в проце
16180. Правовое положение холдингов в России. Учебное пособие 1.15 MB
  Правовое положение холдингов в России Предисловие Настоящая книга посвящена теме которая представляет большой интерес для практики и науки. Практика хозяйственной деятельности в настоящее время требует объединения усилий субъектов для достижения поставл...
16181. Искусство речи на суде. Учебное пособие 1.46 MB
  Искусство речи на суде Пороховщиков П.С. Искусство речи на суде. Тула издательство Автограф 2000 г. Воспроизводится по изданию 1910 г. Главная задача книги это исследование судебного говорения и установление его методов. Книга адресована студентам юридических...
16182. Язык и стиль судебных документов. Учебное пособие 506.5 KB
  Издание второе переработанное и дополненное. Сборник подготовлен Федеральным арбитражным судом СевероЗападного округа при содействии Совета судей Российской Федерации Союза юристов России и финансовой поддержке ФГУП Росэнергоатом. Автор идеи и руководитель пр