Podstawy Informatyki - Laboratorium
Politechnika Świętokrzyska, Wydział Elektrotechniki, Automatyki i Informatyki
Turbo Pascal
Instrukcja laboratoryjna nr 1
Opracował: dr inż. Grzegorz Słoń
Typy proste, instrukcje przypisania i warunkowe
Uruchomić środowisko Turbo Pascala (program turbo.exe w podkatalogu /BIN). Wyróżnić: pasek menu, okno edytora tekstu, pasek stanu.
Odnaleźć na pasku menu pozycje odpowiedzialne za otwieranie i zapisywanie pliku (File | New, File | Open, File | Save, File | Save as...). Zwrócić uwagę na skróty klawiszowe, przypisane do poszczególnych pozycji.
Odnaleźć w oknie edytora następujące elementy: nazwa pliku, pozycja kursora, numer bieżącego okna, paski przewijania.
Zwrócić uwagę na zawartość paska stanu zależnie od trybu pracy (edycja dokumentu, korzystanie z menu).
Ustalić nowy katalog bieżący (File | Change dir...).
Zamknąć wszystkie otwarte dokumenty (Window | Close all), otworzyć nowe okno (File | New) i wprowadzić następujący program:
program P1_INT;
var a,b,c,min: integer;
begin
write('Wprowadz a: ');
readln(a);
write('Wprowadz b: ');
readln(b);
write('Wprowadz c: ');
readln(c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
write('Liczba minimalna to: ');
writeln(min);
end.
Skompilować wprowadzony program (Compile | Compile). Poprawić ewentualne błędy.
Zapisać plik pod nazwą P1_INT.PAS (File | Save).
Uruchomić program i sprawdzić poprawność działania.
Uruchomić program ponownie i wprowadzić, jako daną wejściową, przynajmniej jedną liczbę rzeczywistą. Zaobserwować reakcję komputera.
Zmodyfikować program tak, aby było możliwe wprowadzanie liczb rzeczywistych, skompilować go i poprawić ewentualne błędy.
Zapisać plik pod nazwą P1_REAL.PAS (File | Save as...).
Uruchomić program i zaobserwować sposób prezentacji wyniku. Uzupełnić polecenie drukowania wyniku o format wyprowadzanej liczby.
Zamknąć okno z plikiem P1_REAL.PAS (Window | Close).
Otworzyć nowe okno edytora (File | New).
Otworzyć plik P1_REAL.PAS (File | Open...).
Zaznaczyć i skopiować pierwsze 9 linii programu (Edit | Copy).
Przejść do nowego okna i odtworzyć w nim skopiowany fragment programu (Edit | Paste).
Poprawić i uzupełnić program tak, aby uzyskał poniższą postać:
program P2_REAL;
var a,b,c: real;
begin
write('Wprowadz a: ');
readln(a);
write('Wprowadz b: ');
readln(b);
write('Wprowadz c: ');
readln(c);
write('Liczba minimalna to: ');
if a<b then if a<c then writeln(a)
else writeln(c)
else if b<c then writeln(b)
else writeln(c);
end.
Skompilować i zapisać program pod nazwą P2_REAL.
Uruchomić program, skorygować format wyniku i zapisać ponownie.
Napisać i uruchomić program wyznaczający wartość funkcji danej przepisem:
program Funkcja;
var x,f,m: real;
begin
write('Podaj x: ');
readln(x);
m:=abs(x);
if m>5 then f:=sqrt(m)+5
else if m=5 then f:=sqr(x)+3
else f:=(x+2)/5;
writeln('F = ',f:4:2);
end.
Napisać program znajdujący pierwiastki rzeczywiste równania kwadratowego o postaci:
program rownanie;
var a,b,c,d,x1,x2:real;
begin
writeln('Wprowadz wspolczynniki rownania:');
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
d:=b*b-4*a*c;
if d>=0 then begin
x1:=(-b-sqrt(d))/(2*a);
if d=0 then begin
writeln('Rownanie ma jeden pierwiastek rzeczywisty:');
writeln('x = ',x1:5:3);
end
else begin
x2:=(-b+sqrt(d))/(2*a);
writeln('Rownanie ma dwa pierwiastki rzeczywiste:');
writeln('x1 = ',x1:5:2);
writeln('x2 = ',x2:5:2);
end;
end
else writeln('Rownanie nie ma pierwiastkow rzeczywistych');
end.
Napisać programy rozwiązujące następujące problemy:
Obliczyć objętość i powierzchnię kuli o promieniu R.
Napisać program wyznaczający wartość funkcji Sgn(x), jeśli wiadomo, że funkcja ta dana jest przepisem:
Dane są trzy liczby rzeczywiste. Napisać programy wyznaczające:
średnią arytmetyczną tych liczb,
średnią geometryczną tych liczb,
średnią harmoniczną tych liczb.
str. 2/3 Turbo Pascal - Instrukcja nr 1
Turbo Pascal - Instrukcja nr 1 str. 3/3