Паскал - Pascal

Dzish · 10 декември 2009

emz напиша:
пошо е темава паскал ми треба помош!го инсталирав паскал баш пред некој ден и се беше ок фино си се програмираше!седнувам пак сеа после два дена знаците ми се сите испомешани!неможам заграда да става ми излага некој чуден знак!Help??

Да не користиш македонска поддршка? Паскал мислам дека ја нема поддршката за кирилица.

No Name :) · 13 декември 2009

здраво, дали ќе сака некој да ми помогне????
да се напише програма за пресметување на НЗС на два природни броја во паскал.

Благодарам однапред :wink:

Intex · 13 декември 2009

No Name :) напиша:
здраво, дали ќе сака некој да ми помогне????
да се напише програма за пресметување на НЗС на два природни броја во паскал.

Благодарам однапред :wink:

Еве ти ја:

Program Mirce;
Var M,N,NZD,NZS:integer;
Begin
WriteLn ('Vnesete gi M i N');
readln (M,N);
If M>N
then NZD:=N;
If N>M
then NZD:=M;
While (M MOD NZD<>0) Or (N MOD NZD<>0) Do
Begin
NZD:=NZD-1;
END;
NZS:=(M*N) DIV NZD;
WriteLn ('Nzs za ', M ,' i ', N ,' e ', NZS);
readln;
END.

Оваа ти е изведена со помош на НЗД, ама работи се како шо треба.

son_goku · 13 декември 2009

No Name :) напиша:
здраво, дали ќе сака некој да ми помогне????
да се напише програма за пресметување на НЗС на два природни броја во паскал.

Благодарам однапред :wink:

Еве рекурзивна функција за НЗД на два броја според алгоритмот на Евклид:

Function NZD(x, y :int64):int64;
Begin
if y = 0
then NZD := x
else NZD := NZD(y, x mod y);
End;

НЗС ќе ти биде еднакво на: x*y/NZD(x,y);

Jax Rebel · 20 декември 2009

Состави програма која од дадена низа а формира низа б со елементите на низата а во растечки редослед! :toe:

И оваа со функција или процедура:

Состави програма која содржи подпрограма за влез на низа. Програмата пресметува збир на реципрочни вредности на елементите на низата!

Болиглава · 21 декември 2009

Вака, спуштив Турбо Паскал 7.0 сите фајлој се внатре од ко ќе го екстрахирам, арно ама при пуштање на turbo.exe викат дека ми фалел фајлот turbo.tpl(а тука е) и не и при компајлирање ми се јавуват Error 15 file not found (system.TPU). Чаре?

Intex · 21 декември 2009

Болиглава напиша:
Вака, спуштив Турбо Паскал 7.0 сите фајлој се внатре од ко ќе го екстрахирам, арно ама при пуштање на turbo.exe викат дека ми фалел фајлот turbo.tpl(а тука е) и не и при компајлирање ми се јавуват Error 15 file not found (system.TPU). Чаре?

А да спуштиш Free Pascal? Тој го иам јас и не ми прави проблеми.

Болиглава · 21 декември 2009

Др. Кулен напиша:
А да спуштиш Free Pascal? Тој го иам јас и не ми прави проблеми.

Дај линк нешо, извини шо те мачам вака, ама искинав живци вечерва со ова.

zlxlclvlbln · 21 декември 2009

Болиглава напиша:
Дај линк нешо, извини шо те мачам вака, ама искинав живци вечерва со ова.

http://www.freepascal.org/

Ова е компајлер со дебагер, а како развојна околина (IDE - тоа каде што го пишуваш кодот и дебагираш) има иста на изглед како со Turbo Pascal.

Во иднина ќе ти притреба подобро IDE, такво е Lazarus.

acce · 21 декември 2009

Ај ако може некој да ја реши следнава задача во паскал...
од дадената низа: 1 2 3 4 5 6 да се добие нова низа од истите елементи во различен редослед.. односно: 1 6 2 5 3 4(прв, последен, втор, претпоследен...)

Intex · 22 декември 2009

acce напиша:
Ај ако може некој да ја реши следнава задача во паскал...
од дадената низа: 1 2 3 4 5 6 да се добие нова низа од истите елементи во различен редослед.. односно: 1 6 2 5 3 4(прв, последен, втор, претпоследен...)

Не ми е тестирана, ама би требало да работи.

Еве го кодот:

Program Mirce;
Var N,A,D:integer;
B,C:array [1 .. 32167] of integer;
Begin
WriteLn ('Vnesete gi dimenziite na nizata');
readln (N);
For A:=1 to N Do
Begin
WriteLn ('Vnesete ja vrednosta ne elementot');
readln (B[A]);
D:=A;
C[D]:=B[A]
END;
For A:=2 to N Do
Begin
D:=D+1;
WriteLn (B[A-1]);
WriteLn (C[D-1]);
D:=D-1;
END;
readln;
END.

Jordan Rudess · 22 декември 2009

Ice_Hendrix напиша:
Состави програма која од дадена низа а формира низа б со елементите на низата а во растечки редослед!

Оваа работи

Код:

program Niza_vo_rastechki_redosled;
uses crt;
var
a: array[1..50] of Integer;
i, j,n, t: Integer;

begin
clrscr;
write ('vnesi go brojot na chlenovi na nizata n=');readln(n);
for i:=1 to n do
begin
write ('a[',i,']='); readln(a[i]);
end;

for i := 1 to n do
for j := i + 1 to n do
if a[i] > a[j] then
begin
t := a[i];
a[i] := a[j];
a[j] := t;
end;

for i := 1 to n do
writeln(i,': ',a[i]);
readln
end.

Само уште да можеше некој да ми ја пообјасни :toe:

SkyDriver · 22 декември 2009

Ice_Hendrix напиша:
Состави програма која од дадена низа а формира низа б со елементите на низата а во растечки редослед!
!

Вака:

фор циклус кој ќе почнува од 0 и ќе оди до должината на низата
уште еден фор циклус со бројач „j“ кој ќе почнува од 1 и ќе оди до должината на низата
ако елементот ј е помал од елементот ј-1
тогаш
привремена променлива = елементот ј
елементот ј = елементот ј-1
елементот ј-1 = привремената променлива

Значи со ова ги поместуваш елементите такашто елементите со помала вредност одат накај почетокот на низата, а оние со поголема вредност одат кон крајот на низата со што на крај ќе добиеш сортирана низа почнувајки од најмалиот па се до најголемиот број.

Е сега пробај сам објаснетото да го претвориш во код за да можеш да го сватиш, ако заглавиш кажи и ќе ти пишам и код.

П.С. Исто така и долниот код од Jordan Rudess мислам дека работи како што треба.

Jordan Rudess напиша:

Оваа работи

Код:

program Niza_vo_rastechki_redosled;
uses crt;
var
a: array[1..50] of Integer;
i, j,n, t: Integer;

begin
clrscr;
write ('vnesi go brojot na chlenovi na nizata n=');readln(n);
for i:=1 to n do
begin
write ('a[',i,']='); readln(a[i]);
end;

for i := 1 to n do
for j := i + 1 to n do
if a[i] > a[j] then
begin
t := a[i];
a[i] := a[j];
a[j] := t;
end;

for i := 1 to n do
writeln(i,': ',a[i]);
readln
end.

Само уште да можеше некој да ми ја пообјасни :toe:

Овој код вака работи...

елементот „i“ го споредува со останатите елементи од низата и ако елементот „i“ е поголем од некој елемент кај што се движи „j“ тогаш им ги заменува местата со што на крај ќе добиеш низа сортирана од најмалиот кон најголемиот.

Мислам дека добро објаснив.

Jordan Rudess · 22 декември 2009

SkyDriver напиша:
Вака:

фор циклус кој ќе почнува од 0 и ќе оди до должината на низата
уште еден фор циклус со бројач „j“ кој ќе почнува од 1 и ќе оди до должината на низата
ако елементот ј е помал од елементот ј-1
тогаш
привремена променлива = елементот ј
елементот ј = елементот ј-1
елементот ј-1 = привремената променлива

Значи со ова ги поместуваш елементите такашто елементите со помала вредност одат накај почетокот на низата, а оние со поголема вредност одат кон крајот на низата со што на крај ќе добиеш сортирана низа почнувајки од најмалиот па се до најголемиот број.

Е сега пробај сам објаснетото да го претвориш во код за да можеш да го сватиш, ако заглавиш кажи и ќе ти пишам и код.

П.С. Исто така и долниот код од Jordan Rudess мислам дека работи како што треба.

Овој код вака работи...

елементот „i“ го споредува со останатите елементи од низата и ако елементот „i“ е поголем од некој елемент кај што се движи „j“ тогаш им ги заменува местата со што на крај ќе добиеш низа сортирана од најмалиот кон најголемиот.

Мислам дека добро објаснив.

Ич те не разбирам, ама добро збориш :kesa:
Идем ја на функции и процедури да тумачим, овој другпут ќе се потрудим да го разберем. Фала што се потруди да ни објасниш :smir:

acce · 22 декември 2009

Др. Кулен напиша:
Не ми е тестирана, ама би требало да работи.
Еве го кодот:

не искача брат :S

Паскал - Pascal

Dzish

unlike any other...

No Name :)

Intex

Гостин

son_goku

Jax Rebel

Navajo Rider

Болиглава

A cold fact

Intex

Гостин

Болиглава

A cold fact

zlxlclvlbln

acce

Intex

Гостин

Jordan Rudess

Tonight's the night.

SkyDriver

Would like my bananna ?

Jordan Rudess

Tonight's the night.

acce

Kajgana Shop