Turbo Pascal zadania :)

asiulka17a
Użytkownik
Użytkownik
Posty: 38
Rejestracja: 25 lut 2007, o 21:39
Płeć: Kobieta
Lokalizacja: NS
Podziękował: 1 raz

Turbo Pascal zadania :)

Post autor: asiulka17a »

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
szablewskil
Użytkownik
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 :)

Post autor: szablewskil »

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.
Awatar użytkownika
Jestemfajny
Użytkownik
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 :)

Post autor: Jestemfajny »

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('samogˆoski: ',a,'inne litery: ',b,'inne znaki: ',l);

readln;
end.
Xitami

Turbo Pascal zadania :)

Post autor: Xitami »

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.
lukino1984
Użytkownik
Użytkownik
Posty: 1
Rejestracja: 3 cze 2010, o 17:35
Płeć: Mężczyzna
Lokalizacja: polska

Turbo Pascal zadania :)

Post autor: lukino1984 »

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 <0100>,
2. Napisać program w języku Pascal sortujący rosnąco trzy liczby z zakresu <0100>,
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.
ODPOWIEDZ