Basic256 - úvod do programování Příklady
ing. petr polách 1
Basic 256 input, print
Př.: Vytvořte program pro součet dvou čísel: input "Zadej a: ", a input "Zadej b: ", b print a+b
input "Zadej a: ", a input "Zadej b: ",b c=a+b print a+" + "+b+" = "+c
Nápověda - F1
2
Basic 256 if then else, end if Vytvořte program pro výpočet podílu dvou čísel Vytvořte program, který rozhodne, zda je vložené číslo kladné nebo záporné input "Zadej a: ", a If a>=0 then print "číslo " +a+ " je kladné nebo rovno nule" else print " číslo "+a+ " je záporné " input "Zadej a: ", a If a>=0 then print "číslo " +a+ " je kladné nebo rovno nule" If a<0 then print " číslo "+a+ " je záporné "
3
Basic256 if then else, endif, Př.: Vytvořte program který určí, které ze dvou vložených čísel má větší druhou mocninu input "Zadej a: ", a input "Zadej b: ", b aa=a^2 bb=b^2 if aa>bb then print "vetsi druhou mocninu má cislo " +a else print "vetsi druhou mocninu má cislo " +b End if input "Zadej a: ", a input "Zadej b: ", b if (a^2)>(b^2) then print "vetsi druhou mocninu má cislo " +a else print "vetsi druhou mocninu má cislo " +b End if
4
3. If / Then / Else/End if - shrnutí Větvení programu. Syntaxe: if podmínka then prikaz if podmínka then prikaz1 else prikaz2
if podmínka then příkaz_1 příkaz_2 . příkaz_n end if if podmínka then příkaz_1 příkaz_2 . příkaz_n else příkaz_11 příkaz_12 . příkaz_1n end if
Příklad: Vytvořte program, který po zadání čísla nám sdělí, zda je zadané číslo větší nebo menší nebo rovno deseti. input "Číslo: ", a if a>10 then print "Větší než deset" else print "Menší nebo rovno deseti" end if
5
4. If / Then / Else/End if DÚ - Př.: Vytvořte program pro Výpočet kořenů kvadratické rovnice. Po zadání a,b,c nám program vrátí x1 a x2, nebo nám sdělí „Tato rovnice nemá řešení v oboru reálných čísel“. input "Zadej a: ", a input "Zadej b: ", b input "Zadej c: ", c D=b^2-4*a*c if D<0 then print "Tato rovnice nemá řešení" else x1=(-b+D^(1/2))/(2*a) x2=(-b-D^(1/2))/(2*a) print " x1= " + x1 print " x2= " + x2 end if
6
1. Cyklus For / Next Počítadlo – předem známe počet opakování – nevyhodnocuje se splnění podmínky Opakuje řadu příkazů uzavřených mezi for-next tolikrát, kolik je určeno konstrukcí start-stop-step. (Pokud je step =1, nemusí se uvádět). Příklad: Syntaxe: for i = start to stop [ step krok ] příkaz_1 příkaz_2 . příkaz_n next i
for i = 1 to 10 step 2 a=i^2 print i+" na druhou je "+a next i
7
2. Cyklus For / Next Př. Napište program, který vypíše do dvou sloupců vždy číslo a jeho druhou mocninu počínaje jedničkou a konče zadaným číslem. input "Zadej číslo: ",n for i=1 to n print i+ " ;"+ i^2 next i Př. Napište program, který vypíše pod sebe prvky aritmetické posloupnosti po zadání a1, d a an (poslední člen). input "a1: ",a1 input "d: ",d input "an: ",an for i=a1 to an step d print i next i
8
3. Cyklus For / Next Napište program, který po zadání a1, d a n vypíše n-prvků aritmetické posloupnosti dané proměnnými a1 a d. input "a1: ",a1 input „d: ",d input "n: ", n for i=1 to n print a1 a1 =a1+d next I Vytvořte program pro výpočet faktoriálu přirozeného čísla s použitím cyklu for input " Zadej číslo: ",n input " Zadej číslo: ",n f=1 f=n for i=1 to n-1 for i=n to 2 step -1 n=n-1 f=f*i f=f*n print f next i next i print "faktoriál je: " + f print "faktoriál čísla "+ n + " je: " + f
9
1. Cyklus Do / Until Cyklus s podmínkou na konci. Opakuje řadu příkazů uzavřených mezi do-until až do splnění podmínky Syntaxe: do příkaz_1 příkaz_2 . . příkaz_n until podmínka
Příklad: s=0 do input "Zadej číslo: ",a s=s+a until a=0 print s
Upravte program tak, aby po vložení nuly vrátil počet vkládaných čísel. 10
2. Cyklus Do / Until Napište program, který po zadání a1, d a an vypíše s využitím cyklu Do/Until prvky aritmetické posloupnosti dané proměnnými a1 a d po an input "a1: ",a1 input "d: ",d input "an: ", an do print a1 a1=a1+d until a1 >= an
11
3. Cyklus Do / Until Cyklus s podmínkou na konci. Upravte program tak, aby po vložení nuly vrátil průměr vkládaných čísel.
Příklad: n=0 s=0 do input "Zadej číslo: ",a s=s+a n=n+1 until a=0 print s/n
12
4. Cyklus Do / Until Př DÚ.: Vytvořte program, který po zadání řady kladných a záporných čísel ukončeném vložením nuly vrátí zvlášť součet kladných a součet záporných čísel. P=0 N=0 do input "a:",a if a>0 then P=a+P if a<0 then N=a+N until a=0 print P print N
13
1. Cyklus While / End While Cyklus s podmínkou na začátku. Opakuje řadu příkazů uzavřených mezi while-end while dokud je splněna podmínka Syntaxe: while podmínka příkaz_1 příkaz_2 … příkaz_n end while
Příklad: s=0 while s<20 input "Zadej číslo: ",a s=s+a end while print s
14
Práce se soubory (pouze pro zájemce)
open (file_number, file_name) otevře soubor file_name pod označením file_number reset (file_number) vyprázdní soubor file_number write (file_number, string_expr) zapíše řetezec string_expr na konec otevřeného souboru file_number writeline —“— a odřádkuje read (file_number) přečte řetězec znaků oddělený mezerou, tabem nebo novým řádkem ze souboru file_number readline (file_number) přečte řádek ze souboru file_number close (file_number) zavře soubor file_number) open (1,"c:\cv\cv.txt") reset(1) kill (file_name) vymaže soubor file_name) eof(file_number) vrací true nebo false – příznak dosažení konce souboru for i=1 to 10 a$ = i^2 writeline (1, a$) next i while not eof(1) b$ = read(1) a=float(b$) print a*1.23 end while close(1)
15
