atsakymas skaitm.out failu...

Skelbti atsakymą
Žinutė
Autorius
butaforijo
Pranešimai:1
Užsiregistravo:2009 01 09 15:51
atsakymas skaitm.out failu...

#1 Standartinė butaforijo » 2009 02 13 16:24

Programa turi parasyti atsakyma skaitm.out failu ,bet man to nedaro. programa veikia gerai :oops:
programa turi apskaiciuoti skaiciiu sekos ilgi, kurioje bus skaitmuo d bus uzrasytas ne maziau kaip k kartu. duomenys yra faile skaitm.in, du skaiciai vieninteleje eiluteje, atskirti tarpu.

Kodas: Pasirinkti visus

program Bevardë0;
var D , K , S , G , Q , I :integer ;
label lyginimas , maz10 , daug10 , atsakymas , skaiciavimas;
 var duota , gauta : text;
begin
  assign(duota, 'C:/skaitm.in');reset (duota);
  Read(duota , D );read(duota , K);
  Q:=0;
  S:=1;
  lyginimas:
  if Q=K then goto atsakymas;
  skaiciavimas:
  if S<10 then goto maz10
   else goto daug10;
  maz10:
  I:= S mod 10;
  if I = D then Q:= Q + 1;
  S:= S + 1;
  G:=G+1;
  goto lyginimas;
  daug10:
    I:= S mod 10;
  if I = D then Q:= Q + 1;
    I:= s div 10;
    if I = D then Q:= Q + 1;
  S:= S + 1;
  G:= G+1;
  goto lyginimas;
  atsakymas:
  assign(gauta, 'C:/skaitm.out');rewrite (gauta);
  Writeln(gauta, G);
end.

Skelbti atsakymą

Grįžti į

Dabar prisijungę

Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)