Umieszczam tu kilka zadań, zdaje sobie sprawe z tego że są one proste, ale nie dla mnie.. (można korzystać tylko pętli for, repeat until, while i if)
1.Sformuuj program wyswietlajacy kolejne potegi liczby naturalnej podanej przez uzytkownika jako pierwsza dana az do uzyskania wartosci potegi wiekszej lub rownej liczbie podanej przez niego jako druga dana.
2.Utworz program wyswietlajacy liczby z przedziały [33,125] a obok kazdej z nich odpowiadajacy liczbie znak z tabeli kodów 'aski"
3.Utworz program implementujacy algorytm euklidesa
4. utworz program sprawdzajacy czy liCZba podana przez uzytkownika jest liczba pierwsza
5. utworz program sprawdzajacy tabliczke mnozenia liczb z zakresu od 0 do 10. program ma losowac i pytac o ich iloczyn dopoty dopoki uzytkownik nie poda prawidłowej wartosci (liczba losowan:10)
6. utworz progam wyliczajacy ile razy w lancuchu podanym przez uzytkownika wystapila samogloska ile razy spolgloska a ile razy znak nie bedacy litera
proszę o pomoc
Turbo Pascal zadania :)
-
- Użytkownik
- Posty: 38
- Rejestracja: 25 lut 2007, o 21:39
- Płeć: Kobieta
- Lokalizacja: NS
- Podziękował: 1 raz
-
- Użytkownik
- Posty: 261
- Rejestracja: 18 maja 2007, o 21:42
- Płeć: Mężczyzna
- Lokalizacja: Kruszyny
- Podziękował: 14 razy
- Pomógł: 21 razy
Turbo Pascal zadania :)
3)
program sito;
uses Crt;
var tab: array [1..1000] of integer;
pierwsze: array [1..1000] of integer;
ile, i, j, k, x: integer;
begin
clrscr;
ile:=1000;
j:=1;
for i:=1 to 1000 do tab :=2*i+1;
pierwsze [j]:=2;
while ile>1 do
begin
j:=j+1;
pierwsze [j]:=tab [1];
x:=pierwsze [j];
k:=1;
i:=1;
while i0 then
begin
tab [k]:=tab ;
k:=k+1;
end;
i:=i+1;
end;
ile:=k-1;
end;
writeln ('Liczby pierwsze to ');
for i:=1 to j do write (' ',pierwsze );
readln
end.
program sito;
uses Crt;
var tab: array [1..1000] of integer;
pierwsze: array [1..1000] of integer;
ile, i, j, k, x: integer;
begin
clrscr;
ile:=1000;
j:=1;
for i:=1 to 1000 do tab :=2*i+1;
pierwsze [j]:=2;
while ile>1 do
begin
j:=j+1;
pierwsze [j]:=tab [1];
x:=pierwsze [j];
k:=1;
i:=1;
while i0 then
begin
tab [k]:=tab ;
k:=k+1;
end;
i:=i+1;
end;
ile:=k-1;
end;
writeln ('Liczby pierwsze to ');
for i:=1 to j do write (' ',pierwsze );
readln
end.
- Jestemfajny
- Użytkownik
- Posty: 187
- Rejestracja: 22 lis 2006, o 21:08
- Płeć: Mężczyzna
- Lokalizacja: AGH
- Podziękował: 10 razy
- Pomógł: 36 razy
Turbo Pascal zadania :)
Zadania łatwe potem napisze. Panie Szablewski Sito erastotenesa jest do liczb pierwszych wiec do zadania 4:)
1)
uses crt;
var i:integer;
a,c,b:real;
begin
clrscr;
Writeln('podaj liczbe');
readln(a);
writeln('podaj driuga liczbe');
readln(b);
c:=a;
while(a0) do
begin
c:=b;
b:=a mod b;
a:=c;
end;
Writeln(a);
readln;
end.
5)
uses crt;
var i,a,b,c:integer;
begin
clrscr;
for i:=1 to 10 do
begin
clrscr;
randomize;
a:=random(10);
b:=random(10);
writeln(a,' ',b);
repeat
Writeln('podaj ich iloczyn');
readln(c);
until a*b=c;
end;
readln;
end.
6)
uses crt;
var s:string;
a,b,l,i:integer;
begin
clrscr;
Writeln('podaj wyraz');
readln(s);
a:=0;
b:=0;
l:=0;
for i:=1 to length(s) do
begin
if not(s in ['a'..'z']) then l:=l+1
else
if s in ['e','y','u','i','o','a'] then a:=a+1
else
b:=b+1;
end;
Writeln('samogoski: ',a,'inne litery: ',b,'inne znaki: ',l);
readln;
end.
1)
uses crt;
var i:integer;
a,c,b:real;
begin
clrscr;
Writeln('podaj liczbe');
readln(a);
writeln('podaj driuga liczbe');
readln(b);
c:=a;
while(a0) do
begin
c:=b;
b:=a mod b;
a:=c;
end;
Writeln(a);
readln;
end.
5)
uses crt;
var i,a,b,c:integer;
begin
clrscr;
for i:=1 to 10 do
begin
clrscr;
randomize;
a:=random(10);
b:=random(10);
writeln(a,' ',b);
repeat
Writeln('podaj ich iloczyn');
readln(c);
until a*b=c;
end;
readln;
end.
6)
uses crt;
var s:string;
a,b,l,i:integer;
begin
clrscr;
Writeln('podaj wyraz');
readln(s);
a:=0;
b:=0;
l:=0;
for i:=1 to length(s) do
begin
if not(s in ['a'..'z']) then l:=l+1
else
if s in ['e','y','u','i','o','a'] then a:=a+1
else
b:=b+1;
end;
Writeln('samogoski: ',a,'inne litery: ',b,'inne znaki: ',l);
readln;
end.
Turbo Pascal zadania :)
4
Kod: Zaznacz cały
Program paciorki;
var
a,b,k,n:longword;
begin
write('Podaj liczbę>'); readln(n);
a:=n div 2;
b:=2;
k:=n mod 2;
while (a>b) and (k<>0) do begin
a-=1;
k+=b;
if k>=a then begin
b+=1;
k-=a
end
end;
write(n,' = ',a,' * ',b);
if k<>0 then writeln(' + ', k, ' jest liczbą pierwszą')
else writeln(' jest liczbą złożoną');
end.
-
- Użytkownik
- Posty: 1
- Rejestracja: 3 cze 2010, o 17:35
- Płeć: Mężczyzna
- Lokalizacja: polska
Turbo Pascal zadania :)
Witam czy mógłby mi ktoś pomóc w zrobieniu zadania. Potrzebuję napisać w pascalu 3 zadania. 1.Napisać algorytm na program sprawdzający czy dana liczba mieści się w przedziale
obustronnie zamkniętym <0100>,
2. Napisać program w języku Pascal sortujący rosnąco trzy liczby z zakresu <0100>,
3. Napisać program w języku Pascal sprawdzający czy z założonych trzech boków można
zbudować trójkąt,
Pilnie potrzebuję na wczoraj.
obustronnie zamkniętym <0100>,
2. Napisać program w języku Pascal sortujący rosnąco trzy liczby z zakresu <0100>,
3. Napisać program w języku Pascal sprawdzający czy z założonych trzech boków można
zbudować trójkąt,
Pilnie potrzebuję na wczoraj.