Разработка программы на языке Паскаль

Расчёт скорости распространения упругой волны

Расчёт силы натяжения струны

 

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

ПЕТРОЗАВОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Физико-технический факультет

Отчет по практике

Дисциплина: «Информатика»

Разработка программы на языке Паскаль

«Условные операторы в Turbo Pascal»

 

(Задание № 11 Вариант 4)

 

Выполнила: студентка 1 курса

ФТФ, гр.21117

Гук И.Л.

 

Руководитель практики:

Логинова С.В.

 

 

Петрозаводск 2014

 

Задание:

Ввести N чисел. Проверить, являются ли введенные числа пе­рестановкой {1,3,5,... 2*N-1}

Словесно-формульный алгоритм:

1.Ввод числа N.
2.Ввод множества.
3.Проверка вхождения элементов ряда [1, 3, 5,..., 2*N-1] в введенное множество {If (i*2-1 and A[n]<A[n-1])=false then b:=false }, где А – это множество, а I – элементы ее ряда.

4.Вывод переменной b как результат проверки.

Блок — схема:

 

Листинг программы:

 

uses crt;

VAR

A: set of BYTE;

i,n,t:integer;

b:Boolean;

BEGIN

A:= [];

Write('N=');

ReadLn(n); {Ввод числа N}

For i:=1 to n do {Ввод множества}

Begin

Write('A[',i,']= ');

ReadLn(t);

include (A, t);

end;

WriteLn;

 

b:=true;

For i:=1 to n do

If (i*2-1 in A)=false then b:=false; {Проверка вхождения элементов ряда [1, 3, 5,..., 2*N-1] в введенное множество}

WriteLn(b);

ReadLn;

END.

 

Инструкцию пользователя:

1. Запустите программу

2. Введите значения N (количество элементов в множестве)

3. Нажмите Enter

4. Введите значение всех элементов, после ввода каждого элемента нажимайте Enter

 

Результат появится на экране.

Для закрытия программы нажмите любую клавишу.