Паскал - Pascal

[SkyDriver]

Може некој да ми ги реши задачиве
1.Да се напише програма која на сите полиња од матрицата кои се еднакви на 0, ќе ги пополни со број за еден поголем од претходниот.
2.Да се напише програма која сите редици од матрицата ќе ги направи колони и обратно ако m=n.

Фала однапред !

Друже, задачиве се ептен лесни... проба сам да ги решиш ?

Значи во првата задача...
Ако елементот од низата има вредност 0 тогаш тој елемент е еднаков на вредноста на претходниот елемент +1.

Пример:
Ако n = 0;
Тогаш: n = n[i-1]+1;
„i“ е бројачот.

Втората задачата:
Матрицата полни ја со:
for i++
for j++
novaMatrica[j] = staraMatrica[j]

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

 

[Intex]

Панда, ја ти ги задачите бе:

Првата:

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

Втората:

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

 

[Mr.Bombastic]

Панда, ја ти ги задачите бе:

Првата:



Втората:

Од Струмица ли си?

 

[Chapstick]

Од Струмица ли си?

Од струмица е

 

[pAnDa`]

Наше дете е. :smir:

 

[Intex]

Деца бе, ама со тај офтопик.
Модератор (кој и да е), бриши го моето и 2-3 мислења пред мене. Фала.

 

[Детелина]

сега почнав да учам прогамирање во паска(на школо) но дома го немам.Ќе може некој да ми каже како можам да го најдам или да го спуштам

 

[Intex]

сега почнав да учам прогамирање во паска(на школо) но дома го немам.Ќе може некој да ми каже како можам да го најдам или да го спуштам

Побарај кај чичко Гугл Free Pascal. Најдобар е тој за почеток. : )

 

[son_goku]

сега почнав да учам прогамирање во паска(на школо) но дома го немам.Ќе може некој да ми каже како можам да го најдам или да го спуштам

Vo uciliste sigurno go koristite Turbo Pascal 7.0. Pobaraj go na google i vednas ke go najdes.

 

[Cecio]

epa vidi vaka sega. Ja aber nemam od programirajne a mi treba programa da napram vo pascal za test. Ako mozi nekoj neka pomogni.

1.Да се состави програма во Pascal во која за 20 произволно внесени броја ќе се определува пооделно сумата на позитивните и сумата на негативните броеви.
2.Да се состави програма со која од непознат број внесени броеви ќе се одделуваат само броевите што се деливи со 3.

Odnapred fala

 

[Filmakedon]

epa vidi vaka sega. Ja aber nemam od programirajne a mi treba programa da napram vo pascal za test. Ako mozi nekoj neka pomogni.

1.Да се состави програма во Pascal во која за 20 произволно внесени броја ќе се определува пооделно сумата на позитивните и сумата на негативните броеви.
2.Да се состави програма со која од непознат број внесени броеви ќе се одделуваат само броевите што се деливи со 3.

Odnapred fala

1.

Program Kajgana_1;
VAR n,i,s,ss: integer;
BEGIN
for i:=1 to 20 do
Begin
Write('Vnesi broj, n= ');
Readln;
if (n<0) then s:=s+n
else ss:=ss+n;
End;
Writeln('Zbirot na pozitivni broevi e ',ss);
Writeln('Zbirot na negativni broevi e ',s);
Readln;
END.

2.

Program Kajgana_2;
VAR i,n,a: integer;
BEGIN
Write(Vnesi broj n= ');
Readln;
for i:=1 to n do
Begin
Write('Vnesi broj, a= ');
Readln(a);
if (a mod 3 = 0) then Writeln(a,' e deliv so 3');
End;
Readln;
END.

Задачите може да се решат и со низи од 20 или n члена :smir:

 

[Intex]

Како да направам бесконечна низа (Пр. 1234567891011121314....) и од низата да се отпечати N-тиот број?
Фала. :smir:

 

[acce]

Како да направам програм кој ќе ми ги подреди елементите во низата по опаѓачки или растечки редослед.. ве молам ако има некој шо знае нека ја искуца за утре за тест ми е...

 

[SkyDriver]

Како да направам програм кој ќе ми ги подреди елементите во низата по опаѓачки или растечки редослед.. ве молам ако има некој шо знае нека ја искуца за утре за тест ми е...

Претпостави дека N = должината на низата

VAR tmp: integer;
For i:=1 to N Do
Begin
For j:=2 to N Do
Begin
If niza[j] > niza[j-1] THEN BEGIN
tmp = niza[j]
niza[j] = niza[j-1]
niza[j-1] = tmp
END;
END;

Горниот код е за да ги подредиш од најголем кон најмал, а за обратно исто е кодот само смени го знакот кај if циклусот.

 

[emz]

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