کد برنامه های حقوق کارمندان و دریافت سرعت وزاویه پیچ زاویه ی چرخ ها

shahab_A

New member
برنامه پاسکال با موضوع حقوق کارمندان براساس پایه گروه:

Program practice 1;
Var
M,E,P,number grop,numberboys:real;
Earning,condition:integer;
Begin
Write('please enter number grop');
Readln(numbergrop);
If(numbergrop>=8)then
Begin
Earning:=200000;
M:=numbergrop-8;
P:=m*50;
Earning:=earning+P;
End;
Writeln;
Begin
Write('please enter condition');
Readln(condition);
If(condition=1)then
Begin
Write('please enter numberboys');
Readln(numberboys);
E:=earning +(numberboys*15000);
Numberboys:numberboys+2;
Earning:=E-(numberboys*5500);
Writeln('earning=',earning:10)
End;
Else
Begin
Earning:=earning-5500;
Write('earning='earning:10)
End;
Readln;
End;
Readln;
End.​
---------------------------------------------------------------------------------------------------

برنامه پاسکال با موضوع دریافت سرعت وزاویه پیچ زاویه ی چرخ ها نسبت به جاده و نوع ترمز وارتفاع ماشین:
Program car2;
Var
A:integer;
Seed,degree,degree of road,stop,heght true ,hight false:real;
Reason:Boolean;
Begin
Write('please enter speed');
Readln(speed);
Begin
If(speed>=40)then
A:=speed div 20;
Degree:=a*1.4;
Write('degree=',degree:6)
End;
Writeln;
begin
Write('please enter speed');
Readln(speed);
If(speed=>60)then
Stop:=abs;
Write('the stop is')
End;
Writeln;
Begin
Write('please enter reason and degree of road');
Height false:=0
Height true:=0
Reason:=false
Readln(reason and degree of road);
If (reason=false)then
A:=(degree of road div5);
Hight true:= height true +(a*3.5);
Write('heght true=',heght true:5:3)
End;
Else
Begin
A:=(degree of road div5);
Hight false:=heght false + (a*3.5);
Write('heght false=',heght false:5:3)
End;
Readln;
End.

 

Similar threads

بالا