Hjälp med Pascal program

2002-12-18 13:44

Medlem

Registrerad: Jun 2002

●

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

http://copykat.se

Rapportera Redigera

Citera flera Citera

2002-12-18 14:13

Permalänk

Pnorberg

Medlem ♥ ★

Registrerad: Mar 2002

●

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'."

Rapportera Redigera

Citera flera Citera

2002-12-18 14:19

Permalänk

mirza

Medlem

Registrerad: Jan 2002

●

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

Rapportera Redigera

Citera flera Citera

2002-12-18 14:42

Permalänk

Sim

Avstängd

Plats: Plats: Plats: Plats:
Registrerad: Okt 2001

●

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