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.


 

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

28768. Внутренняя и внешняя политика Ивана IV Грозного 27.92 KB
  Внутренняя и внешняя политика Ивана IV Грозного. Земский собор и реформы первой половины правления Ивана Грозного. Запад и Восток во внешней политике Ивана Грозного. Но фактически власть оказалась в руках Елены Глинской матери Ивана.
28769. Россия в годы Смуты (конец XVI - начало XVII вв.) 25.23 KB
  Россия в годы Смуты конец XVI начало XVII вв. Предпосылки смуты и ее общая периодизация На рубеже XVI XVII Московское государство пережило тяжелый кризис охвативший все сферы жизни и поставивший его на грань существования. Главные предпосылки смуты это разорение страны в результате Ливонской войны и опричнины усиление социальных конфликтов. Наиболее крупный исследователь смуты академик Сергей Платонов выделял три ее периода: династический социальный и национальный.
28770. Воцарение в России Романовых. Развитие страны в XVII в. Особенности сословно-представительной монархии в России 24.43 KB
  Воцарение в России Романовых. Особенности сословнопредставительной монархии в России. Кроме того наладились дипломатические и торговые связи России с Западом. Этому способствовало то что сельское население России делилось на две категории: владельческих и черносошных крестьян.
28771. История в системе социально-гуманитарных наук. Предмет, принципы изучения и значение истории 24.23 KB
  История действительность в её развитии движении наука о развитии общества и природы прошлое сохраняющееся в памяти человечества. Однако не менее правдивым считается высказывание Гегеля что история никогда и никого ничему не учит это наглядно видно на практике. В системе социальногуманитарных дисциплин история может играть роль всеобщей базы которая постепенно накапливается.
28772. Сущность, формы, функции исторического знания. Методы и источники изучения истории 30.4 KB
  Методы и источники изучения истории. Содержанием истории вообще служит исторический процесс который раскрывается в явлениях человеческой жизни сведения о которых сохранились в исторических источниках. По традиции отцом истории считается Геродот 5 в. Объектом изучения для истории является вся совокупность фактов характеризующих жизнь общества как в прошлом так и в настоящем.
28773. Становление и развитие историографии как научной дисциплины. Этапы развития исторической науки 26.68 KB
  Составные части данного понятия очевидны: история и графия написание истории. Когдато под историографией понималось само описание истории исторического процесса.Источники по отечественной истории письменные вещественные аудиовизуальные научнотехнические изобразительные. Всякая же мысль и всякий поступок не оставивший прямого или косвенного следа или видимый след исчез навсегда потерян для истории как если бы он никогда не существовал.
28774. Россия в мировом человеческом сообществе. Факторы самобытности русской истории 54.17 KB
  Такая функция России в механизмах социальноглобального развития человечества обусловлена особенностями Евразии как единственного места где на единой территории происходит соединение Запада и Востока. Необходимость военного могущества России ее евразийская масштабность сложившиеся духовнокультурные основания русского народа как основного скрепа российского суперэтноса уникальный опыт взаимодействия более 100 народов и национальностей обусловлены исторически определяют Россию как уникальную евразийскую цивилизацию общинного типа с...
28775. Специфика цивилизаций Древнего Востока и Античности 38.1 KB
  В восточной цивилизации не существует гарантий личных прав человека. Эссе Специфика цивилизации государства общества культуры Древнего востока и Античности Понятие цивилизации является очень широким. Специалисты выделяют три глобальных типа: традиционные цивилизации; индустриальная цивилизация; постиндустриальная информационная цивилизация. Цивилизации Востока развиваются циклически проходят фазы становления и упрочения единого государства его упадка а затем наступает катастрофа связанная с распадом государства.
28776. Место Средневековья во всемирно-историческом процессе 28.35 KB
  Место Средневековья во всемирноисторическом процессе. Как видно в оценке средневековья присутствуют крайности. Поразному определяются и временные рамки Средневековья. К тому же внутри тысячелетнего периода Средневековья принято выделять три этапа: Раннее Средневековье Vв.