Паскал - Pascal

  • Креатор на темата Креатор на темата SkyDriver
  • Време на започнување Време на започнување
Ај ако може некој да ми помогне? .......... Да се најде збирот на елементите на главната диагонала на матрицата.
 
значи првин внесуваш ред на матрицата, пошто мора да биде квадратна..... значи то нека биди n.

for i:=1 to n do
zbir:=a[i,i]+zbir;
 
Може ли цела да ми ја напишеш зашто сега повеќе ме збуни :)
Еве ти ја цела
Код:
 			 			[SIZE=4][COLOR=#000000]program zbirDijagonala;
			 
			var
			   i,j,n,zbir: Integer;
			   a: array [1..50,1..50] of Integer;
			 
			begin
   write('Vnesi red na matrica: ');
   readln(n);
			   for i := 1 to n do
			      for j := 1 to n do
			         Readln(a[i,j]);
 [/COLOR][/SIZE] 			[SIZE=4][COLOR=#000000]   for i := 1 to n do
			      for j := 1 to n do
			         writeln(a[i,j]);[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000]   zbir:=0;
[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000]   for i:=1 to n do[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000]      zbir:=a[i,i]+zbir;[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000]   writeln(zbir);[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000]readln;
[/COLOR][/SIZE]
[SIZE=4][COLOR=#000000] 			end. [/COLOR][/SIZE]
 
Ајмо заглавив, т.е. ја почнав, ама не ја ни компајлира, а се сомневам и дека логиката е таман.

Да се напише програма која ќе ги подреди броевите во матрицата од најмал кон најголем. Фала.:)
 
Помош луѓе ме напна задачава:vozbud::vozbud::vozbud: да се пресмета геометриска средина на н броеви, потсетување: ако има 6 елементи и тоа пример 1,2,3,4,5,6 , средината е 6 корен од 1*2*3*4*5*6. Хваља однапред :se_ molam:se_ molam
 
Здраво!
користам windows7, и сакав да инсталирам Pascal, меѓутоа не може да се стартува. Сега, ако некој знае да ми каже дали има некоја посебна постапка за да може pascal-от да се стартува на windows7 платформа, или друго е проблемот?
 
Како би се решила оваа задала во паскал да се пресмета колку години месеци и денови има некое лице
 
Помош околу ПАСКАЛ! PLEASE

Се работи за задача во паскал.Задачата претставува верижна дропка која гласи вака :
а = 1
___
2 + 3
____
4 + 5
____
6 + 7
____
8 + 9
_____
10
ние немаме решавано верижни дропки,но професорката рече кој ке ја реши оваа задача ке има 5..добар предизвик,нели? па ако може некој да помогне? задачата е за утре...ако има некој идеја како би се испрограмирало во паскал со while - do или for..
 
А малце поубаво да ја поставеше задачата пошто бар мене не ми е разбирлива вака
До 10 само ќе иде?
Што имаш во именител што во броител?

Вака на прв поглед ти треба еден фор циклус кој ќе зголемува две променливи
 
Се работи за задача во паскал.Задачата претставува верижна дропка која гласи вака :
а = 1
___
2 + 3
____
4 + 5
____
6 + 7
____
8 + 9
_____
10
ние немаме решавано верижни дропки,но професорката рече кој ке ја реши оваа задача ке има 5..добар предизвик,нели? па ако може некој да помогне? задачата е за утре...ако има некој идеја како би се испрограмирало во паскал со while - do или for..

Пријателе, седни и реши ја ако заслужвиш 5ка. Ако не, не вредит да ја имаш и биди задоволен со то шо имаш реална оцена. Мене нишо не би ми значела ваква петка ако друг ми го решит проблемов... Не сакам да звучам ко паметњакович ама така е...
 
Со FOR-TO-DO

Код:
PROGRAM Ubavina;
VAR n:integer;
   rez,m:real;
BEGIN
WriteLn('Presmetuvanje na verizna dropka od 1 do 10');
FOR n:=1 TO 10 DO
BEGIN
  n:=n+1;
  rez:= n / (n+1)+(n+2);
  m:=m+rez;
END;
 WriteLn('Rezultatot e:'m);
 ReadLn;
END.
Незнам што е тоа верижна дропка ... али според тоа што мислам еве
 
Со FOR-TO-DO

Код:
PROGRAM Ubavina;
VAR n:integer;
   rez,m:real;
BEGIN
WriteLn('Presmetuvanje na verizna dropka od 1 do 10');
FOR n:=1 TO 10 DO
BEGIN
  n:=n+1;
  rez:= n / (n+1)+(n+2);
  m:=m+rez;
END;
 WriteLn('Rezultatot e:'m);
 ReadLn;
END.
Незнам што е тоа верижна дропка ... али според тоа што мислам еве

n:=n+1 нека е под rez да да почнит од 1 програмава, вака почвит од 2. Не памтам точно во Паскал синтаксава ама во ваков фор вклучена е и 10ката?
 

Kajgana Shop

Back
На врв Bottom