Wczytywać z kolejnych wierszy napisy aż do wczytania dwóch kolejnych napisów będących pojedynczymi spacjami. Wydrukować długość najdłuższego napisu tego ciągu.
Wczytać punkty - rekordy postaci (x, y) do tablic A,B[1..n,1..n]. W każdej tablicy zamienić miejscami dwa skrajne elementy na głównej przekątnej.
Z pliku ‘we.txt’ przepisać do pliku ‘wy1.txt’ wszystkie znaki z wyjątkiem przecinków i średników, a do pliku ‘wy2.txt’ - wszystkie znaki z wyjątkiem spacji i myślników.
Dla listy zdefiniowanej typami: type Tad=^Tbook; Tbook=record autor, tytul: string; rok: integer; next:Tad; end; napisać funkcję, która zwraca (wyznacza) tytuł najtańszej książki na tej liście (adres początku listy jest parametrem procedury). Dla uproszczenia przyjąć, że jest tylko jedna taka książka na liście.
Wczytywać liczby, aż do momentu, gdy dwie kolejne liczby będą równe dwom pierwszym. Wydrukować średnią arytmetyczną liczb tego ciągu (łącznie z tymi dwiema ostatnimi). Przyjąć, że w ciągu są co najmniej 4 liczby.
Do tablic A,B[1..w,1..k] (w,k-stałe) wczytać rekordy postaci (nazwa, cena). Wydrukować, ile elementów tablicy A ma cenę większą od 1000 i ile elementów tablicy B ma cenę większą od 2000.
Z pliku 'a.pas' przepisać do pliku 'b.pas' te wiersze, w których dwa ostatnie znaki nie są spacjami, a następnie z pliku 'b.pas' przepisać do pliku o nazwie wczytanej te wiersze, w których dwa ostatnie znaki nie są kropkami.
Dla listy określonej przez typy: type Tadr=^element; element=record nazwa:string; liczba:real; nast:Tadr end; napisać procedurę, która zamienia miejscami zawartość pierwszego i trzeciego elementu na tej liście (adres początku listy jest parametrem procedury), pod warunkiem, że lista ma co najmniej trzy elementy.
Wczytać ciąg znaków zakończony dwiema kropkami. Wydrukować informację, których liter było więcej w tym ciągu: dużych czy małych.
Wczytać dane do tablic A, B[1..w,1..k] (w,k-stałe). Wydrukować, ile wierszy w tablicy A zawiera choć 2 liczby >10 i ile wierszy w tablicy B zawiera choć 4 liczby >17.
Z pliku 'p0.pas' przepisać do pliku ‘p1.pas’ oraz z pliku 'p2.pas' przepisać do pliku ‘p3.pas’ wszystkie wiersze najdłuższe (w pliku może być wiele wierszy o maksymalnej długości).
Dla elementów listy zdefiniowanej typami: type Twsk=^cos; cos=record liczba: integer; nast:Twsk end; napisać procedurę, która dopisuje na końcu listy element zawierający liczbę będącą parametrem procedury (adres początku listy również jest parametrem procedury).
Wczytać ciąg liczb zakończony dwiema następującymi po sobie liczbami ujemnymi. Wydrukować średnią arytmetyczną dodatnich liczb tego ciągu. Nie dopuścić do dzielenia przez zero.
Wczytać znaki do tablic A,B[1..w,1..k] (w,k-stałe). W tablicy A przesunąć cyklicznie o 1 miejsce w dół kolumny zaczynające się spacją, zaś w tablicy B przesunąć cyklicznie o 1 miejsce w dół kolumny zaczynające się kropką.
Z pliku o wczytanej nazwie przepisać do pliku 'wyn1.pas' tylko liczby z przedziału <a,b>, do pliku 'wyn2.pas' tylko liczby z przedziału <c,d>, zaś do pliku 'wyn3.pas' tylko liczby dodatnie dwucyfrowe. Wartości a,b,c,d należy wczytać
Dla listy zdefiniowanej typami: type Tadr=^towar; towar=record nazwa:string; cena:real; nast:Tadr end; napisać funkcję, która wyznacza, ile jest towarów o cenie większej niż cena ostatniego towaru na tej liście (adres początku listy jest parametrem funkcji).
Wczytać ciąg liczb dodatnich zakończony liczbą niedodatnią. Wydrukować dwie pierwsze i dwie ostatnie liczby tego ciągu oraz sumę wszystkich dodatnich liczb ciągu. Przyjąć, że w ciągu są co najmniej 4 liczby.
Wczytać dane do tablic A,B[1..w,1..k] (w,k-stałe). Wydrukować, ile jest kolumn w tablicy A zawierających choć jedną liczbę >10 i ile jest kolumn w tablicy B zawierających choć jedną liczbę >40.
Dany jest plik tekstowy ‘dane.txt’. Utworzyć pliki: ‘a.txt’ i ‘b.txt’ przepisując z pliku danego do pierwszego z nich co najwyżej 10 wierszy kończących się znakiem ‘i’, a do drugiego co najwyżej 20 wierszy kończących się znakiem ‘a’. Wyświetlić zawartość plików.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end; napisać procedurę, która usuwa ostatni element, gdy ma on pola nazwa i cena takie same jak przedostatni element listy (adres początku listy jest parametrem procedury).
Wczytywać liczby, aż do wczytania łącznie 10-ciu jednocyfrowych liczb. Wydrukować ile wczytano wszystkich liczb oraz informację czy więcej wczytano liczb dodatnich, czy ujemnych.
Wprowadzić do tablic X,Y[1..n,1..n] of real (n – stała) liczby z przedziału <-10,10>. W każdej tablicy wyzerować otoczenie największego elementu głównej przekątnej. Wydrukować tablicę kolumnami.
Z pliku 'a.pas' przepisać do pliku 'b.pas' oraz z pliku o nazwie wczytanej przepisać do pliku 'c.pas' te wiersze, w których dwa ostatnie znaki są takie same.
Dla listy zdefiniowanej typami: type Tad=^Tbook; Tbook=record autor, tytul: string; rok: integer; next:Tad; end; napisać procedurę, która drukuje dane o najstarszej lub wszystkich najstarszych książkach na tej liście (adres początku listy jest parametrem procedury).
Wczytywać liczby, dopóki tworzą one ciąg rosnący. Wydrukować średnią arytmetyczną liczb rosnącego ciągu.
Wczytać punkty - rekordy postaci (x, y) do tablicy A,B[1..n,1..n]. Wydrukować, ile punktów z pierwszej ćwiartki ukladu współrzędnych znajduje się pod główną przekątną każdej tablicy.
Z pliku tekstowego o wczytanej nazwie przepisać do pliku ‘wyn1.pas’ wiersz pierwszy i siódmy, a do pliku ‘wyn2.pas’ wiersz trzeci i dziewiąty. Wydrukować zawartość otrzymanych plików.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end; napisać procedurę, która dopisuje na końcu listy dwa elementy wpisując do pól nazwa i cena informacje o najtańszym i najdroższym towarze (adres początku listy jest parametrem procedury).
Wczytywać liczby całkowite, aż do dwukrotnego wystąpienia zera. Policzyć i wydrukować, ile między zerami wystąpiło liczb parzystych oraz średnią arytmetyczną wszystkich wczytanych liczb dodatnich.
Wczytać dane do tablic X,Y[1..w,1..k] (w,k-stałe). W tablicy X wpisać największą jej wartość do elementów pierwszego wiersza, a w tablicy Y jej największą wartość do elementów pierwszego i ostatniego wiersza. Wydrukować tablice.
Z pliku o wczytanej nazwie przepisać do pliku 'wyn1.pas' tylko te wiersze, w których nie ma kropki, zaś do pliku 'wyn2.pas' tylko te wiersze, w których nie ma przecinka.
Dla listy zdefiniowanej typami: type Twsk=^Tnapis; Tnapis=record napis:string; nast: Twsk end; napisać procedurę, która dwa dodatkowe napisy (będące parametrami procedury) wstawia jako drugi i trzeci napis na tej liście. Trzecim parametrem procedury jest adres początku listy.
Wczytywać liczby aż do powtórzenia się pierwszej z nich. Wydukować informację, ile razy potórzyła się sytuacja, że wczytana liczba była większa od swojego poprzednika.
Do tablic A, B [1..n](n-stała) wczytać dane o książkach jako o rekordach postaci (autor, tytul, rok). Dla każdej tablicy wydrukować dane o najstarszej lub wszystkich najstarszych książkach w niej zawartych.
Do pliku ‘DANE.TXT’ wczytywać z klawiatury wiersze, dopóki rozpoczynają się literą. Przepisać z niego do pliku ‘A.TXT’ wiersze kończące się znakami ‘ka’, a do pliku ‘B.TXT’ kończące się znakami ‘ki’. Wyświetlić zawartość wszystkich plików.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end; napisać funkcję wyznaczającą ile jest towarów o cenie zawartej w przedziale określonym przez cenę pierwszego i ostatniego towaru umieszczonego na liście (adres początku listy jest parametrem funkcji).
Wczytać trzy liczby: p,k (p<k) oraz n. Następnie wczytać n liczb całkowitych ciągu i wydrukować jego największa parzystą wartość należącą do przedziału <p,k>.
Wprowadzić dane do tablic: X,Y [1..10,1..15] of real. Policzyć i wydrukować, ile każda tablica ma kolumn o sumie elementów większej od sumy elementów poprzedniej kolumny.
Wczytywać z klawiatury wiersze aż do wiersza zaczynającego się kropką i do pliku o podanej nazwie przepisać wiersze dłuższe niż 5 znaków, zaś do pliku 'w.pas' wiersze dłuższe niż 7 znaków.
Dla listy zdefiniowanej typami: type Twsk=^Tdane;Tdane=record dane:l integer; nast: Twsk end; napisać procedurę, która zamienia miejscami dwa pierwsze elementy na liście (tz. zamienia całe elementy, a nie wartości ich pól). Parametrem procedury jest adres początku listy.
Wczytywać z klawiatury wiersze, aż do napotkania wiersza pustego (o długości zerowej). Wydrukować wiersz pierwszy i dwa ostatnie (lub informację, że w ciągu nie było przynajmniej dwu wierszy).
Wprowadzić dane do tablic A,B,C [1..w,1..k] of integer (w,k-stałe). W każdym wierszu każdej tablicy umieścić w pierwszym i ostatnim elemencie jego największą wartość, jeżeli jest ona parzysta. Wydrukować tablice w postaci tabelki (wierszami).3. Z pliku o nazwie wczytanej wydrukować wiersz najdłuższy spośród n początkowych wierszy, zaś z pliku ‘dane.txt’ wydrukować wiersz najdłuższy spośród k początkowych wierszy (k, n - wczytać, wymusić, by były dodatnie).
4. Dla listy określonej przez typy: type Twsk=^Tel; Tel=record k: integer; nast: Twsk end; napisać procedurę przenoszącą pierwszy element na koniec listy, jeżeli lista posiada więcej elementów o polu k dodatnim niż ujemnym.
Wczytywać z klawiatury liczby, aż do wczytania 30 liczb lub liczby z przedziału <10, 20>. Wydrukować, ile razy liczba ujemna poprzedziła liczbę większą od 5, a ile razy większą od 17.
Wczytać rekordy (x,y) do tablic A,B,C[1..n]. W tablicy A oznaczyć punkty leżące wewnątrz okręgu o promieniu 10 i środku (0,0), w tablicy B oznaczyć punkty leżące wewnątrz okręgu o promieniu 15, w tablicy C oznaczyć punkty leżące wewnątrz okręgu o promieniu 27. Oznaczanie wykonać wypełniając dodatkowe pole rekordu wartością true; pozostałe punkty powinny mieć pole o wartości false.
Z pliku o wczytanej nazwie przepisać do pliku ‘Wyn1’ wiersze zawierające chociaż jeden znak ‘+’ lub ‘-‘, a do pliku ‘Wyn2’ wiersze zawierające chociaż jeden znak ‘*’ lub ‘/’. Wydrukować zawartość otrzymanych plików.
4. Dla listy określonej przez typy: type Twsk=^Tel; Tel=record inf: string; nast: Twsk end;napisać funkcję wyznaczającą, ile jest elementów, których pole inf kończy się literą zawartą w przedziale określonym przez dwa parametry funkcji typu znakowego.
Wczytywać z klawiatury liczby, aż do wczytania liczby mniejszej od pierwszej lub większej od drugiej liczby. Wydrukować średnią arytmetyczną liczb z przedziału określonego przez dwie początkowe wczytane liczby (wymusić na użytkowniku, by pierwsza wczytana liczba była mniejsza od drugiej).
Do tablic A,B [1..w, 1..k] (w,k - stałe) wczytać rekordy postaci (autor, tytul, rok). Wydrukować autora najstarszej książki w 2 kolumnie tablicy A i autora najstarszej książki w 4 kolumnie tablicy B.
Z pliku ‘Dane’ przepisać do pliku ‘Wyn1’ co najwyżej 10 wierszy kończących się literą ‘a’, a do pliku o wczytanej nazwie co najwyżej 15 wierszy kończących się literą ‘i’. Wydrukować zawartość otrzymanych plików.
4. Dla listy określonej przez typy: type Twsk=^Tel;Tel = record x : integer; nast. : Twsk end; napisać procedurę usuwającą dwa pierwsze elementy listy i wstawiającą zamiast nich element zawierający sumę pól x pozostałych elementów.
Wczytać dwie liczby całkowite dodatnie (wymusić takie dane na użytkowniku), a następnie wyznaczać i drukować kolejne liczby ciągu jako sumę dwu poprzednich, aż do przekroczenia wartości g (g też należy wczytać).
Wprowadzić dane do tablic A,B,C [1..w,1..k] of real (w,k-stałe). W każdej kolumnie każdej tablicy zamienić miejscami wartość największą z najmniejszą, jeżeli obie są dodatnie. Wydrukować tablice w postaci tabelki.
Dane są pliki ‘a.txt’ i ‘b.txt’. Wydrukować informację, który plik ma więcej wierszy kończących się dwoma literami, a który więcej wierszy kończących się pięcioma literami.
4. Dla listy określonej przez typy: type Twsk=^Tel; Tel=record k: integer; nast: Twsk end; napisać procedurę przenoszącą ostatni element listy za element o największej wartości pola k.
Wczytywać z klawiatury znaki, aż do wczytania znaku ‘?’ lub trzykrotnego wczytania małej litery. Wydrukować, ile razy obok siebie wystąpiła sekwencja dwóch cyfr, a ile razy trzech cyfr.
Wczytać dane do tablic A,B[1..n,1..n] (n-stała). Wydrukować numery tych kolumn tablicy A, które zawierają najwięcej zer , oraz numery tych kolumn tablicy B, które zawierają najwięcej jedynek (może być kilka takich kolumn w każdej tablicy).
Z pliku ‘dane.txt’, zawierającego wyłącznie liczby całkowite, przepisać do pliku ‘parzyste.txt’ liczby parzyste, do pliku ‘przez3.txt’ - liczby podzielne przez 3, zaś do pliku ‘przez5.txt’ - liczby podzielne przez 5.
Dla listy określonej przez typy:
type Twsk=^Tel; Tel = record x : integer; nast. : Twsk end;napisać funkcję zwracającą sumę pól x co drugiego elementu na liście, poczynając od pierwszego.
Wczytać n>0, ciąg n liczb, a potem jeszcze ciąg liczb dodatnich zakończony niedodatnią. Wydrukować różnicę między największą liczbą z obu ciągów a średnią arytmetyczną wszystkich liczb z obu ciągów.
Wprowadzić dane do tablic X,Y,Z[1..n,1..n] of real (n-stała). W każdej tablicy wyzerować pod główną przekątną wartości większe od średniej arytmetycznej z wartości jej głównej przekątnej. Wydrukować tablice w postaci tabelki (wierszami).
Z pliku o nazwie wczytanej wydrukować n początkowych wierszy oraz te spośród następnych wierszy, które kończą się kropką; z pliku ‘dane.txt’ wydrukować k początkowych wierszy oraz te spośród następnych, które kończą się średnikiem.
Dla listy określonej przez typy: type Twsk=^Tel; Tel=record k: integer; inf: string; nast: Twsk end; napisać funkcję wyznaczającą, ile jest elementów, których pole inf kończy się literą i które mają pole k większe od pola k przedostatniego i ostatniego elementu listy.
Wczytywać z klawiatury znaki, aż do dwukrotnego wystąpienia sekwencji trzech cyfr. Wydrukować, ile wczytano innych znaków niż litery i cyfry.
Do tablic A,B [1..n, 1..n] (n - stała>4) wczytać rekordy postaci (liczba, napis). Najdłuższy napis w 2 kolumnie tablicy A wstawić do wszystkich elementów w jej 3 wierszu o polu liczbowym > 10 , zaś najdłuższy napis w 5 kolumnie tablicy B wstawić do wszystkich elementów w jej 4 wierszu o polu liczbowym >20.
Wczytać z klawiatury do pliku ‘a.txt’ 10 wierszy rozpoczynających się literami z przedziału: ‘A’..’K’, a do pliku ‘b.txt’ 20 wierszy rozpoczynających się literami z przedziału ‘M’..’Z’ (inne pomijać). Wydrukować, który plik zawiera więcej znaków.
Dla listy określonej przez typy:type Twsk=^Tel; Tel = record x : integer; nast. : Twsk end; napisać procedurę wstawiającą element o wartości pola x zadanej parametrem procedury pomiędzy przedostatni a ostatni element listy.
Wczytać ciąg liczb dodatnich zakończony liczbą niedodatnią. Wydrukować średnią arytmetyczną z dwu pierwszych i dwu ostatnich elementów tego ciągu lub informację, że ciąg ma mniej niż 2 elementy.
Wprowadzić dane do tablic X,Y[1..n,1..n] of real (n-stała). W tablicy X zamienić miejscami największe wartości obu przekątnych, gdy obie te wartości są większe od 10, a w tablicy Y - gdy są większe od 20. Wydrukować tablice w postaci tabelki (wierszami).
Z pliku ‘a.pas’ wczytać znaki do tablicy A[1..n], zaś z pliku ‘b.pas’ wczytać znaki do tablicy B[1..n]. Wydrukować ilość liter od ‘b’ do ‘p’ w tablicy A, ilość dużych liter w tablicy A i ilość cyfr w tablicy B.
4. Dla listy określonej przez typy: type Twsk=^Tel; Tel = record x : integer; nast : Twsk end;napisać procedurę usuwającą drugi lub trzeci element listy (ten, który ma większe pole x).
Wczytać ciąg znaków zakończony dwoma jednakowymi znakami. Wydrukować, ile wczytano małych liter.
Wczytać dane do tablicy a[1..n] of Tpkt, gdzie: n – stała; Tpkt – rekord o polach: x, y, które są współrzędnymi punktów. Wydrukować współrzędne punktów o odległości mniejszej niż 10 od P(0,0).
Wczytać z klawiatury dane do tablic x,y[1..n,1..n] of real (n-stała). Wydrukować tablice wierszami. Wydrukować informację, która tablica ma więcej dodatnich elementów nad główną przekątną.
Z pliku ‘nowy.txt’ wydrukować wiersze zaczynające się i kończące literą ‘a’ i zapisać je do pliku ‘w1.txt’, zaś z pliku o nazwie podanej przez użytkownika wydrukować wiersze zaczynające się i kończące się znakiem ‘?’ i zapisać je do pliku ‘w2.txt’.
Wczytywać liczby, aż do wczytania dwóch liczb ujemnych (niekoniecznie po sobie). Wydrukować, ile wczytano liczb większych od 20 oraz średnią arytmetyczną liczb dodatnich.
Wczytać rekordy o polach (x,y) typu real do tablicy A [1..n, 1..n] (n- stała). Zamienić miejscami pola x i y tych elementów, w których suma pól x i y jest ujemna. Wydrukować wierszami tablicę.
Wczytać dane do tablic A,B[1..w, 1..k] of real (w, k- stałe). Wydrukować sumę liczb >10 w pierwszych 2 kolumnach tablicy A i sumę liczb >20 w pierwszych 3 kolumnach tablicy B.
Utworzyć pliki: ‘Dane1.txt’ wpisując do niego 20 wierszy oraz ‘Dane2.txt’ , wpisując do niego 30 wierszy. Wyświetlić zawartość plików. Wydrukować, który plik ma więcej liter.
Wczytywać liczby całkowite, aż do wczytania 10-ciu jednocyfrowych liczb. Wydrukować, ile razy obok siebie wystąpiły dwie jednakowe liczby oraz informację czy więcej wczytano liczb dodatnich, czy ujemnych.
Wczytać dane postaci (liczba, znak) do tablic A, B[1..w,1..k] (w, k-stałe). Wydrukować, ile wewnętrznych elementów w tablicy A zawierających literę ‘a’ lub ‘b’ w polu znakowym ma sumę pól liczbowych czterech najbliższych sąsiadów >10 i ile wewnętrznych elementów w tablicy B zawierających kropkę lub wykrzyknik w polu znakowym ma sumę pól liczbowych czterech najbliższych sąsiadów >23 (elementy wewnętrzne to te, które nie leżą na obwodzie tablicy).
Z pliku 'pa.pas' wczytać dane do tablicy A[1..n] (n- stała), z pliku 'pb.pas' wczytać dane do tablicy B[1..n], zaś z pliku 'pc.pas' wczytać dane do tablicy C[1..n]. Wydrukować wszystkie możliwe iloczyny skalarne tablic.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać procedurę, która usuwa przedostatni element, gdy ma on pola nazwa i cena takie same jak pierwszy element listy.
Wczytać ciąg znaków zakończony kropką. Wydrukować, ile razy wystąpiło słowo ‘end’ w tym ciągu (czyli sekwencja znaków ‘e’, ‘n’, ‘d’).
Wprowadzić do tablic X,Y[1..n,1..n] of real (n – stała) liczby z przedziału (-10,10); pozostałe wprowadzane liczby pomijać. W każdej tablicy wyzerować otoczenie największego elementu głównej przekątnej. Wydrukować tablice kolumnami poczynając od pierwszej kolumny.
Do pliku ‘dane.txt’ wczytywać z klawiatury wiersze, dopóki rozpoczynają się dużą literą. Następnie z tego pliku przepisać do pliku ‘a.txt’ wiersze kończące się znakami ‘a’ lub ‘x’, a do pliku ‘b.txt’ kończące się znakami ‘i’ lub ‘z’. Wyświetlić zawartość wszystkich plików.
Dla listy zdefiniowanej typami: type Tadr=^towar; towar=record nazwa:string; cena:real; nast:Tadr end; napisać funkcję, która wyznacza, ile jest towarów o cenie większej niż łączna cena dwu ostatnich towarów na tej liście; dwu ostatnich towarów nie należy w to wliczać.
Wczytywać liczby całkowite, aż do dwukrotnego wystąpienia zera. Wydrukować, ile między zerami wystąpiło liczb parzystych oraz średnią arytmetyczną wczytanych liczb dodatnich.
Wczytać punkty - rekordy postaci (x, y) do tablic A,B[1..n,1..n] (n-stała). W każdej tablicy przesunąć cyklicznie w prawo elementy kolejnych wierszy leżących nad główną przekątną.
Z pliku ‘w1.txt’ wpisać do tablicy A[1..n] (n-stała) wszystkie przecinki i małe litery od początku tablicy, zaś pozostałe znaki – idąc od końca tablicy, zaś z pliku ‘w2.txt’ wpisać do tablicy B[1..n] (n-stała) wszystkie kropki i duże litery od początku tablicy, zaś pozostałe znaki – idąc od końca tablicy. Wydrukować obie tablice.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać funkcję wyznaczającą ile jest towarów o cenie zawartej w przedziale określonym przez cenę przedostatniego i ostatniego towaru umieszczonego na liście.
Wczytywać napisy aż do wczytania dwóch kolejnych napisów zaczynających się kropką. Wydrukować informację, ile napisów zaczyna się małą literą, ile dużą literą, ile cyfrą, a ile spacją.
Wczytać liczby do tablic X,Y[1..w,1..k] of real (w,k-stałe). W tablicy X wpisać największą jej wartość do elementów pierwszego wiersza, a w tablicy Y jej największą wartość do elementów pierwszego i ostatniego wiersza. Wydrukować tablice.
Z pliku tekstowego o wczytanej nazwie przepisać do pliku ‘wyn1.pas’ wiersz trzeci i siódmy, a do pliku ‘wyn2.pas’ wiersz czwarty i dziesiąty (jeśli wierszy jest mniej, to przepisać tyle , ile jest to możliwe). Wydrukować informację, który z utworzonych plików ma więcej małych liter, a który więcej cyfr.
Dla listy zdefiniowanej typami: type Tad=^Tbook; Tbook=record autor, tytul: string; rok: integer; next:Tad; end; napisać procedurę, która usuwa z listy pierwszą na tej liście książkę, pod warunkiem, że nie jest to książka najstarsza.
Wczytywać ciąg liczb, aż do trzykrotnego wczytania wartości większej od pierwszej wczytanej liczby. Wydrukować średnią arytmetyczną liczb ujemnych oraz ile razy liczba dodatnia poprzedziła zero.
Do tablic A,B[1..w,1..k] (w, k-stałe) wczytać rekordy postaci (nazwa, cena). Wydrukować łączną cenę towarów w tych kolumnach tablicy A, w których pierwsza i ostatnia nazwa mają co najmniej 5 znaków oraz łączną cenę towarów w tych kolumnach tablicy B, w których pierwsza i ostatnia nazwa mają co najmniej 12 znaków.
Z pliku 'a.pas' przepisać do pliku 'b.pas' 3 pierwsze i 2 ostatnie wiersze oraz wszystkie pozostałe nie kończące się kropką, a następnie z pliku 'b.pas' przepisać do pliku o nazwie wczytanej 3 pierwsze i 2 ostatnie wiersze oraz wszystkie pozostałe nie kończące się średnikiem. Przyjąć dla uproszczenia, że w pliku ‘a.pas’ jest co najmniej 5 wierszy.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać procedurę, która dopisuje na końcu listy dwa elementy wpisując do pól nazwa i cena informacje o najtańszym i najdroższym towarze.
Wczytywać znaki aż do momentu, gdy dwa kolejne znaki będą równe dwom pierwszym. Wydrukować ilość wczytanych nawiasów (dowolnych), wliczając w to wszystkie wczytane znaki.
Wprowadzić liczby do tablic X,Y,Z [1..w,1..k] of real (w,k-stałe). Wydrukować, która tablica ma więcej kolumn o sumie elementów większej od sumy elementów pierwszego wiersza.
Dany jest plik tekstowy ‘dane.txt’. Utworzyć pliki: ‘a.txt’ i ‘b.txt’ przepisując z pliku danego do pierwszego z nich co najwyżej 10 wierszy mających co najmniej 5 liter, a do drugiego co najwyżej 20 wierszy mających co najmniej 7 liter. Wyświetlić zawartość utworzonych plików.
Dla listy określonej przez typy: type Tadr=^element; element=record nazwa:string; liczba:real; nast:Tadr end; napisać procedurę, która zamienia miejscami zawartość pierwszego i ostatniego elementu na tej liście.
Wczytywać liczby całkowite, aż do wystąpienia kolejno dwóch zer. Wydrukować informację, czy więcej wczytano liczb podzielnych przez 3, czy przez 5 oraz ostatnią wczytaną liczbę dodatnią.
Wczytać rekordy postaci (liczba, znak) do tablic A,B[1..w,1..k] (w, k-stałe). W tablicy A przesunąć cyklicznie o 1 miejsce w dół kolumny zaczynające się spacją i liczbą większą od 10, zaś w tablicy B przesunąć cyklicznie o 1 miejsce w dół kolumny zaczynające się kropką i liczbą większą od 15.
Z pliku ‘dany.pas’ przepisać do pliku 'wyn1.pas' co najwyżej 10 liczb z przedziału <a,b>, do pliku 'wyn2.pas' co najwyżej 20 liczb z przedziału <c,d>, zaś do pliku o wczytanej nazwie co najwyżej 13 liczb dodatnich dwucyfrowych. Wartości a,b,c,d należy wczytać, wymuszając, by podano a<=b i c<=d.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać funkcję wyznaczającą, ile jest towarów droższych od ostatniego towaru i zarazem droższych od swojego poprzednika.
Wczytać ciąg liczb całkowitych zakończony dwoma następującymi po sobie zerami. Dla każdej wczytanej liczby drukować informację, jaką liczbę wczytano: jednocyfrową, dwucyfrową, trzycyfrową czy jakąś inną.
Wprowadzić liczby do tablic X,Y[1..n,1..n] of real (n – stała). Wydrukować średnie arytmetyczne obu tablic. W tablicy X wyzerować elementy nad główną przekątną większe od średniej arytmetycznej elementów tablicy Y, a w tablicy Y większe od średniej arytmetycznej elementów tablicy X. Wydrukować tablice.
Z pliku tekstowego o wczytanej nazwie przepisać do pliku ‘wyn1.pas’ wiersze od trzeciego do setnego, a do pliku ‘wyn2.pas’ wiersze od dziesiątego do osiemdziesiątego (jeśli wierszy jest mniej, to przepisać tyle, ile jest to mozliwe). Wydrukować informację, który z utworzonych plików ma więcej liter ‘A’, a który liter ‘Z’.
Dla elementów listy zdefiniowanej typami: type Twsk=^cos; cos=record liczba: integer; nast:Twsk end; napisać procedurę, która dopisuje na początku i końcu listy element zawierający liczbę będącą sumą dodatnich pól liczbowych elementów listy.
Wczytywać liczby całkowite aż do momentu, gdy dwie kolejne liczby będą równe dwóm pierwszym. Wydrukować ilość wczytanych liczb parzystych, wliczając w to wszystkie wczytane liczby.
Wczytać dane postaci (liczba, znak) do tablic A, B[1..w,1..k] (w, k-stałe). W tablicy A zastąpić kropki przecinkami, jeżeli pole liczbowe jest większe od 5, zaś w tablicy B zastąpić przecinki średnikami, jeżeli pole liczbowe jest większe od 20. Wydrukować pola znakowe obu tablic po zamianie.
Z pliku 'pa.pas' wczytać dane do tablicy A[1..n] (n- stała), z pliku 'pb.pas' wczytać dane do tablicy B[1..n], zaś z pliku 'pc.pas' wczytać dane do tablicy C[1..n]. Wydrukować wszystkie możliwe iloczyny skalarne tablic.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać procedurę, która dopisuje na końcu listy dwa elementy wpisując do pól nazwa i cena informacje o najtańszym i najdroższym towarze.
Wczytywać ciąg liczb, aż do dwukrotnego wczytania wartości mniejszej od pierwszej wczytanej liczby. Wydrukować średnią arytmetyczną liczb dodatnich oraz ile razy obok siebie wystąpiły dwie jedynki.
Wczytać dane do tablic X,Y[1..n,1..n] of real (n – stała). W każdej tablicy wyzerować otoczenie największego elementu drugiej przekątnej. Wydrukować tablice kolumnami poczynając od ostatniej kolumny.
Do pliku ‘dane.txt’ wczytywać z klawiatury wiersze, dopóki kończą się małą literą. Następnie z tego pliku przepisać do pliku ‘a.txt’ wiersze zaczynające się znakami ‘a’ lub ‘x’, a do pliku ‘b.txt’ zaczynające się znakami ‘i’ lub ‘z’. Wyświetlić zawartość wszystkich plików.
Dla listy określonej przez typy: type Tadr=^element; element=record nazwa:string; liczba:real; nast:Tadr end; napisać procedurę, która zamienia miejscami zawartość dwóch ostatnich elementów na tej liście.
Wczytać ciąg znaków zakończony dwoma następującymi po sobie wykrzyknikami. Dla każdego wczytanego znaku drukować informację, jaki znak wczytano: małą literę, dużą literę, cyfrę czy jakiś inny znak.
Wczytać punkty - rekordy postaci (x, y) do tablic A,B[1..n,1..n] (n-stała). W każdej tablicy zamienić miejscami skrajne elementy tych kolumn, w których element leżący na głównej przekątnej ma sumę pól większą od 10 – w tablicy A oraz od 5 – w tablicy B.
Z pliku tekstowego o wczytanej nazwie przepisać do pliku ‘wyn1.pas’ 7 początkowych wierszy, a do pliku ‘wyn2.pas’ 10 początkowych wierszy (przyjąć, że w pliku danym jest dostatecznie dużo wierszy) . Wydrukować informację, który z utworzonych plików ma więcej kropek, a który więcej przecinków.
Dla elementów listy określonej przez typ: Type adr=^towar; towar=record nazwa:string; cena:real; nast:adr end napisać funkcję wyznaczającą, ile jest towarów droższych od ostatniego lub przedostatniego towaru.
Wczytywać znaki, aż do wystąpienia kolejno dwóch jednakowych znaków. Wydrukować informację, czy więcej wczytano małych liter czy dużych liter.
Wczytać liczby do tablic X,Y[1..w,1..k] of real (w,k-stałe). W tablicy X wyzerować największą wartość pierwszego wiersza, a w tablicy Y - największą wartość drugiego i przedostatniego wiersza. Wydrukować tablice.
Z pliku ‘w1.txt’ wpisać do tablicy A[1..n] (n-stała) wszystkie przecinki i średniki idąc od początku tablicy, zaś pozostałe znaki – idąc od końca tablicy, zaś z pliku ‘w2.txt’ wpisać do tablicy B[1..n] (n-stała) wszystkie znaki zapytania i wykrzykniki od początku tablicy, zaś pozostałe znaki od końca tablicy. Wydrukować obie tablice.
Dla elementów listy zdefiniowanej typami: type Twsk=^cos; cos=record liczba: integer; nast:Twsk end; napisać procedurę, która dopisuje na początku i końcu listy element zawierający liczbę będącą sumą dodatnich pól liczbowych elementów listy.