• Nie Znaleziono Wyników

Języki i metody programowania. Ćwiczenie 8.

N/A
N/A
Protected

Academic year: 2021

Share "Języki i metody programowania. Ćwiczenie 8."

Copied!
1
0
0

Pełen tekst

(1)

Języki i metody programowania. Ćwiczenie 8.

Tablice liczb i znaków

Cel ćwiczenia: Definiowanie tablic w programie. Inicjowanie tablic losowymi danymi.

Operacje na tablicach. Sortowanie elementów tablic. Zmienne typu łańcuchowego (string).

1. Zdefiniować typ ttab określający tablicę liczb całkowitych o rozmiarze N, gdzie N - stała.

W programie głównym zadeklarować zmienną tablicową typu ttab. Opracować procedury:

a) inicjującą tablicę losowymi liczbami całkowitymi należącymi do przedziału [-10, 10) (wykorzystać random); nagłówek procedury: procedure los_t(Var t: ttab; ile: integer), gdzie ile <= N – liczba inicjowanych elementów tablicy;

b) wyprowadzającą na ekran elementy tablicy - po 8 w wierszu w formacie tab[i]:5;

c) obliczającą sumę elementów tablicy;

d) znajdującą w tablicy element minimalny i maksymalny.

Wywołać opracowane procedury w programie.

2. Zdefiniować typ ftab określający tablicę liczb rzeczywistych o rozmiarze N, gdzie

N - stała. W programie głównym zadeklarować zmienną tablicową typu ftab. Opracować procedury:

a) inicjującą tablicę losowymi liczbami rzeczywistymi należącymi do przedziału [0, 1) (wykorzystać random); nagłówek procedury: procedure los_f(Var t: ftab; ile: integer), gdzie ile <= N – liczba inicjowanych elementów tablicy;

b) wyprowadzającą na ekran elementy tablicy pomnożone przez 100 - po 10 w wierszu w formacie tab[i]:7:3;

c) sortującą elementy tablicy w oparciu o wybrany algorytm.

3. Zdefiniować typ ztab określający tablicę elementów typu char o rozmiarze N, gdzie N - stała. W programie głównym zadeklarować zmienną tablicową typu ztab. Opracować procedury:

a) inicjującą tablicę losowymi znakami należącymi do przedziału [’A’,...,’Z’]

(wykorzystać random); nagłówek procedury: procedure los_z(Var t: ztab; ile: integer), gdzie ile <= N – liczba inicjowanych elementów tablicy;

b) wyprowadzającą na ekran elementy tablicy - po 10 w wierszu w formacie tab[i]:3;

c) sortującą elementy tablicy w oparciu o wybrany algorytm.

4. Wczytać łańcuch z klawiatury do zmiennej typu string. Wyprowadzić zawartość łańcucha oraz jego długość na ekran. Posortować elementy łańcucha. Opracować procedurę, która w łańcuchu będącym jej parametrem zamienia małe litery na duże.

5. Opracować procedurę, która wpisuje do tablicy liczb całkowitych kolejne cyfry liczby naturalnej x w taki sposób, aby mniej znaczące cyfry liczby zajmowały pozycje tablicy o mniejszych indeksach, np. dla x = 352 tablica tab powinna zawierać: tab[0]=2; tab[1]=5;

tab[2] =3.

6. Opracować procedurę pisemnego dodawania dwóch liczb naturalnych x i y, których kolejne cyfry są zapisywane w tablicach A i B. Liczby są wprowadzane z klawiatury.

Przyjąć, że mniej znaczące cyfry liczb są zapisywane na pozycjach tablic o mniejszych indeksach. Wynik dodawania umieścić w tablicy C. Wyprowadzić zawartości tablic A, B i C na ekran.

Cytaty

Powiązane dokumenty

Wczytaj do dwuwymiarowej tablicy macierz A rozmiaru 3x3, natomiast do jednowymiarowej 3-elementowej tablicy wektor x. Oblicz wynik mnożenia macierzy A przez wektor x,

Na szachownicy n×n umieszczono kn kamieni tak, by w każdym rz e , dzie i w każdej kolumnie było dokładnie k kamieni (może wiele kamieni leżeć na

Opracować procedurę, która oblicza sumę dwóch liczb rzeczywistych przekazywanych przez wartości za pomocą argumentów x i y oraz zwraca wynik dodawania argumentów za

Opracować funkcję, która oblicza sumę dwóch liczb rzeczywistych przekazywanych przez wartości, za pomocą argumentów x i y, oraz zwraca wynik dodawania

W programie głównym zdefiniować zmienną tablicową tab

Wpis może być zrealizowany jeśli ile&lt;N. Pozycję aktualnego wpisu określa wartość zmiennej ile=ile+1. b) Wyprowadzającą elementy tablicy na ekran. Liczbę elementów

następujące operacje: otwiera plik; odczytuje daną z pliku; jeśli odczytana liczba jest nieparzysta, to dopisuje na końcu pliku liczbę dwa razy większą, a jeśli nie, to

c) Wpisującą do pliku tekstowego rekord typu tosoba oraz znaki przejścia do nowej linii (writeln); nagłówek: procedure WstawR(Var f: text; Var r: tosoba).. d) Odczytującą z