Results 1 to 6 of 6

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.

  2. #2
    Registered User
    Join Date: May:2008
    Location: bguddd
    Posts: 108
    Àìè äàé ìàëêî îò óñëîâèåòî íà çàäà÷àòà , äà òè êàæåì êàêâî äà áúäå.
    Êàê äà ãàäàÿ êàêâî òî÷íî èñêàø äà ïðàâè ïðîãðàìàòà?!
    Èíà÷å ïðè ìåí ðàáîòè , íå äàâà ãðåøêè , ìèíàâà ïðåç âñè÷êè ðåäîâå , è íàêðàÿ èçïèñâà
    ðåçóëòàò .

  3. #3
    Registered User
    Join Date: Oct:2010
    Location: Vidin
    Posts: 8
    "Çà ê ñòóäåíòà ñà çàäàäåíè: ôàêóëòåòåí íîìåð, îöåíêà ïî ôèçèêà, îöåíêà ïî ìàòåìàòèêà è îöåíêà ïî ÏÈÈÊ. Äà ñå ñúñòàâè àëãîðèòúì çà îïðåäåëÿíå áðîÿ íà ñòóäåíòèòå ñ ïî åäíà äâîéêà, áðîÿ íà ñòóäåíòèòå ñ ïî äâå äâîéêè è çà èçâåæäàíå ôàêóëòåòíèòå íîìåðà íà ñòóäåíòèòå, êîèòî èìàò ïî òðè äâîéêè." Oò êóðñîâàòà ìè çàäà÷à å, êîÿòî áÿõ ïèñàë ïðåäè âðåìå òóê. Èíà÷å íå ñúì ãî ïèñàë, çàùîòî åäèíñòâåíèÿ ìè ïðîáëåì å ñ òîâà, ÷å íå îáðàáîòâà âñè÷êè ðåäîâå, à ñàìî ïúðâèÿ. Âúçìîæíî ëè å äà å îò íÿêàêâà íåñúâìåñòîìîñò ñ Óèíäîóñ 7? Ïîëçâàì Free Pascal 2.4.

  4. #4
    Registered User
    Join Date: May:2008
    Location: bguddd
    Posts: 108
    Àìè ïðè ìåí ñè ðàáîòè , ò.å. ìèíàâà âñè÷êè ðåäîâå , âúâåæäàò ñå äàííèòå çà ìàñèâèòå è ïîñëå èçêàðâà ðåçóëàò. À äàëè ðàáîòè ïðàâèëíî , òîâà å äðóã âúïðîñ
    Àêî èñêàø ðåøåíèå , ùå òè äàì ñàìî êàæè .
    Èíà÷å àç ñúì íà Win ÕÐ è Òóðáî ïàñêàë 7

  5. #5
    Registered User
    Join Date: Oct:2010
    Location: Vidin
    Posts: 8
    Ìè íå áèõ îòêàçàë è òâîÿ âåðñèÿ. Ïîíå ìè ñòàâà èíòåðåñíî äà ÷åòà êîäà. È ìåðñè çà ïîìîùà

  6. #6
    Registered 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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè