: ,...
This presentation is the property of its rightful owner.
Sponsored Links
1 / 17

Основные алгоритмические структуры: линейные, разветвляющиеся,  циклические PowerPoint PPT Presentation


  • 62 Views
  • Uploaded on
  • Presentation posted in: General

Основные алгоритмические структуры: линейные, разветвляющиеся,  циклические. Пример: программа, выводящая на экран сообщение: «Привет! Меня зовут Саша!». Линейная структура программы. REM Первая программа PRINT “Привет! Меня зовут Саша!” END. Пример: программа, складывающая два числа.

Download Presentation

Основные алгоритмические структуры: линейные, разветвляющиеся,  циклические

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


6062852

: ,,


6062852

: , : ! !

.

REM PRINT ! !END


6062852

: ,

REM a = 5b = 6c = a + bPRINT ": ", cEND

REMDIM a, b, c AS INTEGERa = 5b = 6c = a + bPRINT ": ", cEND


6062852

: .

REM INPUT " ", INPUT " b", bs = a * bPRINT " : ", sEND


6062852

:

CLS

REM INPUT " ", INPUT " b", bc = SQR(2*a*b)/(a+b)PRINT : ", END


6062852

: .

REM INPUT " ", rPI = 3.14l = 2 * PI * rs= PI * r * rPRINT " : ", lPRINT " : ", sEND


6062852

.

: , , .

REM - INPUT " ", IF a=7 THEN PRINT " "END


6062852

: , , -

REM ...INPUT " ", INPUT " b", bIF a>b THENPRINT " : ", a=2*aELSEPRINT " : ", b=2*bEND IFPRINT ": ", cEND


6062852

REM ...INPUT " ", INPUT " b", bIF a=b TNENPRINT " "=2*aELSE IF a>b THEN PRINT " : ", a =2*a ELSE PRINT " : ", b =2*b END IFEND IFPRINT ": ", cEND


6062852

: . .

REM INPUT " a: ", INPUT " b: ", bINPUT " c: ", cd=b*b-4*a*cIF d<0 THENPRINT " "ELSE IF d=0 THENx=-b/(2*a) PRINT " : ", x ELSE x1=(-b-SQR(d))/(2*a) x2=(-b+SQR(d))/(2*a) PRINT " : ", x1, x2 END IFEND IFEND


6062852

"".

:

REM INPUT " ", aSELECT CASE aCASE 1PRINT ""CASE 2PRINT ""CASE 3PRINT ""...CASE 10PRINT ""CASE ELSEPRINT ""END SELECTEND


1 100

.: 1 100. :

REM1100PRINT 1PRINT 2PRINT 3PRINT 4...PRINT 98PRINT 99PRINT 100END

REM1100FOR I=1 TO 100PRINT INEXTEND


6062852

: .

REM FOR I=10 TO 99s=s+INEXTPRINT " = ",sEND


6062852

: ( : !). - 1 . , 5!() -5!=1*2*3*4*5

REMa=5f=1FOR I=1 TO af=f*INEXTPRINT fEND


6062852

: .

REMa=0chislo=10DO WHILE a<chisloPRINT aa=a+1LOOPEND


6062852

, :

REM DO WHILE a=aPRINT " "LOOPPRINT " "END


6062852

: .

REMDIM a, chislo, s AS INTEGERINPUT ": ", chisloa=chisloDOs=s+a MOD 10a=a/10a=INT(a)LOOP UNTIL a=0PRINT "",chislo ,": ", sEND


  • Login