Question

1.Napisz program rozwiązujący problem: (w pascalu)
a )dany jest ciąg n liczb rzeczywistych. napisać program wyznaczający ilośc liczb większych od pierwszej liczby ciągu.
b)napisać program wyświetlający na ekranie monitora znaki kodu ASCII wraz z odpowiadającymi im kodami (wykorzystać funkcję chr). program powinien umożliwiać zadawanie kodów: początkowego i końcowego.

Answer 1

A)
uses CRT;
var        dlugosc : Integer;        pierwsza : Integer;        ileWiekszych : integer;        liczby : Integer;        i : Integer;

BEGIN

        Writeln('dla jak wielu liczb mam wykonywac program?');        readln(dlugosc);        clrscr;
        write('Podaj dowolna liczbe: ');
        readln(pierwsza);

        for i := 2 to dlugosc do        begin
                clrscr;                write('Podaj dowolna liczbe: ');                readln(liczby);                if liczby > pierwsza then inc(ileWiekszych);
        end;
        clrscr;        writeln('Liczb wiekszych od pierwszej jest ',ilewiekszych);        readln;END.
b)
program ascii;
var i: Integer;
begin
for i:=0 to 255 do
begin
  Write(i:3, ':', char(i),' ');
  if (i mod 12=0) then WriteLn;
end;
WriteLn;
WriteLn('Proszę wcisnąć ENTER');
ReadLn;
end.