https://www.webelite.pl/ Fri, 01 May 2026 05:20:17 +0000 MyBB https://www.webelite.pl/showthread.php?tid=4122 Mon, 05 Jan 2015 16:24:02 +0100 prospy]]> https://www.webelite.pl/showthread.php?tid=4122 Kod można podać na tej stronie (http://ideone.com) albo w odpowiedzi. Z góry dziękuje

Zadania: http://scr.hu/0h9y/7wcdx]]> Kod można podać na tej stronie (http://ideone.com) albo w odpowiedzi. Z góry dziękuje

Zadania: http://scr.hu/0h9y/7wcdx]]> https://www.webelite.pl/showthread.php?tid=2644 Thu, 15 Jul 2010 20:11:43 +0200 Seba468]]> https://www.webelite.pl/showthread.php?tid=2644
za sugestię THX, pozdro...]]>
za sugestię THX, pozdro...]]> https://www.webelite.pl/showthread.php?tid=2292 Wed, 12 Aug 2009 22:12:21 +0200 kams2160]]> https://www.webelite.pl/showthread.php?tid=2292 [Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
[Error] Unit1.pas(34): Illegal character in input file: '"' ($22)
[Error] Unit1.pas(33): Illegal character in input file: '"' ($22)
a cały kod wygląda tak


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
znak, str1 : string;
liczba, kod : integer;
begin
kod:=0;
znak:=InputBox('Wprowadzanie danych','Podaj dowolny znak',");
str1:=InputBox('Wprowadzanie danych','Podaj dowolna liczbe',");
Val(str1,liczba,kod);

ListBox1.Items.Clear;
ListBox1.Items.Add('Znak ='+ znak);
ListBox1.Items.Add('Liczba ='+ IntToStr(liczba));


end;

end.



Może mi ktoś powiedzieć co jest z nim nie tak z góry Danke ]]> [Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
[Error] Unit1.pas(34): Illegal character in input file: '"' ($22)
[Error] Unit1.pas(33): Illegal character in input file: '"' ($22)
a cały kod wygląda tak


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
znak, str1 : string;
liczba, kod : integer;
begin
kod:=0;
znak:=InputBox('Wprowadzanie danych','Podaj dowolny znak',");
str1:=InputBox('Wprowadzanie danych','Podaj dowolna liczbe',");
Val(str1,liczba,kod);

ListBox1.Items.Clear;
ListBox1.Items.Add('Znak ='+ znak);
ListBox1.Items.Add('Liczba ='+ IntToStr(liczba));


end;

end.



Może mi ktoś powiedzieć co jest z nim nie tak z góry Danke ]]> https://www.webelite.pl/showthread.php?tid=2025 Sat, 06 Jun 2009 14:26:40 +0200 Deace]]> https://www.webelite.pl/showthread.php?tid=2025 Mam mały problem. Otóż muszę w turbo pascalu stworzyć program który oblicza rekurencyjnie największy wspólny dzielnik dla 2 liczb typu a i b.
Nie mam pojęcia jak się za to zabrać. Jeśli ktoś byłby tak dobry to prosiłbym o pomoc w jego stworzeniu. Z góry dziękuje.]]> Mam mały problem. Otóż muszę w turbo pascalu stworzyć program który oblicza rekurencyjnie największy wspólny dzielnik dla 2 liczb typu a i b.
Nie mam pojęcia jak się za to zabrać. Jeśli ktoś byłby tak dobry to prosiłbym o pomoc w jego stworzeniu. Z góry dziękuje.]]>