Pascal 1. undervisningsgang

Grundlæggende begreber

I dette kapitel ser vi på:

Reserverede ord

Specialsymboler

Standard identifikatorer

Datatyper

  • Heltal
    • ShortInt -128…128
    • Integer -32768…32767
    • LongInt -2147483648…2147483647
    • Byte 0…255
    • Word 0…65535
  • Reelle tal
    • Real 2.9E-39…1.7E38
  • Boolean
    • True og False
  • Char
    • Char indeholder 1 tegn f.eks. ‘A’ eller ‘#’
  • String
    • Tekst streng på op til 255 tegn

Konstanter

  • Const

Variabelerklæring

Programstruktur

Program ProgramNavn;
Uses
Biblioteksmoduler;
Const
Konstanterklæringer;
Var
Variabelerklæringer;
Begin
Programerklæringer;
End.

Øvelse 6

[javascript]
Program Orden;
Var
x : real;
begin
repeat
write(‘Indtast et tal -> ‘);
readln(x);
if x >= 0 then
writeln(‘Kvadratroden af ‘, x:2:2 , ‘ er ‘, sqrt(x):2:2)
else
writeln(‘Fejl: ‘, x:2 , ‘ er negativ’);
until x = 0;
end.
[/javascript]

Øvelse 7

[javascript]
Program Trekant1;
//Program til bereging af arealet og omkredsen
//af en retvinklet 7-24-25 trekant
Var
areal : real;
omkreds : word;
Begin
areal := 7 * 24 / 2;
omkreds := 7 + 24 + 25;
writeln(‘Arealet er: ‘,areal:2:2);
writeln(‘Omkredsen er: ‘,omkreds);
End.
[/javascript]

Øvelse 8

[javascript]
Program DivMod;
// Dette program demonstrerer heltalsdivision og rest
Var
a,b : Integer;
Begin
a := 75 DIV 10;
b := 75 MOD 10;
Writeln(’75 DIV 10 giver heltalsdivisionen: ‘,a);
Writeln(’75 MOD 10 giver resten: ‘,b);
End.
[/javascript]

Øvelse 9

[javascript]
Program Snit;
Uses
Crt;
Var
A,B,C,Sum : Integer;
Gennemsnit : Real;
Begin
ClrScr;
Writeln(‘Indtast tre hele tal’);
Write(‘(adskil med mellemrum eller <Retur>) -> ‘);
Readln(A, B, C);
Sum := A + B + C;
Gennemsnit := Sum / 3;
Writeln(‘Summen af de tre tal er: ‘, Sum : 10);
Writeln(‘Gennemsnittet af de tre tal er: ‘, Gennemsnit : 10 : 2);
End.</pre>
[/javascript]

Pages: 1 2