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

1. Uruchomić środowisko Turbo Pascala (program turbo.exe w podkatalogu /BIN). Wyróżnić: pasek menu, okno edytora tekstu, pasek stanu.

2. 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.

3. Odnaleźć w oknie edytora następujące elementy: nazwa pliku, pozycja kursora, numer bieżącego okna, paski przewijania.

4. Zwrócić uwagę na zawartość paska stanu zależnie od trybu pracy (edycja dokumentu, korzystanie z menu).

5. Ustalić nowy katalog bieżący (File | Change dir...).

6. 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.

7. Skompilować wprowadzony program (Compile | Compile). Poprawić ewentualne błędy.

8. Zapisać plik pod nazwą P1_INT.PAS (File | Save).

9. Uruchomić program i sprawdzić poprawność działania.

10. Uruchomić program ponownie i wprowadzić, jako daną wejściową, przynajmniej jedną liczbę rzeczywistą. Zaobserwować reakcję komputera.

11. Zmodyfikować program tak, aby było możliwe wprowadzanie liczb rzeczywistych, skompilować go i poprawić ewentualne błędy.

12. Zapisać plik pod nazwą P1_REAL.PAS (File | Save as...).

13. Uruchomić program i zaobserwować sposób prezentacji wyniku. Uzupełnić polecenie drukowania wyniku o format wyprowadzanej liczby.

14. Zamknąć okno z plikiem P1_REAL.PAS (Window | Close).

15. Otworzyć nowe okno edytora (File | New).

16. Otworzyć plik P1_REAL.PAS (File | Open...).

17. Zaznaczyć i skopiować pierwsze 9 linii programu (Edit | Copy).

18. Przejść do nowego okna i odtworzyć w nim skopiowany fragment programu (Edit | Paste).

19. 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.

20. Skompilować i zapisać program pod nazwą P2_REAL.

21. Uruchomić program, skorygować format wyniku i zapisać ponownie.

22. 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.

23. 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.

24. Napisać programy rozwiązujące następujące problemy:

1. Obliczyć objętość i powierzchnię kuli o promieniu R.

2. Napisać program wyznaczający wartość funkcji Sgn(x), jeśli wiadomo, że funkcja ta dana jest przepisem:

3. 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

---