Question

Witam, potrzebuje przerobić program z C++ na Pascala.

// Wyszukiwanie liniowe
//---------------------------
#include <iostream>

using namespace std;

int Szukaj(int T[], int n, int k, int p)
{

for(int i = p; i < n; i++)
if(T[i] == k) return i; return -1;

}

int main()
{

int *Z,n,k,i;
cin >> n;
Z = new int [n];
for(i = 0; i < n; i++) cin >> Z[i];
cin >> k; cout << endl << Szukaj(Z,n,k,0) << endl << endl;
delete [] Z;
return 0;

}

Z góry dziękuje.

Answer 1

uses CRT; Type tablica=array [1..20] of integer; var t:tablica; y:integer; Procedure ZapiszTablice (var t:tablica); var i:byte; begin Randomise; for i:=1 to 20 do t[i]:= random (100); end; Function FindFirst(n:byte; t:tablica; y:integer) : integer; var i:byte; begin while (i<=n) and (y<>t[i]) do i:= i+1 if y= t[i] then FindFirst:= i else FindFirst:= -1; end; Procedure PiszTab (t:tablica); var i:byte; begin for i:=1 to 20 do write (t[i]:4); writeln; end; begin clrscr; writeln ('wyszukiwanie elementu w zbiorze nieuporzadkowanym'); writeln ('podaj liczbe, ktorej szukasz: '); readln (y); if FindFirst (20, t, y)= -1 then writeln ('brak szukanego elementu w zbiorze'); else writeln ('szukany element wystapil po raz pierwszy na pozycji ', FindFirst (20,t,y)); repeat until keypressed; end.