Автор работы: Пользователь скрыл имя, 22 Марта 2012 в 09:17, курсовая работа
Алгоритмічна мова високого рівня Паскаль отримала свою назву в честь французького математика 17 ст. Блеза Паскаля, який був творцем першої механічної обчислювальної машини («суматор Паскаля»). Автор мови – Ніклаус Вірт створив його у 1970 році як інструмент для навчання студентів навичкам програмування. З кожною версією в мову Паскаль додавалися нові можливості. Перше діалогове середовище підготовки та виконання програм на мові Паскаль було створено у 1983 році.
Вступ
І. Алгоритмічна мова Паскаль
1. Загальні відомості про мову Паскаль
2. Типи даних
3. Структура програми мовою Паскаль
II. Програми, виконані на мові Паскаль
1. Меню, яке відкриває всі наступні програми
a) код меню;
b) робота меню.
2. Задача 1.
a) умова задачі
b) блок-схема
c) код програми
d) робота програми
3. Задача 2.
a) умова задачі
b) блок-схема
c) код програми
d) робота програми
4. Задача 3.
a) умова задачі
b) блок-схема
c) код програми
d) робота програми
Використана література
3. Код програми
program matrix;
uses crt;
var n:integer;
m:array[1..100,1..100] of integer;
i,j:integer;
begin
clrscr;
writeln ('vvedite razmernost matricu n*p');
writeln ('n=');
readln (n);
writeln('tak vuglyadit matrica');
for i:=1 to n do
for j:=1 to i do
begin
m[i,j]:=i-j+1;
m[j,i]:=m[i,j];
end;
for i:=1 to n do
begin
for j:=1 to n do write(m[i,j],' ');
writeln;
end;
readln;
end.
4. Виконання програми
ЗАДАЧА 3.
1. Умова задачі
26. Знайти у заданій послідовності слова, що містять групи літер ba, ma. Замінити малі літери в цих словах однойменними великими.
2. Блок-схема
3. Код програми
program ba_ma_searching;
uses crt;
var
s, s1, s2: String;
i, j, n: Integer;
begin
clrscr;
writeln('Input string with words:'); readln(s);
s:=s+' ';
n:=0; i:=1;
while i<=Length(s) do
begin
s1:='';
while s[i]<>' ' do
begin
s1:=s1+s[i];
i:=i+1;
end;
j:=0;
if pos('ba',s1)>0 then j:=pos('ba',s1);
if pos('ma',s1)>0 then j:=pos('ma',s1);
if j>0 then
begin
writeln(s1);
s1[j]:=UpCase(s1[j]); s1[j+1]:=UpCase(s1[j+1]);
s2:=s2+' '+s1;
n:=n+1;
end;
i:=i+1;
end;
if n>0 then
begin writeln('New string:'); writeln(s2); end
else writeln('No wanted words found!');
readln
end.
4. Код програми
Використана література:
1. Н. Вирт. Алгоритмы + структуры даннях = программы.М.: Мир, 1985.-406 с.
2. Ковалюк Т.В. Основи програмування та алгоритмічні мови.-К.: Видавнича група BHV, 2005.-384 с.
3. Окулов С.М. Программирование в алгоритмах.- М.: Бином, Лаб. базовых знаний, 2002.-341 с.
4. Кнут Д. Искусство программирования.-Т.З. Сортировка и поиск.-М.: Вильямс, 2004.-703 с.
5. Немнюгин С.А. Turbo Pascal: Практикум.-СПб.:Питер, 2003.-256 с.
6. Методичні вказівки до виконання лабораторних робіт. КНУКіМ, кафедра комп’ютерних наук.
13
Информация о работе Основи програмування та алгоритмічні мови