skal havde ændret en kode !! ....

Tags:    delphi

Jeg er ved at lave sådan en chatbot...
og jeg har læst den her artikel http://www.udvikleren.dk/article.php?aid=96&techid=2 om konsolprogrammer og jeg fandt den her kode:

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! :)');
Readln;
end.

og den skal laves om til at den spørger om hvad sit navn er istedet for hvor gammel du er :D ...



4 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 6 karma
Sorter efter stemmer Sorter efter dato
Jeg er ved at lave sådan en chatbot...
og jeg har læst den her artikel http://www.udvikleren.dk/article.php?aid=96&techid=2 om konsolprogrammer og jeg fandt den her kode:

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! :)');
Readln;
end.

og den skal laves om til at den spørger om hvad sit navn er istedet for hvor gammel du er :D ...


skriv

begin
Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' :)')
end.

-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)



variablen navn, skal være en string:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
navn: String; //navn bliver defineret som en string variabel

begin
Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ': ) ')
end.

Med Venlig Hilsen: CHadi

[Redigeret d. 16/11-03 17:02:20 af CHadi]



Jeg er ved at lave sådan en chatbot...
og jeg har læst den her artikel http://www.udvikleren.dk/article.php?aid=96&techid=2 om konsolprogrammer og jeg fandt den her kode:

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! :)');
Readln;
end.

og den skal laves om til at den spørger om hvad sit navn er istedet for hvor gammel du er :D ...

skriv

begin
Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' :)')
end.

-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)





Det virker ikke helt :(
når jeg prøver at skrive mit navn også tryk enter kommer der en boks frem hvor der står at der er en fejl

her er hele koden:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
navn: integer;

begin
Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ')
end.





variablen navn, skal være en string:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
navn: String; //navn bliver defineret som en string variabel

begin
Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ': ) ')
end.

Med Venlig Hilsen: CHadi

[Redigeret d. 16/11-03 17:02:20 af CHadi]



Takker mange gange Chadi og Johnny :D og foresten hvad er din msn ? CHadi




t