Komandinis REXX tipo failas

IF dar = B THEN EXIT
toliau:
cls
SAY " Sis skaiciuotuvas atlieka keleta naudingu funkciju: "
SAY ""
SAY " Pasirinkite viena is veiksmu:"
SAY " Dvieju skaiciu sudetis 1"
SAY " Dvieju skaiciu atimtis 2"
SAY " Dvieju skaiciu daugyba 3"
SAY " Dvieju skaiciu dalyba 4"
SAY " Skaiciaus kelimas laipsniu 5"
PULL rinkis
SELECT
WHEN rinkis = 1
THEN CALL sudetis
WHEN rinkis = 2
THEN CALL atimtis
WHEN rinkis = 3
THEN CALL daugyba
WHEN rinkis = 4
THEN CALL dalyba
WHEN rinkis = 5
THEN CALL laipsnis
OTHERWISE DO
SAY " Tokia operacija negalima, bandykite dar karta"
PAUSE
CALL toliau
END
END
sudetis:
SAY " Prasome ivesti du skaicius"
pull a
pull b
sum = a+b
SAY "Gauta suma yra "sum
CALL dartoliau
atimtis:
SAY " Prasome ivesti du skaicius"
pull a
pull b
sum = a-b
SAY "Gautas skirtumas yra "sum
CALL dartoliau
daugyba:
SAY " Prasome ivesti du skaicius"
pull a
pull b
sum = a*b
SAY "Gauta sandauga yra "sum
CALL dartoliau
dalyba:
SAY " Prasome ivesti du skaicius"
pull a
pull b
IF b = 0 THEN CALL help
sum = a/b
SAY "Gautas dalmuo "sum
CALL dartoliau
laipsnis:
SAY " Prasome ivesti skaiciu"
PULL a
SAY " Dabar iveskite laipsni"
PULL b
IF b = 0 THEN DO
sum = 1
SAY "Gautas skaicius yra "sum
END
ELSE IF b > 0 THEN DO
sum=a
DO b-1
sum=sum*a
END
SAY "Gautas skaicius yra "sum
END
ELSE DO
SAY" Su neigiamu laipsniu kazkas negerai"
SAY" Pabandykite isvengti veiksmo"
PAUSE
CALL toliau
END
call dartoliau
dartoliau:
SAY ""
SAY " Pasirinkite tolimesnius veiksmus 1,2,3"
SAY ""
SAY " Toliau dirbti su atsakymo reiksme 1"
SAY " Grizti i pradzia 2"
SAY " Iseiti 3"
PULL nu
SELECT
WHEN nu = 1
THEN CALL prates
WHEN nu = 2
THEN CALL begin
WHEN nu = 3
THEN EXIT
OTHERWISE DO
SAY " Sis veiksmas negalimas!!!Bandykite dar karta"
PAUSE
END
CALL dartoliau
END
prates:
cls
SAY ""
SAY " Jusu gautas rezultatas...

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!