مثالی ساده با مالتی پاسکال

[فرزانه معینی]

سلام من یه برنامه ساده با مالتی پاسکال می خواستم. ممنونم می شم کمکم کنید با تشکر

[noavarangermi]

برنامه زیر حروفی را از ورودی خوانده و تعداد تکرار آن حرف را به صورت موازی در یک آرایه شمرده و در خروجی چاپ مي*کند. این برنامه برای نگه داشتن نتیجه از متغیر اشتراکی n استفاده می*کند.

Program CountChar;
var
    A: array[1..500] of Char;
    i,val,n: Integer;
    L: Spinlock;
begin
{...}
n:=0;
readLn(val);
forall i:=1 to 500 grouping 10 do
    if A[i]=val then
        begin
        Lock(L);
        n:=n+1;
        Unlock(L);
        end;
writeLn(‘Answer is: ‘, n);
{...}
end.

[noavarangermi]

برنامه زیر با استفاده از دستور forall و 200 پردازه که بطور موازی روی 200 عنصر آرایه اجرا می شود، ریشه دوم یا جذر هر عنصر را محاسبه کرده و در همان سلول حافظه ذخیره می کند.

	Program Squareroot;
	var
	    A: array [1..200] of Real;
	    i: Integer;
	begin
	    {...}
	    forall i:=1 to 200 do
	        A[i]:=sqrt(A[i]);
	    {...}
	end.

[noavarangermi]

برای دانلود برنامه مالتی پاسکال جهت برنامه نویسی موازی از لینک زیر می تونید استفاده کنید.

http://dl.noavarangermi.ir/dl/forum/...scal/mpwin.rar