Results 1 to 6 of 6
Thread: Pascal
Hybrid View
-
31st March 2010 19:57 #1Registered User
Join Date: Mar:2010
Location: sofia
Posts: 2
Pascal
!
Pascal, , . , , , a . ??
-
... , .
7:
. 1
, , , . . . , - .1
. 1:
:= TRUE
CASE
Flag:= false Flag:false
, , ,
Flag - false -
|
True
CASE
. 2
, , . .
. 3
, . .
:
.1
, Value , AmOt. .
.2
, . 10 .
.3
, 0 N, , N . . 3.7
x>n
true |
| |
False
| |
| (:=1)
| |
| (:=*)
| |
|
| |
| (:= +1)
| |
| A*X>N-----False
|________________________|
|
k
.4
, Sum 1 000 000, Lih. .
!
-
31st March 2010 20:04 #2
-
31st March 2010 21:52 #3Registered User
Join Date: Mar:2010
Location: sofia
Posts: 2
, ... ...
, , - ?!
, , , , . , , , , ...
.. , / .
, , :
, (5.3) , . , - .1.5.
F(x)=0, <= 1
F(x)= 1,126x, 1< <=2
F(x)= 0,232 2<<=3
F(x) = 1,16x > 3
Program zad_5.1;
Uses
Wincrt;
Var
X: integer;
Y: real;
Begin
Write (Vuvedete X); Read (x);
If x <= 1 then y:=0;
If (x>1) and (x <= 2) then y:=1.126*x;
If (x>2) and (x <= 3) then y:=0.232*x;
If (x>3) then y:=1.16*x;
Readln;
End.
-
19th April 2011 21:05 #4Registered User
Join Date: Feb:2010
Location: Bulgariq
Posts: 34
! Pascal.
:
, :
: , , : "n" : "n" , ( ), , , .
: : :
3.99 180 .
.
300 .
-
31st March 2010 20:08 #5
. , .
.EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
19th April 2011 21:07 #6
.
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|






Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in