Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  
AccessAdobe photoshopAlgoritmiAutocadBaze de dateCC sharp
CalculatoareCorel drawDot netExcelFox proFrontpageHardware
HtmlInternetJavaLinuxMatlabMs dosPascal
PhpPower pointRetele calculatoareSqlTutorialsWebdesignWindows
WordXml


Instructiunea repetitiva cu test final REPEAT

pascal



+ Font mai mare | - Font mai mic



Instructiunea repetitiva cu test final REPEAT

   Sintaxa
repeat
   instr1;
   instr2;
   .
   instrn
until cond

   Sematica:
   Sensul acestei instructiuni este: repeta instructiunile instr1, , instrn, pana cand este indeplinita conditia cond. Intructiunile se repeta cel putin o data.



   Exemple:
Vom calcula cel mai mare divizor comun pentru doua numere cu algoritmul lui Euclid.
program Euclid_cmmdc;
var a, b, deimp, imp, rest, cmmdc: Integer;
   raspuns: Char;
begin
   repeat
      WriteLn('Dati cele doua numere !');
      ReadLn(a,b);
      deimp:=a;
      imp:=b;
      repeat
         rest:=deimp mod imp; deimp:=imp; imp:=rest
      until imp=0;
      cmmdc:=deimp;
      WriteLn('C.m.m.d.c. = ',cmmdc); WriteLn;
      WriteLn('Repetam ? d/n'); ReadLn(raspuns)
   until raspuns='n'
end.





Politica de confidentialitate | Termeni si conditii de utilizare



DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 1585
Importanta: rank

Comenteaza documentul:

Te rugam sa te autentifici sau sa iti faci cont pentru a putea comenta

Creaza cont nou

Termeni si conditii de utilizare | Contact
© SCRIGROUP 2024 . All rights reserved