Question

Prosze mi pomudz w napisaniu programu w programie Turbo Pascal

1. Stwórz program, który z tablicy liczb całkowitych np. 6 elementowej (zadeklarowanej wcześniej w programie) wybierze tylko te, które należą do przedziału od -4 do 4.

2. Napisz program, który spowoduje wydrukowanie na ekranie liczb nieparzystych dodatkowo niepodzielnych przez 2 oraz z przedziału od 0 do 14.

3. Stwórz program z wykorzystaniem tablicy jednowymiarowej oraz przy wykorzystaniu pliku tekstowego. W pliku tekstowym umieść liczby całkowite - osobno w każdym wierszu. Zadaniem programu jest wczytanie do tablicy liczb z pliku, a następnie wypisanie z tej tablicy liczb podzielnych przez dwa.

4. Napisz program, który zliczy ile razy w podanym ciągu (wpisanym z góry w programie) występują znaki L,P,T.

Answer 1

Uwaga: dla zadania 3 w katalogu z kodem powiniem byc tez plik liczby.txt z liczbami zapisanymi tak jak w zadniu jedna liczba w kazdej linii.

W razie potrzeby odpowiem na wszelkie pytania. : )

 

 

program zad1;
const
 NMAX = 6;
var
 i: integer;
 x: array[1..NMAX] of integer;
begin
 writeln('Wprowadz liczby (',NMAX,')');
 for i := 1 to NMAX do
 begin
  write('Podaj liczbe ', i, ': ');
  readln(x[i]);
 end;
 writeln('Liczby w przedziale od -4 do 4 to:');
 for i := 1 to NMAX do
 begin
  if (x[i] > 4)  then continue;
  if (x[i] < -4) then continue;
  writeln(x[i]);
 end;
end.

 

 

 

program zad2;
var
 i: integer;
begin
 for i := 0 to 14 do
 begin
  if (i mod 2 = 1) then writeln(i);
 end;
end.

 

 

 

program zad3;
const NMAX = 10;
var
 plik: TextFile;
 tab: array[0..NMAX] of integer;
 i,lp: integer;
begin
 Assign(plik,'liczby.txt');
 reset(plik);
 lp := 0;
 while ((lp <= NMAX) and (not (EOF(plik)))) do
 begin
  readln(plik, tab[lp]);
  lp := lp + 1;
 end;
 Close(plik);
 for i := 0 to lp - 1 do
 begin
  if (tab[i] mod 2 = 0) then writeln(tab[i]);
 end;
end.

 

 

 

program zad4;
var
 x: string;
 i, licznik: integer;
begin
 x := 'ADLSAWPETTAJG';
 licznik := 0;
 for i := 1 to length(x) do
 begin
  if (x[i] = 'L') then licznik := licznik + 1;
  if (x[i] = 'P') then licznik := licznik + 1;
  if (x[i] = 'T') then licznik := licznik + 1;
 end;
 writeln('W ciagu ', x , ' jest ', licznik, ' L lub P lub T');
end.