Results 1 to 6 of 6
Thread: Ïðîáëåì ñ Ïàñêàë
Hybrid View
-
6th November 2010 12:29 #1Registered User
Join Date: Oct:2010
Location: Vidin
Posts: 8
Ïðîáëåì ñ Ïàñêàë
Ïðîáëåìà ìè å, ÷å ïðîãðàìàòà îáðàáîòâà ñàìî ïúðâèÿ ðåä. Çàùî íå ìèíàâà ïðåç âñè÷êè?
type danni=real;
mas1=array [1..40] of danni;
mas2=array [1..40,1..4] of danni;
var i,j,m,n,br1,br2,k,c:integer;
A:mas2;
dv:mas1;
Begin
write ('zadaite broya na redovete:'); readln (m);
write ('zadaite broya na stalbovete:'); readln (n);
for i:=1 to m do
for j:= 1 to n do
begin
write ('zadaite elementa ot',i,' -i red i ',j,' -i stalb:');
readln (A[i,j]);
end;
BEGIN
br1:=0;
br2:=0;
c:=0;
for i:=1 to 4 do
begin
for j:=2 to 4 do
if a[i,j]=2 then c:=c+1;j:=j+1;
case c of
1:br1:=br1+1;
2:br2:=br2+1;
3:dv[k]:=a[i,1];
end;
end;
end;
writeln ('1 dvoika-',br1:2,',2 dvoiki-',br2:2,',3 dvoiki-',dv[k]);
readln;
end.
-
7th November 2010 21:12 #2Registered User
Join Date: May:2008
Location: bguddd
Posts: 108
Àìè äàé ìàëêî îò óñëîâèåòî íà çàäà÷àòà , äà òè êàæåì êàêâî äà áúäå.
Êàê äà ãàäàÿ êàêâî òî÷íî èñêàø äà ïðàâè ïðîãðàìàòà?!
Èíà÷å ïðè ìåí ðàáîòè , íå äàâà ãðåøêè , ìèíàâà ïðåç âñè÷êè ðåäîâå , è íàêðàÿ èçïèñâà
ðåçóëòàò .
-
8th November 2010 20:30 #3Registered User
Join Date: Oct:2010
Location: Vidin
Posts: 8
"Çà ê ñòóäåíòà ñà çàäàäåíè: ôàêóëòåòåí íîìåð, îöåíêà ïî ôèçèêà, îöåíêà ïî ìàòåìàòèêà è îöåíêà ïî ÏÈÈÊ. Äà ñå ñúñòàâè àëãîðèòúì çà îïðåäåëÿíå áðîÿ íà ñòóäåíòèòå ñ ïî åäíà äâîéêà, áðîÿ íà ñòóäåíòèòå ñ ïî äâå äâîéêè è çà èçâåæäàíå ôàêóëòåòíèòå íîìåðà íà ñòóäåíòèòå, êîèòî èìàò ïî òðè äâîéêè." Oò êóðñîâàòà ìè çàäà÷à å, êîÿòî áÿõ ïèñàë ïðåäè âðåìå òóê. Èíà÷å íå ñúì ãî ïèñàë, çàùîòî åäèíñòâåíèÿ ìè ïðîáëåì å ñ òîâà, ÷å íå îáðàáîòâà âñè÷êè ðåäîâå, à ñàìî ïúðâèÿ. Âúçìîæíî ëè å äà å îò íÿêàêâà íåñúâìåñòîìîñò ñ Óèíäîóñ 7? Ïîëçâàì Free Pascal 2.4.
-
9th November 2010 00:09 #4Registered User
Join Date: May:2008
Location: bguddd
Posts: 108
Àìè ïðè ìåí ñè ðàáîòè , ò.å. ìèíàâà âñè÷êè ðåäîâå , âúâåæäàò ñå äàííèòå çà ìàñèâèòå è ïîñëå èçêàðâà ðåçóëàò. À äàëè ðàáîòè ïðàâèëíî , òîâà å äðóã âúïðîñ

Àêî èñêàø ðåøåíèå , ùå òè äàì ñàìî êàæè .
Èíà÷å àç ñúì íà Win ÕÐ è Òóðáî ïàñêàë 7
-
9th November 2010 00:33 #5Registered User
Join Date: Oct:2010
Location: Vidin
Posts: 8
Ìè íå áèõ îòêàçàë è òâîÿ âåðñèÿ. Ïîíå ìè ñòàâà èíòåðåñíî äà ÷åòà êîäà. È ìåðñè çà ïîìîùà
-
9th November 2010 23:49 #6Registered User
Join Date: May:2008
Location: bguddd
Posts: 108
Code:program Project2; uses crt; Const Max=100 ; Type TStudent=record F_Number:integer; Fizika:integer; Math:integer; Piik:integer; Broj_2:integer; end; var k,i,ONE_2,TWO_2:integer; Student:array[1..max] of TStudent; Begin Clrscr; Write('Vavedete broia na Studentite K='); Read(k); writeln; for i := 1 to k do begin Writeln('Stud No:',i); Write('Fac.Nomer:'); readln(Student[i].F_Number); Write('O_Fizika:'); readln(Student[i].Fizika); if Student[i].Fizika=2 then Inc(Student[i].Broj_2); Write('O_Matematika:'); readln(Student[i].Math); if Student[i].Math=2 then Inc(Student[i].Broj_2); Write('O_Piik:'); readln(Student[i].Piik); if Student[i].Piik=2 then Inc(Student[i].Broj_2); Writeln; end; ONE_2:=0; TWO_2:=0 ; for i :=1 to k do case Student[i].Broj_2 of 1: inc(ONE_2); 2: inc(TWO_2); end; Writeln('Broj Studenti s edna 2-ka:',ONE_2) ; Writeln('Broj Studenti s dwe 2-ki:',TWO_2) ; Readln; Writeln('Spisyk na studentite s po tri 2-ki:') ; for i :=1 to k do if Student[i].Broj_2=3 then Writeln('Fac_nomer:',Student[i].F_Number) ; readln; End.




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè