Permalänk
Medlem

Hjälp med Pascal program

Behöver lite hjälp med att skriva ett multiplikations program....
programmet ska skriva ut en fullständig multiplikations tabell för tabellerna 1 - 10
ska se ut enligt följande:

1 2 3 4 5 6 7 8 9 10
1
2
3
4
5
6
7
8
9
10

i tabellen ska svaren skrivas ut...
så här långt har jag kommit:

uses crt;
var
x : integer;
y : integer;
tecken : char;
begin
clrscr;
for x := 1 to 10 do
write (' ',x);
writeln;
begin
for y := 1 to 10 do
writeln (y);
end;
read (tecken);
end.

nu skriver den upp tabellen men räknar inte ut svaren o fyller i det... Hur gör jag ?!?!?!?

Visa signatur
Permalänk
Medlem

okay, vi fixade iaf hur vi fick programmet och räkna ut.
men nu måste vi få det lite snyggare, om någon nu orkar hjälpa oss?

PROGRAM uppgift4;

uses crt;
var x:integer;
y:integer;
tecken:char;
begin
clrscr;
writeln('Uppgift 4');
for x := 1 to 10 do
begin
writeln;
for y := 1 to 10 do
write(' ',x*y,' ');
end;
read(tecken);
end.

och det blir så här :
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 16 18 20
3 6 9 12 15 18 21 24 27 30
osv.
vill bara få det lite snyggare

Visa signatur

"Wise men say, 'Forgiveness is divine, but never pay full price for a late pizza'."

Permalänk
Medlem

Tja vill man/kan man/får man så är det ju rätt koolt att skriva ut det hela till en html-fil där man sedan kan formatera som man vill

Permalänk
Avstängd
Citat:

Ursprungligen inskrivet av Pato
okay, vi fixade iaf hur vi fick programmet och räkna ut.
men nu måste vi få det lite snyggare, om någon nu orkar hjälpa oss?

PROGRAM uppgift4;

uses crt;
var x:integer;
y:integer;
tecken:char;
begin
clrscr;
writeln('Uppgift 4');
for x := 1 to 10 do
begin
writeln;
for y := 1 to 10 do
write(' ',x*y,' ');
end;
read(tecken);
end.

och det blir så här :
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 16 18 20
3 6 9 12 15 18 21 24 27 30
osv.
vill bara få det lite snyggare

Ändra

write(' ',x*y,' ');

Till

write(' ',x*y:3,' ');

Eller

write(' ',x*y:3:3,' ');

Har för mig att det var så.

Permalänk
Medlem
Citat:

Ursprungligen inskrivet av Sim

Ändra
write(' ',x*y,' ');
write(' ',x*y:3,' ');
write(' ',x*y:3:3,' ');
Har för mig att det var så.

nice tack.

Visa signatur

"Wise men say, 'Forgiveness is divine, but never pay full price for a late pizza'."

Permalänk
Medlem

tackar så mycke...

Visa signatur