Ĺadny brzuch
Potrzebuje program do obliczania przez jakie liczby należy podzielić daną liczbę, aby wartość tej liczby była zawsze po dzieleniu naturalna(int). Napisałem sobie taki roboczy program na szybko i mały błędzik:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Liczba : Integer; Licznik : Integer; tab : array[1..100] of Integer; ltab : integer; s : String; begin Liczba := 120943056;//StrToInt(Form1.Edit1.Text); Licznik := 1; ltab := 1; while not Liczba = 1 do begin Inc(Licznik); {$WARNINGS OFF} try Liczba := Liczba / Licznik; //TU JEST LINIA BŁĘDU except Continue; end; {$WARNINGS ON} tab[ltab] := Licznik; Inc(ltab); Licznik := 1; end; if Liczba = 1 then begin ltab := 1; while IntToStr(tab[ltab]) <> '' do begin s := s + IntToStr(tab[ltab]) + ' , '; Inc(ltab); end; ShowMessage(s); end; end; end.
Nie zwracajcie uwagi na rozwiązania tylko na to czemu mi pokazuje błąd:
[Error] Unit1.pas(46): Incompatible types: 'Integer' and 'Extended'
Dodam dokładnie oco biega: na jednej stronie trzeba wpisać hasło gdzie mnożenie kodu odpowiednich liter unicod'u daje wartość '120943056'. Hasło można zdobyć rejestrując sie na stronie erotycznej, lecz po zarejestrowaniu nie dostaje e-maila z hasłem. To już chyba nie działa. Hasło jest potrzebne do ściągnięcia gry.
Użytkownik mariuszlorenc edytował ten post 16 maj 2005, 19:45
no OKA tylko jak to napisać?
if (Liczba mod Licznik = 0) then
tylko że Liczba ma sie też podzielić przez daną wartość, a przy Liczba / Licznik pojawia sie błąd.
I znowu jesteśmy w tym samym miejscu :)
if (Liczba mod Licznik = 0) then
Jak powiedział tak zrobiłem no i działa; Dzienx Migajek :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Liczba : Integer; Licznik : Integer; tab : array[1..100] of Integer; ltab : integer; s : String; begin Liczba := 120943056;//StrToInt(Form1.Edit1.Text); Licznik := 1; ltab := 1; while not Liczba = 1 do begin Inc(Licznik); {$WARNINGS OFF} try Liczba := Liczba / Licznik; //TU JEST LINIA BŁĘDU except Continue; end; {$WARNINGS ON} tab[ltab] := Licznik; Inc(ltab); Licznik := 1; end; if Liczba = 1 then begin ltab := 1; while IntToStr(tab[ltab]) <> '' do begin s := s + IntToStr(tab[ltab]) + ' , '; Inc(ltab); end; ShowMessage(s); end; end; end.
Nie zwracajcie uwagi na rozwiązania tylko na to czemu mi pokazuje błąd:
[Error] Unit1.pas(46): Incompatible types: 'Integer' and 'Extended'
Dodam dokładnie oco biega: na jednej stronie trzeba wpisać hasło gdzie mnożenie kodu odpowiednich liter unicod'u daje wartość '120943056'. Hasło można zdobyć rejestrując sie na stronie erotycznej, lecz po zarejestrowaniu nie dostaje e-maila z hasłem. To już chyba nie działa. Hasło jest potrzebne do ściągnięcia gry.
Użytkownik mariuszlorenc edytował ten post 16 maj 2005, 19:45
no OKA tylko jak to napisać?
if (Liczba mod Licznik = 0) then
tylko że Liczba ma sie też podzielić przez daną wartość, a przy Liczba / Licznik pojawia sie błąd.
I znowu jesteśmy w tym samym miejscu :)
if (Liczba mod Licznik = 0) then
Jak powiedział tak zrobiłem no i działa; Dzienx Migajek :)