تمرین پاسکال

[downtownboy]

برنامه ای بنویسید كه حاصلجمع مضارب 5 بین 0 تا 100را به دست آورد

کد:
Begin
Sum:=0;
For I:=1 to 20 do
Begin
Sum:=sum+i*5;
End;
Writeln(sum);
End.

[downtownboy]

برنامهاي كه روزو ماه را در حافظه هاي d و m گرفته و مشخص مي كند آن روز جندمين روز سال است

کد:
10 CMP M, 6
20 JG 70
30 SUB M, 1, A
40 MUL A, 31, A
50 ADD A, D, A
60 JMP 110
70 SUB M, 7, A
80 MUL A, 30, A
90 ADD A, 186, A
100 ADD A, D, A
110 END

تكه برنامه پاسكال:

کد:
if m>6 then
A:=(m-7)*30+186+D
else
A:=(m-1)*31+D;

[downtownboy]

برنامه ای بنویسید كه دو عدد را از ورودی دریافت و اعداد ما بین این دو عدد را چاپ كند

کد:
Begin
Writeln('enter a,b');
Readln(a,b);
For I:= a to b do
Writeln(i);
End.

[downtownboy]

برنامه ای بنویسید كه با یك حلقه for اعداد بین100..1 و738..353و 950..940 را چاپ كند

کد:
Begin
For i:=1 to 950 do
Begin
If ( i>=1) and (i<=100) then
Writeln(i);
If (i>353) and (i<=738) then
Writeln(i);
If (i>=940) and (i<=950) then
Writeln(i);
End;
End.

[downtownboy]

معادل برنامه بالا با استفاده از دستور case :

کد:
Begin
For i:=1 to 950 do
Case I of
1..100,353..738,940..950: writeln(i);
end;
end.

[downtownboy]

برنامه ای بنویسید كه مضارب 7 بین 1 تا 100 را چاپ كند

کد:
Begin
For i:= 1 to 100 do
Begin
If I mod 7 = 0 then
Writeln(i);
End;
End.

[downtownboy]

برنامه ای بنویسید كه تعداد مضارب 5و7 را در بازه 231~846 چاپ كند.

کد:
Begin
K:=0;
C:=0;
For i:=846 downto 231 do
Begin
If I mod 5 = 0 then
C:=c+1;
If I mod 7 = 0 then
K:=k+1;
End;
Writeln('5=',c,'7=',k);
End;
End.

[downtownboy]

برنامه ای بنویسید كه حقوق پایه وتعداد فرزندان 100 كارگر را از ورودی دریافت و مبلغ حقوق آنها را بر اساس فرمول زیر حساب كند

1000*تعداد فرزند + حقوق پایه = حقوق كل

کد:
Begin
For i:=1 to 100 do
Begin
Writeln('enter salary and number of children');
readln(salary,num);
kol := salary + num * 1000;
writeln(kol);
end;
end.

[downtownboy]

برنامه ای بنویسید كه دو عدد را از ورودی دریافت و چنانچه عدد اول در بازه 0 تا 5 بود توان دوم عدد دوم را چاپ كند و چنانچه 68 بود حاصلضرب دو عدد را چاپ كند در غیر اینصورت مقادیر مجاز را چاپ كند

کد:
begin
writeln('enter two number');
readln(a,b);
case a of
0..5 :writeln(b*b);

68:writeln(a*b)

else
writeln('enter 0..5 or 68');
end;
end.

- معادل برنامه بالا با دستور If :

کد:
Begin
Writeln('enter 2 number');
Readln(a,b);
If (a>=0)and(a<=5) then
Writeln(b*b)
Else
If a=68 then
Writeln(a*b)
Else
Writeln('enter 0..5 or68');
End.