Автор работы: Пользователь скрыл имя, 13 Ноября 2013 в 12:09, курсовая работа
Данная курсовая работа была разработана на языке программирования Pascal. Pascal является одним из самых распространенных в мире алгоритмических языков. Он характеризуется широкими возможностями, хорошо развитой библиотекой модулей, позволяющих использовать возможности операционной системы, создавать оверлейные структуры, организовывать ввод-вывод, форматировать графические изображения. Перед другими языками Паскаль имеет ряд преимуществ, такие как: краткость языка, легкость и простота процесса программирования, мобильность и компактность написанных программ, умение отлаживать программы.
ВВЕДЕНИЕ………………………………………………………………………3
ГЛАВА I. Типы данных………………………………………………………....5
2.1. Целые типы…………………………………………………...6
2.2. Вещественные типы……………………………………….….8
2.3. Логический тип………………………………………….…....11
2.4. Символьный тип……………………………………………….11
2.5. Строковый тип…………………………………………………12
ГЛАВА II. Разветвленный алгоритм……………………………………………14
1.1. Общее понятие ……………………………….………………..14
1.2.Виды разветвленного алгоритма ………………..……………16
ЗАКЛЮЧЕНИЕ……………………………………………………………………22
ЛИТЕРАТУРА………………………………………
Var s,m:integer;
Begin
Readln(s);
If s>=0 then begin m:=sqrt(s); k:=s+5; end;
Else m:=s*2;
Writeln(m);
End.
Пример 5. Дано натуральное число Н. Если число Н принадлежит [5;15], то найти целую часть от деления на 5, иначе – остаток от деления.
VAR h, m: integer;
BEGIN
READLN (h);
IF (H>=5) and (H<=15)
THEN m:=h div 5
ELSE m:=h mod 5;
WRITELN (m);
END.
Пример 6. Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным.
Program sum3;
Var a, b, c: real;
Begin
Readln ( a, b,с );
If (a*a + b*b = c*c) then writeln (‘треугольник прямоугольный’)
else writeln (‘не прямоугольный’);
Readln;
End.
Пример 7. Напишите программу, которая по введенному номеру месяца выводит сообщение о том, какое сейчас время года.
Var n:integer;
Begin
Readln(n);
If (n>=3 and n<=5) then writeln(“Vesna”) else
If (n>=6 and n<=8) then writeln(“Leto”) else
If (n>=9 and n<=11) then writeln(“Osen”) else writeln(“Zima”);
Readln;
End;
Пример 8. Найти минимальное из трёх введённых чисел.
PROGRAM minimum;
VAR a,b,c,min: integer;
BEGIN
READLN (a,b,c);
IF (a<b and a<c) then min:=a;
IF (b<a and b<c) then min:=b;
IF (c<b and c<a) then min:=c;
WRITELN (min);
END.
Пример 9. Составьте программу вычисления дней в месяце с учетом високосного года.
Var k,m,c: real;
Begin
Writeln(“Введите год”);
Readln ( k);
Writeln(“введите порядковый номер месяца”);
Readln ( k);
If ((k mod4=0) and (k mod 4<>0 ) or (k mod400=0)) then c:=1; //год високосный
if (m=2 and c=2) then writeln(“28 дней“);
else if (m=2 and c=1) then writeln(“29 дней“);
if (m=4 or m=6 or m=9 or m=11) then writeln(“30 дней”);
else if (m=1 or m=3 or m=5 or m=7 or m=8 or m=10 or m=12) then writeln(“31 дня”);
Readln;
End.
Пример 10. Напишите программу, переводящую время, указанное в минутах, во время в часах и минутах.
Var min, min2, hour:real;
Readln(min); // Пишем время в минутах
If min>60 then Hour:=min div 60;
Min2:=min-60*min;
Writeln(Hour,“ часов ”, Min2, “ минут ”);
Readln;
End.
Заключение
В данной курсовой работы были рассмотрены основные типы данных: целые, вещественные, логический, символьный и строковый. Исследовано понятие разветвленного алгоритма. Изучены структуры алгоритмов с полным и неполным ветвлениями. Написано несколько программ с разветвленным алгоритмом. Все вышеприведенные программы запускались с различными наборами данных и ошибок не было выявлено.
В ходе курсовой работы были получены практические навыки программирования на языке паскаль.
Литература:
Информация о работе Основные типы данных. Разветвленный алгоритм»