Компьютерное моделирование. Основы алгоритмизации

  • Published on
    15-Jun-2015

  • View
    694

  • Download
    5

Embed Size (px)

Transcript

  • 1. 1 . 2 . . . 3 . 4 . . 5 1.

2. 1 . . . : - , - ' : - - - - : (' ) 3. 1 . , , , , , , , . , ' , ' ' (-), , ' ' 4. 1 . 5. 1 . , ', ' ( ), , ', , 6. 1 . , ', ' , , 7. 1 . ' ' , ' () ' 8. 1 . :', ( ) () , , , , ' ( ) 9. 1 . MS OFFICE ': , , H ClCl : - (2HCl+Zn)Zn HHZn ClCl : - H 10. 1 . : .., .., .., .. 1, .5 1 MS Office : 11. . 2 . . . : - - - : - - - : -> -> 12. 2 . ax b c a, b, c, x x 1. 2. 3. 1. ? 4. ? 2. 3. ? 4. ' ? 1 2 4,5 ', 13. 2. . 14. 2. . . , . - , . . 15. 2. . ' , . 16. 2 . A 180 , . A,B,C ++=180 :, .B ++=180 :C 17. . - 2 18. 2 . FREE PASCAL ----------------------------------------------------------------------------------------------------Program Zadacha1; Var a,b,c: real; Begin Write (vvedit znachennya kutiv trukytnuka = ); Readln (a,b,c); If a+b+c=180 then writeln ( ISNUE ) else writeln ( NE ISNUE ); End. 19. 2 . 1. 2. , 3. 1. ? 2. 3. 4. 10- 5. 20. 2 . -y=2x+1 2x+8x+16=0 2x+16y=R 2x+1 =m 3yPochatok Vvestu a,b,c y=2x+1 Vuvestu yKinetz 21. 2 . 22. 3 . . : - - - - - - : - - : -> -> - 23. 3 . 1. ? 2. ? 3. ? 1: ? 2 : ? 24. . 3 ( ) , a,b,c,d,x ( )y=(ax+b)(cx+d)y=(ax+b)(cx+d) ( ) 25. 3 . 1 2 1 26. 3 . 1 2 27. 3 . K=4 28. 3 . 1. (2 ) 2. , (3 ) 3. . , (3 ) 4. , , , , (4 ) 29. 3 . 1 3 a,b a,b S=ab P=2(a+b) S, P a>b b,a a,b 30. 3 . 1. 3 (.. .) 2. , 100. , , 25 , 5 , , 45 , 5. (11 ) 31. 4 . . ' ' '. , . : - ' : - - : - - - Pascal 32. 4 . . ' 1. (). , 2. ( ) . . : , . ' 33. 4 . . * : . , 34. 4 . . ' IDE (Integrated Development Enviroment) - ' , 35. 4 . . ' !!! . PASCAL1. 2. 3. 4. , PROGRAM (, program PLOSCHA2; ) VAR , . : BEGIN END ( BEGIN . END ) , ' 36. 4 . . ' 5. write() writeln() , read() readln() , ' . 6. : - ; ( ) - END . - - WRITE WRITELN pidkazka (. !!!) - READ READLN READLN(a, b, c ) 7. IF THEN..ELSE - , SQR()- , SQRT() 37. 4 . . * 8. REAL, INTEGER , , , 9. := , (+ , - , * , / ) 1 . a b. S 38. 4 . . ' 1. Run 1. Compile 2. 2Command 2. 2Command 3. 3Command 3. 3Command Vvedit chuslo a= 1 . a b. 5 S Vvedit chuslo b= Program sumachisel; -' 13 var a,b, S: real; - S=18.E01+. Begin - / ' Vvedit chuslo a= write(vvedit chuslo a=); - 1 write(vvedit chuslo b=); - 2 read(a); - 1 read(b); - 2 S:=a+b; - S writeln(Suma chisel S=); - end. - ////// 39. 4 . . ' DIV A div B MOD A mod B 40. . . ' 4 x (4 )y2 ( x 3) 1 x2 2 . , (3 ) - (+2 ) . , (6 ) 41. 4 . . ' Program zadacha1; Var a,b:real; Sa, Sg:Real; Begin write(vvedit dovilni chisla a i b ); readln(a, b); Sa:=(a+b)/2; Sg:=sqrt(a*b); Writeln(Sa= ,Sa); Writeln(Sg= , Sg); End. 42. 4 . . ' Program zadacha2; Var x:integer; y:integer; Begin write(vvedit tcile chislo= ); readln(x); y:=(2*(x-3)+1)/(sqr(x)+2); Writeln(Y( ,x, )= ,y); end. 43. 4 . . * Program zadacha3; Var x:integer; a,b,c:integer; s,d:integer; Begin Write(vvedit trohznachne chislo = ); Readln (x); a:=x div 100; b:=(x div 100) mod 10; c:= x mod 10 s:=a+b+c; d:=a*b*c; Writeln(S( ,x, ) = , s); Writeln(D( ,x, )= , d); End. 44. 4 . . ' yx 2 14 x 48 5 x 3 4 x 2 3x 2 x 1 .1ba c .21. . , , . (4 ) 2. -15