HWScan0000300008

program przyklad13; const x=2.345; var s:string; begin str(x,s); writeln; write(s[4]); end.

Wynikiem działania programu jest znak ‘3’

24.    SUCC(x) - funkcja

Utworzenie następnika. Argumentem funkcji może być dowolne wyrażenie porządkowe

program przyklad14;

begin

writelnlsuccfB'));

writeln(succ(2))

end.

Wynikiem działania programu jest wypisanie na ekranie dwu wierszy. W pierwszym wierszu zostanie wypisana znak C, w drugim zostanie wypisana wartość 3.

25.    TRUNC(x)~ funkcja

Odrzucenie części ułamkowej. Zwracana wartość jest liczbą całkowitą.

26.    VAL(s:strinq.var Iiczba:typliczbowy, kod wyniku) - funkcja

Przypisanie zmiennej liczba wartości powstałej w wyniku przekształcenia ciągu znakowego s na liczbę. Jeżeli operacja zakończy się

poprawnie zmienna kod_wyniku przyjmuje wartość zero w przeciwnym przypadku zmienna kod_wyniku przyjmuje wartość numeru

tego znaku na którym wystąpił błąd

program przyklad14;

const

a=’123';

b='1.23';

c-12,3';

d='a123';

var

kod1 ,kod2,kod3,kod4:integer;

Iiczba1,liczba2,liczba3,liczba4:real;

begin

val(a,liczba1,kod1);

if kod1=0 then writeln('a=^,,liczba1:0:2) else writeln('blad na znaku \kod1); val(b,liczba2,kod2);

if kod2=0 then writeln('b=^,,liczba2:0:2) else writeln('blad na znaku \kod2); val(c,liczba3,kod3);

if kod3=0 then writeln('c=\liczba3:0:2) else writeln('blad na znaku \kod3); val(d,liczba4,kod4);

if kod4=0 then writeln('d=\liczba4:0:2) else writeln('blad na znaku \kod4); end.

Wynikiem działania programu jest wypisanie r.a ekranie czterech wierszy. W pierwszym wierszu zostanie wypisane a=123, w drugim zostanie wypisane b-1.23 w trzecim zostanie wypisane błąd na znaku 3 w czwartym zostanie wypisane błąd na znaku 1

4