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.


 

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

54336. Текстові формули (функції) Microsoft Excel (MICROSOFT OFFICE 2010) 263.5 KB
  Необхідно використовуючи текстові функції заповнити даними таблицю № Автор Назва книги Видавник Кількість сторінок. формат запису функції НАЙТИискомый_текст; просматриваемый_текст; начальная позиция в якості результату повертає позицію початку пошукового рядка тексту який міститься в даному рядку текста.
54337. Методичний конструктор як техніка підготовки педагогів до впровадження директивних інновацій 59.5 KB
  Цей методичний захід має бути необхідний закладу та учителям легкий у виконанні не обтяжуючий учасників заходу і водночас корисний Для цього треба не забувати про особливості навчання дорослих людей які мають свій досвід свої погляди на себе та оточуючий світ на розвиток себе в професії і суспільстві. Подруге підійдіть до розробки заходу дуже ретельно хоча на сучасному етапі саме розробка дійсно якісного методичного заходу не завжди є проблемою для цього є маса літератури з даного приводу але до технік що обираються треба...
54338. Використання методу проектів на уроках інформатики 187 KB
  Тема: Комп’ютерні презентації Проект: Я інформую Тип проекту : інформаційнотворчий. Очікуваний результат: створення презентації засобами MS PowerPoint. Порада Перед створенням презентації бажано: Визначити тему та призначення презентації Створити схему сценарій презентації Спланувати зміст усіх слайдів їх стиль. ДОДАТКОВІ ВИМОГИ ДО ЗМІСТУ ПРЕЗЕНТАЦІЇ ЗА Д.
54339. ВИКОРИСТАННЯ ПРОЕКТНИХ ТЕХНОЛОГІЙ НА УРОКАХ МАТЕМАТИКИ ЯК ЗАСІБ АКТИВІЗАЦІЇ ПІЗНАВАЛЬНОЇ ДІЯЛЬНОСТІ УЧНІВ 107.5 KB
  Дуже важливою також є структуризація змістовної частини проекту із зазначенням поетапних результатів. Необхідною складовою методики здійснення проектної діяльності є складання загальної моделі що розглядається як умовний образ схема кінцевого результату проекту. Першим із них передбачено виконання завдань навчального проекту та здійснення презентації кінцевого інтелектуального матеріального продукту безпосередньо на уроці або під час проведення серії уроків з певної теми. Водночас педагогічна функція вчителя ускладнюється порівняно з...
54340. Метод проектів на уроках інформатики 78.5 KB
  Історія виникнення методу проектів Місце методу проектів у навчальному процесі Формування проектних компетенцій Метод проектів на уроках інформатики Висновки Використані джерела Вступ Сучасну практичну діяльність людства науковотехнічний та культурний прогрес у різних сферах суспільного буття неможливо уявити без проектування і проектів. Історія виникнення методу проектів Використання у навчальновиховному процесі методу проектів не є новим для українських шкіл. Першим увів поняття метод проектів...
54341. Культура Европы в XX - начале XXI вв.: противоречия и проблемы 28.21 KB
  Таким образом процесс подготовки и проведения такого учебного занятия как комбинированный урок увлекает студентов активизирует их достаточно свободно пользоваться простыми языковыми средствами в основных видах речевой деятельности: говорении аудировании чтении и письме. ФГОУ СПО Чебоксарский техникум строительства и городского хозяйства МЕТОДИЧЕСКАЯ КАРТА ЗАНЯТИЯ Дисциплина: Английский язык Группа: С41 Преподаватель: Бутакова Л. Тема занятия: Строительство зданий и сооружений Тип и вид занятия: комбинированный Цели занятия...
54342. Методические основы использования прикладного ПО на уроках в школе 111.5 KB
  Деление на группы производят либо по способностям либо случайным образом например по партам или по алфавиту. В этом случае как правило формируются разно уровневые группы в которых быстро определяются лидеры и аутсайдеры. Гузеев предложил различать группы выравнивания поддержки и развития. Группы выравнивания состоят из учащихся с различной успеваемостью и ориентированы на достижение всех ее участников обязательного уровня образования; группы поддержки однородны по успеваемости; в группах развития ученики более высокого уровня...
54343. Дмитриу Донской. Куликовская битва 83 KB
  Что позволило Дмитрию Ивановичу открыто выступить против монголотатар и разгромить их 12 октября 1350 года у московского удельного князя Ивана родился сын которого окрестили Дмитрием. Дмитрия Московского сумели получить для своего князя ярлык. Разведка великого князя донесла что Мамай собрав войско уже три недели ждал на Дону Ягайло Литовского.
54344. Сучасний урок - джерело творчості вчителя 2.78 MB
  €œТестові завдання з геометрії. клас із використанням тестуючого комплексу MIFTests. Кожен вчитель є справжнім керівником дитячого колективу діти визнають своїх педагогів за лідерів та активно співпрацюють із ними а це означає: вчитель має власний педагогічний імідж свій особливий педагогічний почерк він – конкурентоспроможний компетентний фахівець. МАТЕМАТИКА ТА ІТК У сучасному світі потреба в комп’ютерних технологіях постійно зростає – вони необхідні і вдома і на робочому місці. Систематичне використання...