4)Блок схема:

5) Трассировка:

6)Вывод : написала программу для выведения вначале всех содержащиеся в данном массиве четных чисел в порядке возрастания их индексов, а затем - всех нечетных числел в порядке убывания их индексов.

План отчета по алгоритмизации.

Отчет Петровой Ксении Викторовны

Группа 21115

Вариант е, номер задания 7(б).

1) Цель: Дана строка, содержащая латинские буквы и круглые скобки. Если скобки расставлены правильно (то есть каждой открывающей соответствует одна закрывающая), то вывести число 0. В противном случае вывести или номер позиции, в которой расположена первая ошибочная закрывающая скобка, или, если закрывающих скобок не хватает, число -1.

2) Сведения о численном методе.

Основные функции работы со строками:

chr(i) - преобразует целое число i в символ кода ASCII (0-255)

Ord('<символ>') - возвращает порядковый номер (код ASCII) <символа>

-----

примеры:

write(chr(65)) - будет выведен символ 'A'

write(ord('A')) - будет выведен номер 65

Пример:

str : string - переменная типа "строка"

...

Pos(search_word,str)

Length(str)

Upcase(str) - преобразование символа из прописного в строчный

Copy

Insert

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

Program String69;

var

s:string;

i:integer;

pos,cout:integer;

flag:boolean;

Begin

write('Vedite stroky(latineca i kruglie ckobki):');

readln(s);

flag:=false;

pos:=0;

cout:=0;

for i:=1 to length(s) do

begin

if(flag = false)then

begin

if(s[i] = '(')then

begin

flag:=true;

pos:=i;

end;

end

else

if(s[i] = ')')then

begin

flag:=false;

pos:=0;

end;

end;

if(flag=true)then writeln(pos)

else writeln(0);

readln;

end.

4)Блок схема:

4) Трассировка:

5)Вывод : написала программу для целочисленного массива размера N, все элементы которого упорядочены (по возрастанию или по убыванию), которая находит количество различных элементов в данном массиве

Подключение графики:

uses Graph;

InitGraph - процедура инициализации графического режима.

Для подключения графики можно использовать следующую процедуру:

Procedure GraphCHK;

Begin

Gd:=VGA; { Графический адаптер - VGA }

Gm:=VGAHi; { Графический режим VGAHi (640x480) }

InitGraph (Gd,Gm,''); { Включение графического режима }

If GraphResult<>grOk then

begin

write('Ошибка');

halt(1)

end;

end;

После работы с графической библиотекой необходимо выгрузить из

памяти драйвера подключенных графических адаптеров (например, VGA),

промежуточные данные, и вернуться в текстовый режим.

Для этого достаточно в конце программы вставить функцию CloseGraph !!!

В примере (процедура GraphCHK) используется режим VGA.

При этом разрешение монитора: 640x480 точек.

───────────────────>x 0...639 (Начальная координата = (0,0) -левый

| верхний угол)

|

|y 0...479

x,y : integer;

GetmaxX, GetmaxY - возвращают значения максимумов координат.

Пример: x:=getmaxX;

GetX, GetY - определяют положение текущего указателя

(т.е. координаты в данный момент времени).

MoveTo(x,y) - перемещает текущий указатель в точку

с координатами x,y.

MoveRel(dx,dy) - перемещает текущий указатель на dx и dy точек

относительно координат текущего указателя(!).

Line(x,y,x1,y1) - рисование линии из точки с (x,y) в точку с (x1,y1).

OutText('текст') - вывод текста на экран в графическом режиме.

OutTextXY(x,y,'текст') - вывод текста на экран, начиная с точки

с координатами (x,y).

PutPixel(x,y,color) - отображение точки цвета (color) на экране.

SetColor(color), SetBkColor(color) - установка текущего цвета

отображения графических объектов и фона.

color = 0...15

Написать программу рисования графика функции. Сравнить с графиком функции,

построенным в MS Excel. y=x^3+6*x-2;

http://www.cyberforum.ru/pascalabc/thread318814.html

http://interacia.net/index.php/2011-02-15-18-33-42/begin40/81-array-18-50-.html