pomooc s pascalom

Sekcia: Programovanie 06.05.2008 | 00:23
zuzycek   Návštevník
Prosim vas neviete mi pomoct s tymto: Zostavte program pre výpočet a tlač hodnôt funkcie y=(3-1,8x)/x, ak hodnoty x sú ukončené číslom 0.
    • Re: pomooc s pascalom 06.05.2008 | 00:51
      Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
      program PocitajNieco;
      uses crt;
      
      var
        x,y:real;
      begin
        while(true) do begin
          write('Zadaj X: ');
          readln(x);
          if(x=0) then break;
          y:=(3-1.8*x)/x;
          writeln('Y = ',y:2:4);
        end;
      end.
      
      Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
      • Re: pomooc s pascalom 06.05.2008 | 01:22
        Avatar Peter Valachovic Ubuntu 7.10  Používateľ
        mam pocit ze chcel ukoncene cislom 0 a nie rovne 0 :)
        • Re: pomooc s pascalom 06.05.2008 | 01:25
          Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
          vidis, tak to dopadne, ked necitam poriadne zadanie :)
          Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
    • Re: pomooc s pascalom 06.05.2008 | 01:26
      Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
      X su cele alebo realne cisla?
      Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
      • Re: pomooc s pascalom 06.05.2008 | 01:30
        Avatar Peter Valachovic Ubuntu 7.10  Používateľ
        skus vymyslet pre cele
        a potom ked sa budes nudit pre realne :) lebo nejako tusim riesenie len neviem jak to napisat v pascale:)
        • Re: pomooc s pascalom 06.05.2008 | 01:35
          Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
          Sice nerozumiem presne zadaniu, ale pochopil som ho nejako takto:
          program PocitajNieco;
          uses crt;
          
          var
            y:real;
            x:integer;
          begin
            while(true) do begin
              write('Zadaj X (0 ukonci program): ');
              readln(x);
              if(x=0) then break;
              if(x mod 10=0) then begin
                y:=(3-1.8*x)/x;
                writeln('Y = ',y:2:4);
              end else begin
                writeln('X sa nekonci nulou, takze smola.');
              end;
            end;
          end.
          
          Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
          • Re: pomooc s pascalom 06.05.2008 | 01:41
            Avatar Zefram Cochrane MS Windows Vista Ultimate 64bi  Používateľ
            to true vo while nemusis zatvarat do zatvoriek
            • Re: pomooc s pascalom 06.05.2008 | 01:42
              Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
              Ani tie podmienky v ifoch, ale tak to vyzera krajsie :)
              Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
          • Re: pomooc s pascalom 06.05.2008 | 01:44
            zuzycek   Návštevník
            na konci by malo byt nieco take:
            {tlac vystupov}
            assign (subor,'vystupy.txt');
            rewrite (subor);
            • Re: pomooc s pascalom 06.05.2008 | 01:53
              Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
              Nemozes radsej napisat presne znenie zadania a vsetko, co k tomu vies? Lebo z toho, co je napisane hore sa neda v podstate nic konkretne vycitat.
              Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
              • Re: pomooc s pascalom 06.05.2008 | 02:40
                zuzycek   Návštevník
                no ja by som aj rada, ale nic viac k tomu nemam..takto znie cele zadanie
                • Re: pomooc s pascalom 06.05.2008 | 13:44
                  Avatar Peter Valachovic Ubuntu 7.10  Používateľ
                  program PocitajNieco;
                  uses crt;
                  var
                  y:real;
                  x:integer;
                  subor:text;
                  begin
                  assign(subor,'C:\tp7\blablabla');
                  rewrite(subor);
                  while(true) do begin
                  write('Zadaj X (0 ukonci program): ');
                  readln(x);
                  if(x=0) then break;
                  if(x mod 10=0) then begin
                  y:=(3-1.8*x)/x;
                  writeln('Y = ',y:2:4);
                  end else begin
                  writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
                  end;
                  end;
                  end.

                  takto by to mohlo byt nie?
                  • Re: pomooc s pascalom 06.05.2008 | 13:47
                    Avatar Peter Valachovic Ubuntu 7.10  Používateľ
                    program PocitajNieco;
                    uses crt;
                    var
                    y:real;
                    x:integer;
                    subor:text;
                    begin
                    assign(subor,'C:\tp7\blablabla');
                    rewrite(subor);
                    while(true) do begin
                    write('Zadaj X (0 ukonci program): ');
                    readln(x);
                    if(x=0) then break;
                    if(x mod 10=0) then begin
                    y:=(3-1.8*x)/x;
                    writeln('Y = ',y:2:4);writeln(subor,y:2:4);
                    end else begin
                    writeln('X sa nekonci nulou, takze smola.');
                    end;
                    end;
                    end.
                    • Re: pomooc s pascalom 06.05.2008 | 19:14
                      Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                      Zabudol si este zatvorit ten subor.
                      Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                      • Re: pomooc s pascalom 06.05.2008 | 21:02
                        Avatar tuxacik   Používateľ
                        program PocitajNieco;
                        uses crt;
                        var
                        y:real;
                        x:integer;
                        subor:text;
                        begin
                        assign(subor,'C:\tp7\blablabla');
                        rewrite(subor);
                        while(true) do begin
                        write('Zadaj X (0 ukonci program): ');
                        readln(x);
                        if(x=0) then break;
                        if(x mod 10=0) then begin
                        y:=(3-1.8*x)/x;
                        writeln('Y = ',y:2:4);
                        end else begin
                        writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
                        end;
                        end;
                        end. Takto to ma bit je to uz tu ale len potvrzujem :P
                        • Re: pomooc s pascalom 06.05.2008 | 21:15
                          Avatar Peter Rozum Arch Linux  Používateľ
                          fakt bude ten subor pred ukoncenim programu zatvoreny? close(subor);
                          Everything is proceeding as I have foreseen.
                          • Re: pomooc s pascalom 06.05.2008 | 21:47
                            Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                            Chceli ste to, tak to mate mat:
                            program PocitajNieco;
                            uses crt;
                            
                            {$I-}
                            
                            var
                              y:real;
                              x:integer;
                              subor:text;
                            begin
                              assign(subor,'vystup.txt');
                              rewrite(subor);
                              if(IOresult<>0) then begin
                                writeln('Nemozem zapisovat do pozadovaneho suboru!');
                                halt;
                              end;
                              while(true) do begin
                                write('Zadaj X (0 ukonci program): ');
                                readln(x);
                                if(IOresult<>0) then begin
                                  writeln('Zapisuj cele cisla, ty hulvat.');
                                end else begin
                                  if(x=0) then break;
                                  if(x mod 10=0) then begin
                                    y:=(3-1.8*x)/x;
                                    writeln(subor,'X = ',x,' a Y = ',y:2:4);
                                  end else begin
                                    writeln(subor,'X = ',x,' a nekonci sa nulou, takze smola.');
                                  end;
                                  flush(subor);
                                  if(IOresult<>0) then begin
                                    writeln('Nieco nie je dobre, preto radsej skoncim.');
                                    break;
                                  end else begin
                                    writeln('Vysledok som zapisal do suboru, pokracuj.');
                                  end;
                                end;
                              end;
                              close(subor);
                            end.
                            
                            Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                          • Re: pomooc s pascalom 06.05.2008 | 22:28
                            zuzycek   Návštevník
                            diky moc vsetkym..ale ma to este jeden problem, v momente ked otvori program, tak ho hned aj zavrie..neviete preco??len mi blikne okno a nic
                            • Re: pomooc s pascalom 06.05.2008 | 22:33
                              Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                              A v ktorom pascale to kompilujes?
                              Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                              • Re: pomooc s pascalom 06.05.2008 | 22:36
                                zuzycek   Návštevník
                                vo free pascale
                                • Re: pomooc s pascalom 06.05.2008 | 22:51
                                  Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                                  program PocitajNieco;
                                  uses crt;
                                  
                                  {$I-}
                                  
                                  procedure cakaj;
                                  var
                                    a: char;
                                  begin
                                    writeln;
                                    writeln('Program sa skoncil, uz len cakam na stlacenie klavesy...');
                                    a:=readkey;
                                  end;
                                  
                                  var
                                    y:real;
                                    x:integer;
                                    subor:text;
                                  begin
                                    assign(subor,'vystup.txt');
                                    rewrite(subor);
                                    if(IOresult<>0) then begin
                                      writeln('Nemozem zapisovat do pozadovaneho suboru!');
                                      cakaj;
                                      halt;
                                    end;
                                    while(true) do begin
                                      write('Zadaj X (0 ukonci program): ');
                                      readln(x);
                                      if(IOresult<>0) then begin
                                        writeln('Zapisuj cele cisla, ty hulvat.');
                                      end else begin
                                        if(x=0) then break;
                                        if(x mod 10=0) then begin
                                          y:=(3-1.8*x)/x;
                                          writeln(subor,'X = ',x,' a Y = ',y:2:4);
                                        end else begin
                                          writeln(subor,'X = ',x,' a nekonci sa nulou, takze smola.');
                                        end;
                                        flush(subor);
                                        if(IOresult<>0) then begin
                                          writeln('Nieco nie je dobre, preto radsej skoncim.');
                                          break;
                                        end else begin
                                          writeln('Vysledok som zapisal do suboru, pokracuj.');
                                        end;
                                      end;
                                    end;
                                    close(subor);
                                    cakaj;
                                  end.
                                  
                                  Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                            • Re: pomooc s pascalom 06.05.2008 | 22:36
                              Avatar Peter Rozum Arch Linux  Používateľ
                              tak pred posledne end. vpis napriklad readln; a program ukoncit stlacenim enteru.
                              vsakze ty s linuxom nemas nic spolocne ;)
                              Everything is proceeding as I have foreseen.
                              • Re: pomooc s pascalom 06.05.2008 | 22:41
                                Avatar Peter Rozum Arch Linux  Používateľ
                                btw. vystup programu je zapisany do suboru vystup.txt ktory sa nachadza v tom istom adresari v akom je ten program.
                                Everything is proceeding as I have foreseen.
                              • Re: pomooc s pascalom 06.05.2008 | 22:49
                                zuzycek   Návštevník
                                no ked myslis vedomostami tak t teda nemam :)
                                skusila som tam dat to readln; a nic to nerobi..inac som robila toto:
                                program PocitajNieco;
                                uses crt;
                                var
                                y:real;
                                x:integer;
                                subor:text;
                                begin
                                assign(subor,'C:\tp7\blablabla');
                                rewrite(subor);
                                while(true) do begin
                                write('Zadaj X (0 ukonci program): ');
                                readln(x);
                                if(x=0) then break;
                                if(x mod 10=0) then begin
                                y:=(3-1.8*x)/x;
                                writeln('Y = ',y:2:4);writeln(subor,y:2:4);
                                end else begin
                                writeln('X sa nekonci nulou, takze smola.');
                                end;
                                end;
                                end.
                                • Re: pomooc s pascalom 06.05.2008 | 22:55
                                  zuzycek   Návštevník
                                  ked dam ctrl+F9 tak mi vyhodi tabulku a tam: Program +§
                                  exited with
                                  exitcode = 3
                                  • Re: pomooc s pascalom 06.05.2008 | 23:06
                                    Avatar Peter Rozum Arch Linux  Používateľ
                                    skus skompilovat toto
                                    Everything is proceeding as I have foreseen.
                                    • Re: pomooc s pascalom 06.05.2008 | 23:30
                                      zuzycek   Návštevník
                                      vyhadzuje mi chybu na: I0result
                                      • Re: pomooc s pascalom 06.05.2008 | 23:33
                                        zuzycek   Návštevník
                                        dobre ukoncilo mi program a ulozilo mi subor .txt ale ziadne .exe..preco??
                                        • Re: pomooc s pascalom 06.05.2008 | 23:41
                                          Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                                          V GNU/Linuxe alebo vo Windowse?
                                          Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                                          • Re: pomooc s pascalom 06.05.2008 | 23:43
                                            zuzycek   Návštevník
                                            vo windowse
                                            • Re: pomooc s pascalom 07.05.2008 | 00:01
                                              zuzycek   Návštevník
                                              a nevies mi pomoct aj s trasovacou tabulkou??
                                              • Re: pomooc s pascalom 07.05.2008 | 10:26
                                                Avatar Samuel BWPOW Kupka Almalinux, OpenWRT  Používateľ
                                                Co to je?
                                                Strach dát najevo své pocity a zjednat si u druhých respekt je jedním z problémů civilizovaného člověka, který se naučil zpochybňovat svou vlastní pravdu pro zdání objektivity
                                              • Re: pomooc s pascalom 07.05.2008 | 20:56
                                                Avatar Peter Valachovic Ubuntu 7.10  Používateľ
                                                to by osobne zaujimalo aj mna pretoze o tom pocujem 1x :D
                                              • Re: pomooc s pascalom 07.05.2008 | 21:12
                                                Avatar Peter Rozum Arch Linux  Používateľ
                                                to ma byt nejaky diagram chodu programu?
                                                Everything is proceeding as I have foreseen.
                                                • Re: pomooc s pascalom 08.05.2008 | 21:59
                                                  zuzycek   Návštevník
                                                  to je nieco ako overenie algoritmu..su tam zapisane jednotlive kroky..ale uz mi to netreba uz mam dokonca aj cely program mam hotovy :D