37805

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

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

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

Блоксхема 2 початок Ввестиbc mx:= А А – b mx – c mx mx:=b mx:=c min:= – b min – c min min:=b min:=c – ≠mx ≠min – b≠mx b≠min p:= p:=b c≠mx c≠min – p:=c Вивестиmxpmin кінець uses crt; vr b c mx min p: rel; Оголошуємо основні та допоміжні змінні begin clrscr; writeln...

Украинкский

2013-09-25

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.


 

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

27650. Подделка, изготовление или сбыт поддельных документов, государственных наград, штампов, печатей, бланков (ст.327 УК). Отличие данного преступления от служебного подлога (ст. 292 УК) 37 KB
  Бланк лист бумаги с оттиском углового или центрального штампа либо с напечатанным любым способом текстом штампа либо иным текстом текстом и рисунком используемый для составления документа бланк лицензии паспорта удостоверения анкеты заявления и т.1 имеет альтернативный характер: подделка удостоверения или иного официального документа предоставляющих права или освобождающих от обязанностей государственной награды штампа печати или бланка в целях использования указанных предметов; сбыт поддельного документа поддельных...
27652. Объект (непосредственный) 290-порядок функционирования гос. органов и органов местного самоуправления и муниципальных учреждений; 204-интересы службы в негосудар. организациях 106.5 KB
  Особо квалифицирующие признаки деяния совершены: группой лиц по предварительному сговору или организованной группой; с вымогательством взятки; в крупном размере. Различия по объекту преступления В коммерческом подкупе преступление против коммерческой организации в получении взятки преступление против гос. Дача взятки состоит в незаконном вручения передаче материальных ценностей или предоставлении выгод имущественного характера должностному лицу лично или через посредника за совершение действий бездействия входящих в служебные...
27653. Понятие вымогательства (ст. 163 УК), его объект и момент окончания. Отличие вымогательства от насильственного грабежа и разбоя. Обстоятельства, отягчающие совершение этого преступления 43.5 KB
  Отличие вымогательства от насильственного грабежа и разбоя. Отличие вымогательства от самоуправства ст. Вымогательство: Объект вымогательства: отношения собственности и личности.
27654. Понятие и виды обстоятельств, исключающих преступность деяния. Их социально-правовая природа и значение 29 KB
  Любое преступление как правило связано с причинением серьезного вреда охраняемым общест. Мера причиненного или грозящего вреда выражает основной признак любого преступления его общественную опасность. Однако в некоторых ситуациях причинение даже существенного вреда по своему социальному содержанию является полезным для личности и общества и в силу этого лишено общественной опасности и угол. Законом и господствующей моралью допускаются необходимая оборона причинение вреда при задержании лица совершившего преступление обоснованный риск...
27655. Понятие и виды преступлений в сфере кредитно-финансовой деятельности 36 KB
  176 УК изготовление или сбыт поддельных денег или ценных бумаг ст. № 2 О судебной практике по делам об изготовлении или сбыте поддельных денег и ценных бумаг. 186 Изготовление или сбыт поддельных денег или ценных бумаг Непосредственный объект – общественные отношения обеспечивающие: право на эмиссию денег и ценных бумаг уполномоченным кругом субъектов экономической деятельности в том числе исключительное право РФ на эмиссию национальной валюты; интересы негосударственного финансового объекта а также право собственности потенциальных...
27656. Понятие и виды преступлений против службы в коммерческих и иных организациях. Злоупотребление полномочиями (ст.201 УК РФ). Коммерческий подкуп (ст. 204 УК РФ). Особенности субъекта данных преступлений 38.5 KB
  Коммерческие организации это организации преследующие извлечение прибыли в качестве основной цели своей деятельности в частности хозяйственные товарищества; хозяйственные общества; производственные кооперативы; государственные унитарные предприятия. Действие главы 23 УК РФ распространяется на все коммерческие организации независимо от формы их собственности. Некоммерческие организации это организации не имеющие в качестве основной цели своей деятельности извлечение прибыли и поэтому они могут заниматься предпринимательской...
27658. Понятие и виды преступлений, ставящих в опасность жизнь и здоровье. Оставление в опасности (ст. 125 УК). Отличие этого преступления от неоказания помощи больному (ст. 124 УК) 30.5 KB
  Убийство; Убийство матерью новорожденного ребенка; Убийство совершенное в состоянии аффекта; убийство совершенное при превышении пределов необходимой обороны или при превышении мер необходимых для задержания лица совершившего преступление; Причинение смерти по неосторожности; Доведение до самоубийства; Умышленное причинение тяжкого вреда здоровью; Умышленное причинение средней тяжести вреда здоровью; Причинение тяжкого или средней тяжести вреда здоровью в состоянии аффекта; Причинение тяжкого или средней тяжести вреда здоровью при...