Автор работы: M*********@mail.ru, 28 Ноября 2011 в 14:03, реферат
Паскаль тілін 1970 жылы швецария ғалымы Николас Вирт ойлап тапқан және оны VII ғасырда өмір сүрген француз ғалым-философы Блэз Паскальдің құрметіне PASCAL деп атаған болатын. Қазіргі кезде Паскаль программалау тілінің көптеген версиялары бар және олар бір-бірімен сәйкес келе бермейді.
Блэз Паскаль 1623 жылы францияның Клермон-Ферран қаласында өмірге келген. Оның қабілете жас кезінде көбінесе математика саласынан көп көріне бастаған. Ол 1662 жылы дүниеден қайтқан соң бүкіл әлемде ұлы маематик ретінде қалды. Математикадан басқа Паскальдің таланты физика, философия, әдебиеттану мақсатында есептеу машинасын ойлап тапты. Оның әкесі салық жинаушы болғандықтан бұл машина есептеу жұмыстарында өте қажетті болды.
1) Жүктеу түрлері. ТР ортасында жұмыс жасаудың негізгі жолдары. Программа мәтінін редакторлеу, өңдеу процессі.
Программаны редакторлеу, өңдеу командаларын Pascal-дің командалық менюі көмегімен орындап үйрену. Программаны құрастыру. Оның бөлімдері. Бөлімдерін сипаттау. Программаның әрбір бөлімінің атқаратын қызметі.
Begin тақырыбына арналған есептер.
Меншіктеу, енгізу, шығару командаларын пайдаланып қарапайым программаларды құрастыру. Read, Readln, Write, Writeln командалары.
Тармақталу командалары. Құрама операторлар.
Құрама шарттар. Мәтіндік шарттар. Таңдау командасы.
Шарттың алдында қойылатын циклдарды ұйымдастыру. While do циклдағы құрама операторлар. Шарттың соңында қойылатын Until, Repeat циклдарын ұйымдастыру.
Циклдағы құрама операторлар For, to, do операторлары.
Бір өлшемді массивтер. Матрицалар.
Функциялар және Процедуралар.
Қатарлар.
Графика.
Графиктік режимде текст шығару процедуралары.
Есептер шығрау.
line(200,100,185,125);
line(200,100,200,125);
line(200,100,215,125);
circle(170,150,10);
circle(230,150,10);
line(166,150,174,150);
line(226,150,234,150);
line(200,175,185,200);
line(185,200,215,200);
line(215,200,200,175);
line(200,260,150,220);
line(200,260,250,220);
line(150,220,250,220);
readln;
end.
5)сағат
Program sagat;
uses graphabc;
var tw,th,gd,gm:integer;
s:
string;
begin
gd:=0;
gm:=0;
line(235,135,135,255);
line(235,135,335,255);
circle(235,25,10);
circle(235,135,100);
line(235,135,235,85);
line(235,135,270,135);
s:='12';
SetWindowSize(700,300);
SetFontName('arial');
SetFontSize(10);
tw:=TextWidth(s);
th:=TextHeight(s);
TextOut((WindowWidth-tw) div 3,(WindowHeight-th) div 5,s);
s:='9';
SetWindowSize(700,300);
SetFontName('arial');
SetFontSize(10);
tw:=TextWidth(s);
th:=TextHeight(s);
TextOut((WindowWidth-tw) mod 275,(WindowHeight-th) mod 165,s);
s:='3';
SetWindowSize(700,300);
SetFontName('arial');
SetFontSize(10);
tw:=TextWidth(s);
th:=TextHeight(s);
TextOut((WindowWidth-tw) mod 369,(WindowHeight-th) mod 165,s);
readln;
end.
6) велик
Program lll;
uses graphabc;
var gd,gm:integer;
begin
gd:=0;
gm:=0;
rectangle(100,150,130,
circle(105,205,28);
circle(215,205,7);
circle(295,205,28);
line(115,155,215,205);
line(135,165,265,165);
line(135,165,105,205);
line(105,205,215,205);
line(105,205,95,175);
line(95,175,128,175);
line(295,205,250,145);
line(240,155,260,135);
line(215,205,273,175);
readln;
end.
7) Telepfon.
Program lll;
uses graphabc;
var gd,gm:integer;
begin
gd:=0;
gm:=0;
circle(200,200,150);
circle(200,200,20);
circle(200,75,20);
circle(155,81,20);
circle(245,81,20);
circle(115,105,20);
circle(285,105,20);
circle(85,145,20);
circle(315,145,20);
circle(75,200,20);
circle(325,200,20);
circle(85,245,20);
circle(115,290,20);
line(350,350,250,250);
line(400,350,250,250);
line(350,350,400,350);
line(325,190,325,210);
line(310,135,310,155);
line(320,135,320,155);
line(285,95,285,115);
line(240,71,240,91); line(245,71,250,91); line(255,71,250,91);
line(195,65,200,85); line(205,65,200,85);
line(145,71,150,91); line(155,71,150,91); line(160,71,160,91);
line(105,95,110,115);
line(120,95,120,115); line(125,95,125,115);
line(70,135,75,155);
line(85,135,85,155); line(90,135,90,155); line(95,135,95,155);
line(70,190,70,210); line(75,190,85,210); line(75,210,85,190);
circle(85,245,10);
readln;
end.