Cyklisk algoritm IKT pascal exempel. Presentation om datavetenskap på ämnet "Algorithmer för cyklisk struktur
Läs också
Bild 2
Planen
Begreppet en loop Loop statement för Loop While Loop Repeat Litteratur
Bild 3
Litteratur
Kastornov A.F., Evstratova G.A. Pascal programmeringsspråk: handledning för universiteten. - Cherepovets: State Educational Institution of Higher Professional Education ChSU, 2010. - 117 sid. - Bibliografi: P.114. Elektronisk lärobok om programmeringsspråket Pascal /http://pascal.guti.ru Plan
Bild 4
Begreppet en cykel
Algoritmer för att lösa många problem är cykliska, för att uppnå resultatet specifik sekvensåtgärder utförs flera gånger. Till exempel visar ett kunskapskontrollprogram en fråga, accepterar svaret, lägger till ett betyg för svaret till totalpoängen och upprepar sedan dessa åtgärder tills ämnet svarar på alla frågorna. Eller för att till exempel söka efter det önskade efternamnet i listan bör du kontrollera det första efternamnet i listan för att se om det stämmer med det sökta, sedan det andra, tredje osv. tills önskat efternamn hittas eller slutet av listan nås.
Bild 5
En algoritm där det finns en grupp av satser som exekveras flera gånger kallas cyklisk. Gruppen av upprepade påståenden kallas loopens kropp. I Pascal kan loopar implementeras med For-, While- och Repeat-loopsatserna. Planen
Bild 6
För slingoperatör
Operatorn For loop används när slingans kropp måste exekveras flera gånger och antalet repetitioner är känt i förväg.
Bild 7
1:a formen av att skriva For loop-operatorn
Den första formen av att skriva For-operatorn ser generellt ut så här: ForCounter:=Start_valuetoFinal_valuedoOperator; Where For, to, do är funktionsord. En räknare är en ordningsvariabel (vanligtvis ett heltal) som bestämmer hur många gånger slingan ska upprepas. Antalet repetitioner beräknas med formeln: Final_value – Initial_value+1. End_Value måste vara större än eller lika med Start_Value.
Bild 8
Om slingans kropp består av flera operatorer, så ser den första formen av att skriva operatorn For ut så här: ForCounter:=Start_valuetoFinal_valuedo Begin (Loop body) End;
Bild 9
Låt oss titta på algoritmen för For-slingan i den första formen av skrivning. Räknaren tilldelas ett Initial_-värde. Villkoret kontrolleras: Är räknarvärdet större än End_value? Om villkoret är sant (Ja), slutar slingan. Om villkoret är falskt (Nej), så exekveras slingans kropp, då ökas räknarvärdet med ett och villkoret kontrolleras igen, d.v.s. klausul 2.
Bild 10
2:a formen av att skriva For loop-operatorn
Den andra formen av att skriva For-operatorn ser generellt ut så här: For Counter:=Start_valuedowntoFinal_valuedoOperator; Var: För, ner till, do är funktionsord. En räknare är en ordningsvariabel (vanligtvis ett heltal) som bestämmer hur många gånger slingan ska upprepas. Antalet repetitioner beräknas med formeln: Start_value – End_value+1. Start_Value måste vara större än eller lika med End_Value.
Bild 11
Om slingans kropp består av flera operatorer, så ser den andra formen av att skriva operatorn For ut så här: ForCounter:=Start_valuedowntoFinal_valuedo Begin //Loop body End;
Bild 12
Låt oss betrakta algoritmen för For-slingan i den andra formen av notation: Räknaren tilldelas ett Initial_-värde. Villkoret kontrolleras: Är räknarvärdet mindre än End_value? Om villkoret är sant (Ja), slutar slingan. Om villkoret är falskt (Nej), så exekveras slingans kropp, då minskas räknarvärdet med ett och villkoret kontrolleras igen, d.v.s. klausul 2.
Bild 13
För slingoperatör
programEx1; var i, n:heltal; (i – räknare, n – erforderligt antal stjärnor) s:string;(s – genererad sträng av stjärnor) begin Writeln("Ange antalet stjärnor"); (frågar antalet stjärnor) Readln(n); (användaren anger antalet stjärnor n) s:=""; (bildandet av en sträng av asterisker börjar med en tom sträng) (Strängen bildas med hjälp av en For-loop. Räknarens initiala_värde är 1, Det slutliga_värdet är det erforderliga antalet stjärnor n.) fori:= 1 till n do s :=s+"*"; (vid varje steg i slingan är en asterisk limmad på linjen) Writeln(s) (en rad skrivs ut) Readln; slutet. Planexempel: Programmet genererar en sträng av stjärnor. Antalet stjärnor i en rad bestäms av användaren.
Bild 14
Medan Loop
While-slingan används när antalet repetitioner av loopkroppen under programutveckling är okänt och kan endast fastställas medan programmet körs. I allmänhet är While-satsen skriven enligt följande: While Condition doOperator; Där While, do är funktionsord. Villkor är ett logiskt uttryck som bestämmer fortsättningen av slingan.
Bild 15
Om slingans brödtext består av flera satser, skrivs While-slingan på följande sätt: WhileCondition do Begin //Loop body End;
Bild 16
Låt oss titta på algoritmen för While-slingan: Villkoret kontrolleras. Om villkoret är sant, exekveras slingans kropp. Därefter kontrolleras tillståndet igen. Om villkoret är falskt slutar slingan.
Bild 17
Sålunda är While en loop med ett förutsättningsvillkor eller en "While"-loop (kroppen i loopen exekveras medan villkoret är sant). Om villkoret är falskt vid det första passet av slingan, kommer slingans kropp inte att exekveras ens en gång. Om villkoret aldrig blir falskt, så kommer slingan att upprepas på obestämd tid, d.v.s. looping kommer att inträffa.
Bild 18
ProgramEx2; varAccount: Real; (kontostorlek) Månad: heltal; (antal månader som har gått sedan kontot öppnades) start Account:=1000; (1000 rubel sattes in på kontot) Månad:=0; (kontot har precis öppnats) whileAccount
Bild 19
Upprepa cykeln
Repeat-loopen, liksom While-slingan, används i ett program om det är nödvändigt att köra slingans kropp flera gånger, men antalet repetitioner är okänt i förväg. I allmänhet skrivs en Repeat loop enligt följande: Repeat //Body of the loop Till Condition; Där Repeat, Till är funktionsord. Villkor är ett booleskt uttryck som bestämmer slutet på slingan.
Bild 20
Låt oss överväga algoritmen för Repeat-loopen: Bodyn av loopen som ligger mellan de reserverade orden Repeat och Until exekveras. Tillståndet kontrolleras. Om villkoret är sant slutar slingan. Om villkoret är falskt exekveras loopens kropp igen.
Bild 21
Således är Repet en loop med ett postvillkor eller en "Before" loop (kroppen av loopen exekveras tills villkoret är sant). Därför exekveras slingans kropp minst en gång. Om villkoret aldrig blir sant, kommer slingan att bli oändlig.
Bild 22
ProgramEx3; var Tid:heltal; (delningstid) Celler: heltal;(antal celler) börjar Tid:=0;(cellen har ännu inte börjat dela) Celler:=1;(en cell) Upprepningstid:=Tid+3;(inom de kommande tre timmarna ) Celler: =Celler*2;(antalet celler ökade med 2 gånger) Tills Celler>24; (tills villkoret "antalet celler är större än 24" är sant) Writeln(Time (mata ut resultatet) Readln; slutet. Planexempel: En encellig amöba delar sig i 2 celler var tredje timme. Bestäm hur många timmar senare antalet celler kommer att överstiga 24.
Visa alla bilder
Slinga med en förutsättning Om antalet repetitioner är okänt i förväg, men endast anges av ett villkor, och en åtgärd som måste utföras först efter att ha kontrollerat villkoret, använd en slinga med en förutsättning. Villkoret används logiskt uttryck, slingans kropp är ett enkelt eller sammansatt uttalande. Före varje exekvering av loopkroppen kontrolleras villkoret, om resultatet är "sant" exekveras loopkroppen igen, om "falskt" avslutas loopen. På blockschemat In Pascal börjar slutet; Villkor Slingans kropp Nej Övning Start av slingan Slutet av slingan JA Medan gör
Slinga med ett postvillkor Om antalet repetitioner är okänt i förväg, men endast anges av ett villkor, och den åtgärd som måste utföras innan villkoret kontrolleras, använd en slinga med ett eftervillkor. Ett logiskt uttryck används som villkor, slingans kropp är en enkel eller sammansatt operator. Efter varje exekvering av loopkroppen kontrolleras villkoret, om resultatet är "falskt" exekveras loopkroppen igen, om "sant" avslutas loopen. På blockschemat I Pascal Upprepa tillstånd Loop Body Ja Nej Öva tills ;
Slinga med en parameter I de fall antalet repetitioner är känt i förväg används en slinga med en parameter. Variabeln som anger antalet repetitioner kallas en loopparameter eller kontrollvariabel. Efter varje exekvering av slingkroppen ökas eller minskas styrvariabeln, slingan exekveras tills den överskrider eller blir mindre än gränsen. I blockschemat i Pascal är X kontrollvariabeln (cykelparameter) A är startvärdet av X, B är slutvärdet av X C är steget att ändra X. Som ett steg kan du bara använda: "till" = 1; “downto” = -1 X:=A,B,C Loop Body Practice För X:=A till B gör Början Slut;
Ett exempel på ett problem med en slinga med en förutsättning Höj siffran 3 till en given potens UPPGIFT: Verbal algoritm: Multiplicera talet X initialt lika med 1 ett givet antal gånger (H) med 3. starta H BHBH X:=1 X:=X*3 slut X Ange de givna graderna Initialvärden "B" gradräknare B=B+1 Multiplicera med 3 Öka räknaren Mata ut det resulterande värdet Program Stepen; Var H,B,X:heltal; Börja skrivaln(Grad?); Readln(H); X:=1; B:=1; Medan B
H X:=1 X:=X*3 slut X Ange en given potens Initiala värden" title="Exempel på en uppgift som använder en slinga med ett eftervillkor Höj siffran 3 till en given potens UPPGIFT: Verbal algoritm: Multiplicera talet X initialt lika med 1 givet antal gånger (H) för 3. start N B>=H X:=1 X:=X*3 slut X Ange en given grad Initialvärden" class="link_thumb"> 8 !} Ett exempel på ett problem med en slinga med ett postvillkor Höj siffran 3 till en given potens UPPGIFT: Verbal algoritm: Multiplicera talet X, initialt lika med 1, ett specificerat antal gånger (H) med 3. starta H B>=H X :=1 X:=X*3 slut X Ange en given grad Initialvärden "B" gradräknare B=B+1 Multiplicera med 3 Öka räknaren Mata ut det resulterande värdet Program Stepen; Var H,B,X:heltal; Börja skriva (examen?); Readln(H); X:=1; B:=0; Upprepa X:=X*3; B:=B+1; Tills B>=H; Writeln(Resultat,X); Slutet. Nej Ja Pascal Teori Blockdiagram Förklaringar B:=0 =H X:=1 X:=X*3 slut X Ange en given grad initiala värden"> =H X:=1 X:=X*3 slut X Ange en given grad initiala värden "B" gradräknare B=B +1 Multiplicera med 3 Öka räknaren Mata ut det resulterande värdet Program H,B,X:integer; Pascal Block Diagram Förklaringar B:=0"> =H X:=1 X*3 slut X Ange den angivna graden Initiala värden" title=" Exempel på ett problem med en loop med ett postvillkor Höj siffran 3 till en given effekt UPPGIFT: Verbal algoritm: Multiplicera talet X initialt lika med 1 ett givet antal gånger (H) med 3. början N B>=H X: =1 X:=X*3 slut X Ange den specificerade graden Initialvärden"> title="Ett exempel på ett problem med en slinga med ett postvillkor Höj siffran 3 till en given potens UPPGIFT: Verbal algoritm: Multiplicera talet X, initialt lika med 1, ett specificerat antal gånger (H) med 3. starta H B>=H X :=1 X:=X*3 slut X Ange en given grad Initialvärden"> !}
Ett exempel på en uppgift som använder en slinga med parametern Höj siffran 3 till en given potens UPPGIFT: Verbal algoritm: Multiplicera talet X, initialt lika med 1, ett specificerat antal gånger (H) med 3. starta H X:=1 X:=X*3 slut X Ange en given effekt Initialt värde X=1 Parametrar från 1 till N Multiplikation med 3 Utmatning av det resulterande värdet Programm Stepen; Var H,B,X:heltal; Börja skrivaln(Grad?); Readln(H); X:=1; För B:=1 till H börjar X:=X*3; Slutet; Writeln(Resultat,X); Slutet. B:=1,H,1 Pascal Teori Blockdiagram Förklaringar
Uppgift: Efter att ha börjat träna sprang idrottaren 10 km första dagen. Varje dag ökade han dagsnormen med 10 % av föregående dags norm. Vad är den totala sträckan som idrottaren kommer att tillryggalägga på 7 dagar? Indatavariabler: Utdatavariabler: S – total väg d – antal dagar Sd – sträcka för aktuell dag
Slutfrågor för kontroll: 1. Vilken operator i Pascal definierar en loop med ett förutsättning 2. Hur specificerar man stegen "1" och "-1" i en parameter i en loop 3. Vilken gren följer loopen med ett postvillkor? 4. Finns det en villkorsparameter 5. Vad kan en loops kropp vara 6. När används en loop med parametrar
Bild 1
Utförare ROBOT cyklisk algoritm
Presentation för en lektion i datavetenskap. Årskurs 9 Ämne: Kontroll och algoritmer
Bild 2
FÖR i:=1 FÖR ATT BÖRJA åtgärd1; åtgärd2; SLUTET;
FÖR i:=1 TILL N GÖRA åtgärd1; åtgärd2;
1
Bild 3
2
MEDAN (VILLKOR ÄR SANT) BÖRJA åtgärd1; åtgärd2; SLUTET;
MEDAN (VILLKOR ÄR SANT) GÖR åtgärd1; åtgärd2;
Bild 4
3
17 celler
12 celler
Bild 5
4
Program N1; var i:integer; Börja För i:=1 till 12 gör RobotForw; Robotvänster; För i:=1 till 17 gör RobotForw; Robotvänster; För i:=1 till 12 gör RobotForw; Robotvänster; För i:=1 till 17 gör RobotForw; Robotvänster; slutet.
Vi flyttar ner
Flytta till höger
Flytta upp
Flytta vänster
Detta och nästa kommando vrider roboten till vänster i hörnet
Bild 6
5
Om du sätter en vägg kommer roboten att krascha in i den och programmet stannar
Bild 7
6
Program N2; var i:integer; Börja medan FreeForw gör RobotForw; Robotvänster; Medan FreeForw gör RobotForw; Robotvänster; Medan FreeForw gör RobotForw; Robotvänster; Medan FreeForw gör RobotForw; Robotvänster; slutet.
Medan det finns ledigt utrymme framför, flytta roboten framåt.
Bild 8
Bild 9
8
Program N3; var i:integer; Börja för i:=1 till 4 börjar medan FreeForw gör RobotForw; Robotvänster; slutet; slutet.
Gå framåt fyra gånger tills det finns ett hinder och sväng vänster
Bild 10
9
Gå framåt fyra gånger tills det finns ett hinder och sväng vänster
Bild 11
10
Arbetsuppgifter för självständigt arbete
Uppgift 1. Ett hinder placeras på en slumpmässig plats vid inställningens vänstra vägg. Roboten måste nå punkt 1 och återgå till sitt ursprungliga tillstånd. Obs: använd tre seriekopplade slingor BYE
1
1
Bild 12
11
Uppgift 2. En vikt placeras vid den vänstra väggen av inställningen på en godtycklig plats. Roboten måste nå lasten, ta den, transportera den till lagret och återgå till sitt ursprungliga tillstånd. Obs: använd två seriekopplade slingor BYE
Bild 13
12
Uppgift 3. Fem vikter placeras på en slumpmässig plats vid inställningens vänstra vägg. Roboten ska transportera allt gods till lagret. Obs: använd två sekventiellt anslutna WHILE-loopar kapslade i en loop med en parameter.
Bild 14
13
Exempel 1 Roboten är placerad framför ingången till korridoren. Du måste markera alla celler inne i korridoren och gå tillbaka
Bild 15
14
Program N7; Börja RobotForw; Även om det inte är FreeLeft börjar Välj; RobotForw; slutet; RobotBack; Även om inte FreeLeft gör RobotBack; slutet.
Ta ett steg framåt för att komma in i tunneln
Medan det finns en vägg till vänster, markera cellen och ta ett steg framåt
Vi går tillbaka till tunneln
Medan det finns en vägg till vänster går vi ett steg tillbaka
Bild 16
15
Exempel 2 Det finns två väggar placerade i vinkel. Väggarnas längder är godtyckliga. Roboten är placerad i hörnet mellan väggarna (se bild). Det är nödvändigt att skapa ett program där roboten markerar alla celler på insidan av väggen. Robotens slutposition är godtycklig.
Bild 17
16
Program N8; Börja men inte FreeRight börjar Välj; RobotForw; slutet; Medan FreeBack gör RobotBack; Robotvänster; Även om det inte är FreeLeft börjar Välj; RobotForw; slutet; slutet.
Medan det inte finns något utrymme till höger, markera rutan och ta ett steg framåt.
Föra tillbaka roboten
Sväng vänster
Medan det inte finns något utrymme till vänster, markera rutan och ta ett steg framåt.
Bild 18
Bild 19
18
Exempel 3 Inredningen blockeras av en vägg som delar inredningen i två delar. Det finns en burstor passage i väggen på en slumpmässig plats. Det är nödvändigt att skapa ett program där roboten hittar denna passage och flyttar till en annan del av miljön.
Bild 20
19
Program N9; Börja RobotLeft; Medan FreeForw gör RobotForw; RobotRight; Även om inte FreeLeft gör RobotForw; Robotvänster; RobotForw; RobotForw; slutet.
Vi vänder roboten mot väggen.
Låt oss gå framåt tills vi träffar väggen
Vrid roboten längs väggen
Vi går framåt tills väggen tar slut
Vrid roboten mot passagen
Vi tar två steg framåt, vi går vidare till den andra halvan av situationen
Beskrivning av presentationen med individuella bilder:
1 rutschkana
Bildbeskrivning:
Lektionens ämne: ”Algorithms for cyclic structure. Programmeringsslingor i Pascal" Disciplin "Informatik"
2 rutschkana
Bildbeskrivning:
Grundläggande begrepp i ämnet I den här lektionen studeras följande begrepp: begreppet en cykel; typer av cykliska algoritmer (loop med precondition, loop med postcondition, loop med parameter); blockdiagram av cykliska algoritmer; representation av loopoperatorer i språket Pascal programmering; användningen av loopar för att lösa problem.
3 rutschkana
Bildbeskrivning:
Konceptet med en cykel När man löser många problem utförs samma sekvens av åtgärder flera gånger. Till exempel vid antagning till läroanstalt studenten tar prov, och poängen han får beräknas (variabel S; dess initiala värde är S:=0;). För varje godkänd tentamen får han betyget N. Om betyget är högre än "2", då S:= S + N; annars, stoppa beräkningarna (gå ur slingan).
4 rutschkana
Bildbeskrivning:
Begreppet en loop En loop är en sekvens av satser som kan köras mer än en gång. Cyklisk algoritmär en algoritm som involverar upprepad upprepning av samma åtgärd på nya data. Det finns tre typer av loopoperatorer: loopar med en förutsättning. slingor med postcondition; cyklar med en räknare.
5 rutschkana
Bildbeskrivning:
Slinga med förutsättning. Slingtyp WHILE WHILE Instruerar att exekvera slingans brödtext tills villkoret som skrivits efter ordet while uppfylls för en slinga med ett förvillkor
6 rutschkana
Bildbeskrivning:
Slinga med förutsättning. Slingtyp WHILE WHILE En slinga med en förutsättning används när antalet repetitioner av slingkroppen är okänt i förväg, men beror på att villkoret uppfylls. Om villkoret är sant, exekveras slingans kropp, sedan kontrolleras villkoret igen, och så vidare tills villkoret blir falskt.
7 rutschkana
Bildbeskrivning:
Loopoperator med förutsättning (WHILE loop-typ) Denna mest använda loopoperator har den allmänna formen i Pascal (format): WHILE<условие>DO<оператор>; här WHILE, DO - reserverade ord (från engelska: while - while, do - do);<условие>- uttryck av logisk typ;<оператор>- en godtycklig (eventuellt sammansatt) operatör.
8 rutschkana
Bildbeskrivning:
Slinga med postcondition. Slingtyp DO Ordning för exekvering av en loopoperator med ett postvillkor Exekvering av operatorer 1-N upprepas tills villkoret blir sant. I denna loop kontrolleras villkoret först efter att loopkroppen exekveras. Det följer att kroppen alltid utförs minst en gång Flödesdiagram av en slinga med ett eftervillkor
Bild 9
Bildbeskrivning:
Slinga med postcondition. Cykeltyp GÖR VIKTIGT! En loop med ett postvillkor exekveras minst en gång, oavsett om villkoret är uppfyllt. Den otvivelaktiga bekvämligheten med en loop med ett postvillkor är att flera satser kan skrivas inuti den utan att använda en sammansatt operator. Tillståndskontrollen är placerad efter slingkroppen. Serviceord TILL
10 rutschkana
Bildbeskrivning:
Förarcykel med postcondition (cykeltyp DO - TILL) Allmän form(Formatet) för en loopoperator med ett postvillkor i Pascal är som följer: Upprepa<Оператор 1>; <Оператор 2>; … <Оператор N>; Fram tills<условие>;
11 rutschkana
Bildbeskrivning:
Ett exempel på användning av en loopoperator med ett postvillkor Att visa i par värdena för variabeln n=1, 2, 3, 4, 5,6, 7, 8, 9 och variabeln a=10, 20, 30 , 40, 50, 60, 70, 80, 90 kommer denna operator att se ut så här: n:= 0; upprepa n:=n+1; a:=10*n; writeln(n:2,' ',a:3); tills n>=9;
12 rutschkana
Bildbeskrivning:
Slinga med en parameter. Slinga av typ FOR En slinga med en parameter används när det är nödvändigt att utföra ett specificerat antal steg i slingan. Det bör nämnas att FÖR slinga i Pascal är inte särskilt flexibel (till skillnad från till exempel den här typen av loop i C). Eftersom, i Pascal, ändras loopparametern (eller räknaren) med ett belopp som är lika med ett. När du behöver utföra ett delsteg måste du alltså använda en WHILE-loop. Det finns två typer av FOR-slingor: ökande och minskande räknarvärden (eller parametervärden). Blockschema över en loop med en parameter (FOR loop)
Bild 13
Bildbeskrivning:
Bild 14
Bildbeskrivning:
Slingoperatör med parameter. FOR-loop Allmän vy (format) av en loop-operator med en for-parameter<счетчик> := <начальное значение>till<конечное значение>börja<Операторы>slutet; för<счетчик> := <начальное значение>ner till<начальное значение>börja<Операторы>slutet; med ökande räknare (parameter) värden med minskande räknare (parameter) värden
15 rutschkana
Bildbeskrivning:
Slingoperatör med parameter. FOR loop En operatör som implementerar en FOR loop - FOR används om det är nödvändigt att ett programfragment repeteras ett specificerat antal gånger FOR<переменная цикла>: = <начальное значение>DEN DÄR<конечное значение>DO<оператор>; Här: FOR, TO, DO - reserverade ord (engelska: for, to, execute);<счетчик (параметр) цикла>- en variabel av typen INTEGER, som ändras på ett segment från<начального значения>ökar med ett i slutet av varje steg av cykeln;<оператор>- valfri (vanligtvis sammansatt) operator.
16 rutschkana
Bildbeskrivning:
Slingoperatör med parameter. FÖR Loop FÖR operatör består av ett öglehuvud och kropp. En sammansatt sats i en loops brödtext måste omges av start- och slutparenteser. · Vanligtvis används "i" som räknarens identifierare. · Räknarvariabeln måste vara av ordningstyp. Till exempel heltalstyp: byte, heltal. · Start- och slutvärdena för en loopparameter kan inte ändras medan loopen körs. · FOR-operatören används för att organisera loopar med ett fast antal repetitioner, kända i förväg eller bestämda under programexekveringen.
Bild 17
Bildbeskrivning:
Använda loopar för att lösa problem Var och en av de ovan beskrivna looparna kan användas för att programmera samma problem med en cyklisk algoritm i Pascal.
18 rutschkana
Bildbeskrivning:
Uppgift nr 1 Öppna programmet PascalABC.NET (integrerad utvecklingsmiljö för program i programmeringsspråket Pascal) Spara programmet i en mapp med ditt namn i systemet arbetsmapp PABCWork.NET \Ditt_namn\Cikl_1.pas Spara som...
Bild 19
Bildbeskrivning:
Uppgift nr 1 Använd WHILE-loopen (med en förutsättning), skapa och felsöka ett program som beräknar summan av kvadraterna av alla naturliga tal från 1 till 100. INITIALDATA: A: heltal; RESULTAT - summa: S: Longint; Program Ex1; Var A: heltal; S: Longint; (Långt heltal) Börja A:=1; S:=0; (variabel S för ackumulerande summa) Medan A<=100 Do { Начало цикла – проверка условия } Begin S:=S+A*A; A:=A+1 End; Writeln(‘Вывод результата S= ’ ,S) End. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_1.pas
20 rutschkana
Bildbeskrivning:
UPPGIFT 2. Felsök ett cykliskt strukturprogram i Pascal i PascalABC.NET-miljön Program abc; var x, y: heltal; börja x:=2; medan x<= 10 do begin Y:=x*x; writeln(‘вывод х: ’, x, ‘вывод у: ’, y); x:= x+2; end; end. Применить оператор цикла с предусловием для вычисления значения функции y=x2, при значениях x 2, 4, 6, 8, 10. Сохранить программу в папке с Вашим именем в системной рабочей папке PABCWork.NET \ Ваше_имя\Cikl_2.pas