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 9697 24.05.2017, 08:19
Ostatni post: falafal
  Inkrementacja a pętla while Cixi 2 7756 22.12.2016, 21:47
Ostatni post: Cixi
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8983 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
  Programowanie Batch (CMD) Informatyk2019 0 6194 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 2828 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 14145 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 3343 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 8173 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 7297 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 7535 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 21975 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 8545 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4623 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 22858 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7139 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 8303 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 10263 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 9662 08.06.2019 16:50
Ostatni post: wlisik