Паскал - Pascal

[Dzish]

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

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

 

[No Name :)]

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

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

 

[Intex]

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

Благодарам однапред :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]

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

Благодарам однапред :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]

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

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

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

 

[Болиглава]

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

 

[Intex]

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

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

 

[Болиглава]

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

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

 

[zlxlclvlbln]

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

http://www.freepascal.org/

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

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

 

[acce]

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

 

[Intex]

Ај ако може некој да ја реши следнава задача во паскал...
од дадената низа: 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]

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

Оваа работи

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.

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

 

[SkyDriver]

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

Вака:

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

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

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

П.С. Исто така и долниот код од 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.

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

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

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

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

 

[Jordan Rudess]

Вака:

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

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

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

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



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

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

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

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

 

[acce]

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

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