Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti

#1
[Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti
potrzebuje zamienic te programy na petle while do i repeat until.
1.
Kod:
Uses crt;
Var
I:byte;
Begin
For i:=1 to 10 do
Begin
Writeln(I;
Delay(1000);
End;
Readln;
End.
2.
Kod:
Uses crt;
Var
I:byte;
Begin
For i:=10 downto 1 do
Begin
Writeln(I;
Readln;
End.
3.
Kod:
Uses crt;
Var
I:byte;
Begin
Clrscr;
For i:=1 to 20 do
Writeln(‘kasia kowalska’);
Readln;
End.
4.
Kod:
Uses crt;
Var
I:byte;
Begin
Clrscr;
For i:=1 to 15 do
Begin
Texcolor(i);
Write(i);
Writeln(‘kasia kowalska’);
Readln;
End
End.
5.
Kod:
Var i:bute;
For i:=1 to 10 do
Write(‘*’);
Readln;
End.
6. var
I:byte;
Begin
For i:=33 to 125 do
Writeln(I,’ ‘,chr(i));
End.
6.
Kod:
Var i
I:integer;
Begn
For i:=0 to 5 do
begin
writeln(‘do zakonczenie pozostalo:’,i);
7
Kod:
Uses crt;
Var
I,j:integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
For j:=1 to 1 do
Write(i*j:4);
Writeln;
End;
Readln;
End.
8
Kod:
Uses crt;
Var
A,b:integer;
Begin
Clrscr;
For a:=1 to 0 do
Begin
For B:=1 to 10 do
Begin
Writeln(a,’*’,b,’=’,a*b);
End;
End;
Readln.end.
9
Kod:
Var
I,j:integer;
Begin
For i:=1 to 10 do begin
For j:=1 to 10 do
Write(j*i:3);
Writeln;
End;
End.
10.
Kod:
Uses crt;
Var
H,x,y,z,k:integer;
Begin
Clrscr;
Wite(‘podaj wyskokosc’);
Redln(h);
Z:=0;
For x:=1 to h do
Begin
Writeln;
K:=0
Repeat
Write(‘ _’);
K:k=1;
Until k=x;
If x>=2 then for z:h downto x do
Begin
Write(‘_’);
Write(‘*’);
End
Else for y:=1 to h do
Begin
Write(_’);
Write(‘*’);
End;
End;
Writeln
Readln;end;
11.
Kod:
Uses crt;
Var
Imie:string;
A,i:integer;
Begin
Writeln(;imie’);
Readln(imie);
A:length (imie);
Writeln(a);
For i:=a downto 1 do write (imie[i]);
End.
12.
Kod:
Var
I:integer;
Begin
For i:=11 to 100 do
If I mod 11=0 then
Writeln(i);
Readln;
End.
13.
Kod:
Uses crt;
Var
Imie:string;
A,i:integer;
Begin
Writeln(‘imie’);
Readln(imie);
A:length(imie);
Writeln(a);
For i:=1  to 4 do write(imie[3]);
End.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#2
RE: [Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti
Na przyszłość proszę poprawnie tytułować wątki - http://forum.pcformat.pl/thread-30324.html oraz wstawiać kody źródłowe w znacznikach code (funkcja "wstaw sformatowany kod"), a duże ilości kodu najlepiej umieszczać na hostingach i wysyłać na forum linki.

Poza tym twoich programów jest dużo, a bez własnej inicjatywy, raczej nie licz na pomoc.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: [Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti
lenistwo okrutne
moge tak ci pomoc - wystarczy wstawic Wesoły

_________________________________________________________________
While ... Do (nazywana petlą "dopóki")

Zastosowanie pętli while ... do jest wykorzystywane w powtarzajacych się instrukcjach. W instrukcji while ... do warunek jest sprawdzany przed jej wykonaniem, a działanie kończy się w przypadku zwrócenia fałszu (czyli False) przez porównywane wyrażenie.
Postać instrukcji przedstawia się następująco:
while {Warunek do spełnienia} do
{ instrukcje }

_________________________________________________________________

Repeat ... Until (nazywana pętlą "powtarzaj")

Instrukcja ta wykonuje cyklicznie inne instrukcje zawarte pomiędzy słowami repeat i until do momentu gdy wyrażenie znajdujące się za słowem until nie przyjmie wartości prawda (czyli true).

Efekt zastosowania pętli repeat jest bardzo podobny do działania pętli while ? pętla ta także może być wykonywana ogromną liczbę razy. Jedyna różnica polega na tym, że w pętli repeat warunek zakończenia sprawdzany jest dopiero po wykonaniu instrukcji. Oznacza to, że pętla repeat zawsze będzie wykonana co najmniej raz. Dopiero po tej iteracji program sprawdzi, czy można zakończyć działanie pętli. W przypadku pętli while warunek jest sprawdzany bezpośrednio przed jej wykonaniem, co w rezultacie może spowodować, że taka pętla nigdy nie zostanie wykonana.

Budowa pętli repeat jest następująca:
repeat
{ instrukcje do wykonania }
until { warunek zakończenia }
 System operacyjny: windows_xp_2003 Przeglądarka: safari
#4
RE: [Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti
Przykład programu z wykorzystaniem takowej pętli:

Kod:
Program petla;
var n: [1..10];
begin
    n :=1
    while n>10 do
        writeln ('Ala ma kota');
    n := n +1;
    end;
end.

Dawno nie pisałem w pascal'u, więc mogłem się pomylić, ale to nie zmienia faktu, że jest wiele przykładów z wykorzystaniem tej pętli. Znajdziesz je w sieci.
Przez całe życie szukamy spokoju, a kiedy go odnajdujemy staje się nie do zniesienia.
 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
jak zamiana petli for na while i repeatpascal petla szyfruprogramy pascal z whilewhile do pascal

Podobne wątki ([Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Pomoc w pętli for BATCH falafal 3 9584 24.05.2017, 08:19
Ostatni post: falafal
  Inkrementacja a pętla while Cixi 2 7652 22.12.2016, 21:47
Ostatni post: Cixi
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8875 21.10.2016, 11:20
Ostatni post: koneton

Skocz do:


Wybrane wątki ([Pascal] Przeróbka programów - zastosowanie pętli while do i repeat unti)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Python z wiersza poleceń Physicist 15 21716 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7057 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 7835 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 9767 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 9215 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 9203 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 11239 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4475 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 10463 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 10761 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 10431 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 10084 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 9190 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 12835 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 9688 07.03.2019 15:33
Ostatni post: wiktrom12