kyciu
22-05-07, 11:20
:poklony: witam mam taki problem,mianowicie mam do napisania 5 programów a oto ich tre¶ć:
1)napisz program obliczaj±cy potegę liczby o rzeczywistej podstawie i wykladniku z przedziału[2..7].program ma drukować na ekranie liczbę x.
zacz±łem co¶ robić
Program Potega;
Uses Crt;
Var
Wynik : LongInt;
podstawa,I, Wykladnik : Byte;
Begin
ClrScr;
WriteLn('Ten program oblicza potege liczby .');
WriteLn;
writeln('podaj podstawe potegi x= ');
readln(podstawa);
Write('Podaj wykladnik potegi n = ');
ReadLn(Wykladnik);
Wynik:=1;
For I:=1 To Wykladnik Do Wynik:=Wynik*podstawa;
WriteLn(podstawa,'^',Wykladnik, ' = ', Wynik);
WriteLn;
WriteLn('Naci¶nij klawisz ENTER...');
ReadLn;
End.
niewiem czy to wystarczy,ponieważ to jest na wszystkie liczby do 255
2)Napisz program wczytuj±cy do tablicy jednowymiarowej z klawiatury n liczb i wydrukuj±cy na ekranie najmniejsz± spo¶ród nich(mich).
-ile liczb najmniejszych było w tablicy?zliczyć liczbę wyst±pień warto¶ci min).
-największego elementu(max)
-najmniejszego elementu(min)
-zliczyc liczbę wyst±pień elementu max.
wyygl±da to jako¶ tak w moim wykonaniu
{zadanie2}
program tablica2;
uses crt;
var
tablica:array[1..30]of integer;
i:integer;
max,min,suma:integer;
begin
clrscr;
randomize;
for i:=1 to 30 do
begin
tablica[i]:=random(100);
writeln('element tabicy',i,'ma wartosc',tablica[i]);
suma:=suma+tablica[i];
if tablica[i]>max then
begin
max:=tablica[i];
end;
min:=0;
if min<tablica[i] then
begin
min:=tablica[i];
end;
end;
writeln('suma elementow tablicy wynosi',suma);
writeln('max element tablicy',max);
writeln('min wynosi',min);
readln;
end.
3)
Napisz program wczytuj±cy z klawiatury do tablicy jednowymiarowej n liczb całkowitych.liczbę nalezy pobrać z klawiatury.je¶li warto¶ć n podana prze użytkownika jest liczb± z zakresu 1 do 30 ,wówczas program ma wczytać podan± ilo¶ć liczb całkowitych,a następnie wczytane liczby wydrukować na ekranie.je¶li natomiast podana warto¶ć n jest liczb± spoza przedziału[1..30],wówczas program kończy pracę drukuj±c stosowny komunikat.w zadaniu należy wykorzystac 30 elementow± tablicę liczb całkowitych.
{zadanie 3}
program tablice;
uses crt;
var
tablica:array[1..30]of integer;
i:integer;
begin
clrscr;
writeln('podaj i');
readln (i);
randomize;
for i:=1 to 30 do
begin
tablica[i]:=random(100);
writeln('Element tablicy',i,'ma wartosc',tablica[i]);
end;
readln;
end.
na tym się zatrzymałem
4)napisz program wypełniaj±cy tablicę jednowymiarow± n liczbami t[0]...t[n-1] warto¶ciami:od 7 do n+6
5)napisz program który ma drukować na ekranie wszystkie trójki liczb pitagorejskich z zakresu od 1 do 10.
tych ostatnich niezacz±łem
za wszelk± pomoc z góry dziękuje
1)napisz program obliczaj±cy potegę liczby o rzeczywistej podstawie i wykladniku z przedziału[2..7].program ma drukować na ekranie liczbę x.
zacz±łem co¶ robić
Program Potega;
Uses Crt;
Var
Wynik : LongInt;
podstawa,I, Wykladnik : Byte;
Begin
ClrScr;
WriteLn('Ten program oblicza potege liczby .');
WriteLn;
writeln('podaj podstawe potegi x= ');
readln(podstawa);
Write('Podaj wykladnik potegi n = ');
ReadLn(Wykladnik);
Wynik:=1;
For I:=1 To Wykladnik Do Wynik:=Wynik*podstawa;
WriteLn(podstawa,'^',Wykladnik, ' = ', Wynik);
WriteLn;
WriteLn('Naci¶nij klawisz ENTER...');
ReadLn;
End.
niewiem czy to wystarczy,ponieważ to jest na wszystkie liczby do 255
2)Napisz program wczytuj±cy do tablicy jednowymiarowej z klawiatury n liczb i wydrukuj±cy na ekranie najmniejsz± spo¶ród nich(mich).
-ile liczb najmniejszych było w tablicy?zliczyć liczbę wyst±pień warto¶ci min).
-największego elementu(max)
-najmniejszego elementu(min)
-zliczyc liczbę wyst±pień elementu max.
wyygl±da to jako¶ tak w moim wykonaniu
{zadanie2}
program tablica2;
uses crt;
var
tablica:array[1..30]of integer;
i:integer;
max,min,suma:integer;
begin
clrscr;
randomize;
for i:=1 to 30 do
begin
tablica[i]:=random(100);
writeln('element tabicy',i,'ma wartosc',tablica[i]);
suma:=suma+tablica[i];
if tablica[i]>max then
begin
max:=tablica[i];
end;
min:=0;
if min<tablica[i] then
begin
min:=tablica[i];
end;
end;
writeln('suma elementow tablicy wynosi',suma);
writeln('max element tablicy',max);
writeln('min wynosi',min);
readln;
end.
3)
Napisz program wczytuj±cy z klawiatury do tablicy jednowymiarowej n liczb całkowitych.liczbę nalezy pobrać z klawiatury.je¶li warto¶ć n podana prze użytkownika jest liczb± z zakresu 1 do 30 ,wówczas program ma wczytać podan± ilo¶ć liczb całkowitych,a następnie wczytane liczby wydrukować na ekranie.je¶li natomiast podana warto¶ć n jest liczb± spoza przedziału[1..30],wówczas program kończy pracę drukuj±c stosowny komunikat.w zadaniu należy wykorzystac 30 elementow± tablicę liczb całkowitych.
{zadanie 3}
program tablice;
uses crt;
var
tablica:array[1..30]of integer;
i:integer;
begin
clrscr;
writeln('podaj i');
readln (i);
randomize;
for i:=1 to 30 do
begin
tablica[i]:=random(100);
writeln('Element tablicy',i,'ma wartosc',tablica[i]);
end;
readln;
end.
na tym się zatrzymałem
4)napisz program wypełniaj±cy tablicę jednowymiarow± n liczbami t[0]...t[n-1] warto¶ciami:od 7 do n+6
5)napisz program który ma drukować na ekranie wszystkie trójki liczb pitagorejskich z zakresu od 1 do 10.
tych ostatnich niezacz±łem
za wszelk± pomoc z góry dziękuje