SkyDriver
Would like my bananna ?
- Член од
- 31 јули 2008
- Мислења
- 2.140
- Поени од реакции
- 221
Паскал (програмски јазик)
Паскал (англиски Pascal) е современ програмски јазик, развиен во 70-тите години на минатиот век. За негов автор се смета швајцарскиот математичар Никлаус Вирт (Niklaus Wirth). Јазикот го добил името по францускиот математичар и хуманист од XVII век Блез Паскал (Blaise Pascal), кој ја конструирал првата машина за сметање.
Паскал е едноставен јазик, лесен за учење, разбирлив и со добра организација. Тој е тесно поврзан со поимот структурно програмирање, бидејќи е прв програмски јазик што овозможува структурно програмирање.
Јазикот Паскал располага со структури што овозможуваат природна логика на програмирање, со што се добиваат добро организирани (структурирани) програми. Тој содржи голем број управувачки наредби и голем број вградени функции и процедури, како и можност за дефинирање сопствени типови податоци од страна на програмерот. Паскал е погоден и за јасно и разбирливо опишување на алгоритми, што овозможува негово користење и во други области, а не само за програмирање.
Денес, Паскал има широка примена. Тој се користи во образованието за изучување на програмирањето како научна дисциплина, за прегледно запишување на разни алгоритми, за решавање на математички и на технички проблеми, за изработка на апликативни програми, за графичка анимација и друго. Мошне погоден е за почетници во програмирањето, бидејќи има многу лесна синтакса и ги содржи сите основни работи што му требаат на еден почетник за да разбере како функционира структурното програмирање, иако нема толку голема примена како некои други јазици (како Це, Јава и др.).
Hello World во Паскал
Hello World е многу прост пример за програма и најчесто е наведена како прва почетничка програма во прирачниците за програмски јазци. Се состои само од најважните елементи без коишто не може да се изврши програмата и печати низа од знаци: „Hello, World!“ (целта може да се постигне и со „Здраво!“, наместо англиското „Hello World“). Вака изгледа Hello World во Паскал:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Копајки низ компјутеров најдов неколку решени задачи, појма неам кој ги има пишувано, али чим ги ставил јавно на некој сајт/форум се надевам дека не е на одмет да ги постирам и тука.
Доколку авторот на следните кодови е член на форумов нека се јави
1. Да се внесат три броја и да се најде најголемиот од нив.
3. Да се внесе вредност за аголот алфа и да се одреди дали е тап, прав или остар агол.
4. Да се внесе број помал од 10 и да се провери дали тој број е прост и дали е делив со 2 и 3.
5. Да се внесат 2 броја и еден оператор и да се отпечати резултатот од соодветната операција (+,-,*,/)
6. Да се најде збирот на првите 5 броја
7. За внесениот број n да се пресмета вредноста на изразот s=1+1/2+1/3+...+1/n
8. Да се пресмета аритметичка средина на природните броеви до внесениот број n.
9. Да се внесе број n и да се пресмета збирот на неговите цифри.
10. Да се внесе број n и да се прикаже колку цифри има.
http://pascalprogramming.byethost15.com/
http://library.thinkquest.org/27297/
http://www.geocities.com/SiliconVall.../pasles00.html
http://www.taoyue.com/tutorials/pascal/
http://www.algonet.se/~khaan/tutor/index.html
http://www.geocities.com/SiliconVall...444/pstart.htm
Паскал (англиски Pascal) е современ програмски јазик, развиен во 70-тите години на минатиот век. За негов автор се смета швајцарскиот математичар Никлаус Вирт (Niklaus Wirth). Јазикот го добил името по францускиот математичар и хуманист од XVII век Блез Паскал (Blaise Pascal), кој ја конструирал првата машина за сметање.
Паскал е едноставен јазик, лесен за учење, разбирлив и со добра организација. Тој е тесно поврзан со поимот структурно програмирање, бидејќи е прв програмски јазик што овозможува структурно програмирање.
Јазикот Паскал располага со структури што овозможуваат природна логика на програмирање, со што се добиваат добро организирани (структурирани) програми. Тој содржи голем број управувачки наредби и голем број вградени функции и процедури, како и можност за дефинирање сопствени типови податоци од страна на програмерот. Паскал е погоден и за јасно и разбирливо опишување на алгоритми, што овозможува негово користење и во други области, а не само за програмирање.
Денес, Паскал има широка примена. Тој се користи во образованието за изучување на програмирањето како научна дисциплина, за прегледно запишување на разни алгоритми, за решавање на математички и на технички проблеми, за изработка на апликативни програми, за графичка анимација и друго. Мошне погоден е за почетници во програмирањето, бидејќи има многу лесна синтакса и ги содржи сите основни работи што му требаат на еден почетник за да разбере како функционира структурното програмирање, иако нема толку голема примена како некои други јазици (како Це, Јава и др.).
Hello World во Паскал
Hello World е многу прост пример за програма и најчесто е наведена како прва почетничка програма во прирачниците за програмски јазци. Се состои само од најважните елементи без коишто не може да се изврши програмата и печати низа од знаци: „Hello, World!“ (целта може да се постигне и со „Здраво!“, наместо англиското „Hello World“). Вака изгледа Hello World во Паскал:
Код:
program HelloWorld(output);
begin
writeln('Hello, World!')
end.Копајки низ компјутеров најдов неколку решени задачи, појма неам кој ги има пишувано, али чим ги ставил јавно на некој сајт/форум се надевам дека не е на одмет да ги постирам и тука.
Доколку авторот на следните кодови е член на форумов нека се јави
1. Да се внесат три броја и да се најде најголемиот од нив.
2. Да се внесе трицифрен број и да се прикаже неговата средна цифра.
Код:
program dejaaan2;
uses wincrt;
var broj,x:integer;
begin
write('Vnesi tricifren broj: ');
read(broj);
writeln(' ');
if ((broj>999) or (broj<100)) then
writeln('Greska! Brojot mora da e tricifren!')
else
begin
x:=broj div 10;
writeln('Sredna cifra na brojot ',broj,' e ',x mod 10);
end
end.
Код:
program dejaaan3;
uses wincrt;
var agol:integer;
begin
write('Vnesete vrednost za agolot alfa: ');
read(agol);
writeln(' ');
if agol=90 then
writeln('Agolot e prav.')
else
begin
if agol<90 then
writeln('Agolot e ostar.')
else
writeln('Agolot e tap.');
end
end.
Код:
program dejaaan4;
uses wincrt;
var broj:byte;
begin
write('Vnesi broj pomal od 10: ');
read(broj);
writeln(' ');
if broj>10 then
writeln('Greska! Brojot mora da e pomal od 10!')
else
begin
if ((broj=1) or (broj=2) or (broj=3) or (broj=5) or (broj=7)) then
writeln('Brojot e prost.')
else
writeln('Brojot e slozen.');
if broj mod 2=0 then
writeln('Brojot e deliv so 2.')
else
writeln('Brojot ne e deliv so 2.');
if broj mod 3=0 then
writeln('Brojot e delliv so 3.')
else
writeln('Brojot ne e deliv so 3.');
end
end.
Код:
program dejaaan5;
uses wincrt;
var x,y:real;
operator:char;
begin
write('Prv broj: ');
readln(x);
write('Vtor broj: ');
readln(y);
write('Operator: ');
readln(operator);
case operator of
'+': writeln('Zbir: ',x+y:5:2);
'-': writeln('Razlika: ',x-y:5:2);
'*': writeln('Proizvod: ',x*y:5:2);
'/': writeln('Kolicnik: ',x/y:5:2);
else writeln('Greska.');
end;
end.
Код:
program dejaaan6;
uses wincrt;
var broj,zbir:integer;
begin
broj:=1;
zbir:=0;
while (broj<=5) do
begin
zbir:=zbir+broj;
broj:=broj+1;
end;
writeln('Zbir: ',zbir);
end.
Код:
program dejaaan7;
uses wincrt;
var n,s,broj,x:integer;
begin
write('n=');
readln(n);
broj:=1;
s:=0;
while (broj<=n) do
begin
x:=1/broj;
s:=s+x;
broj:=broj+1;
end;
writeln('s=',s);
end.
Код:
program dejaaan8;
uses wincrt;
var n,broj,zbir:integer;
a:real;
begin
write('n=');
readln(n);
broj:=1;
zbir:=0;
while (broj<=n) do
begin
zbir:=zbir+broj;
broj:=broj+1;
end;
a:=zbir/n;
writeln('Aritmeticka sredina na broevite do ',n,' e: ',a:5:2);
end.
Код:
program dejaaan9;
uses wincrt;
var n,broj,zbir,cifra:integer;
begin
write('n=');
readln(n);
zbir:=0;
broj:=n;
while (n<>0) do
begin
cifra:=n mod 10;
n:=n div 10;
zbir:=zbir+cifra;
end;
writeln('Zbir na cifrite na brojot ',broj,' e: ',zbir);
end.
Код:
program dejaaan10;
uses wincrt;
var n,broj,cifri,cifra:integer;
begin
write('n=');
read(n);
broj:=n;
cifri:=0;
writeln(' ');
while (n<>0) do
begin
cifra:=n mod 10;
n:=n div 10;
cifri:=cifri+1;
end;
writeln('Brojot ',broj,' ima ',cifri,' cifri.');
end.http://library.thinkquest.org/27297/
http://www.geocities.com/SiliconVall.../pasles00.html
http://www.taoyue.com/tutorials/pascal/
http://www.algonet.se/~khaan/tutor/index.html
http://www.geocities.com/SiliconVall...444/pstart.htm
:kesa:
