|
|
 |
|
|
 |
Sumowanie cyfr liczby calkowitej PROGRAMOWANIE
Mariusz_Cebula - Czw Lis 12, 2009 10:17 am
Ogarnia ktos??? Bo ja nie bardzo.... Kod jest ale liczy za kazdym razem 0:D
Olcia - Czw Lis 12, 2009 3:35 pm
A ktoś ma w ogole tą kartkę zeskanowana co trzeba zrobic na jutro na podstawy? Tam bylo chyba 5 zadan... Niech ktos wrzuci
klaudia - Czw Lis 12, 2009 4:06 pm
A ktoś ma w ogole tą kartkę zeskanowana co trzeba zrobic na jutro na podstawy? Tam bylo chyba 5 zadan... Niech ktos wrzuci
Chyba na programowanie
Mam od Angeliki xero, to zrobilam zdjecie
http://img262.imageshack.us/img262/7203/programy.jpg
Olcia - Czw Lis 12, 2009 4:43 pm
Chyba na programowanie
Mam od Angeliki xero, to zrobilam zdjecie
http://img262.imageshack.us/img262/7203/programy.jpg
Przedmiot nazywa się Podstawy Programowania;)
Dzięki wielkie :*:*:*:*:*
/Btw. Mariusz fajny avatar
Caps_Lock - Czw Lis 12, 2009 4:47 pm
No to jedziemy
zadanie 1
program kostka;
uses crt;
var
n,i,c,d:integer;
a:array[1..6] of integer;
begin
randomize;
clrscr;
writeln('program zlicza ilosc wyrzuconych liczb');
c:=0;
n:=100;
while c<n do
begin
c:=c+1;
i:=random(6)+1;
a[i]:=a[i]+1;
end;
for i:=1 to 6 do
begin
writeln('a','[',i,']',a[i]);
end;
repeat until keypressed;
end.
jezeli chodzi o zadanie drugie to nie wiem o co dokładnie w nim chodzi wiec chyba go nie mam
zadanie 3
a)
program dzielenie;
uses crt;
var
x,i,sum:integer;
begin
clrscr;
writeln('Program oblicza ile jest liczb podzielnych przez 5');
writeln('Podaj koniec przedzialu');
readln(x);
i:=0;
sum:=0;
repeat
i:=i+1;
if i mod 5 = 0 then
begin
sum:=sum+1
end;
until i=x;
writeln('liczb podzielnych przez 5 jest:',sum);
repeat until keypressed;
end.
b)
program dzielenie;
uses crt;
var
x,i,sum:integer;
begin
clrscr;
writeln('Program oblicza ile jest liczb podzielnych przez 3 i 7');
writeln('Podaj koniec przedzialu');
readln(x);
i:=0;
sum:=0;
repeat
i:=i+1;
if i mod 3 = 0 then
begin
if i mod 7 = 0 then
begin
sum:=sum+1
end;
end;
until i=x;
writeln('liczb podzielnych przez 5 jest:',sum);
repeat until keypressed;
end.
c)
program dzielenie;
uses crt;
var
x,i,sum:integer;
begin
clrscr;
writeln('Program oblicza ile jest liczb nie podzielnych przez 2');
writeln('Podaj koniec przedzialu');
readln(x);
i:=0;
sum:=0;
repeat
i:=i+1;
if i mod 2 = 0 then else
begin
sum:=sum+1
end;
until i=x;
writeln('liczb nie podzielnych przez 2 jest:',sum);
repeat until keypressed;
end.
d)
program dzielenie;
uses crt;
var
x,i,sum,sum1,sum2:integer;
begin
clrscr;
writeln('Program oblicza ile jest liczb +,- i 0');
writeln('Podaj poczĄtek przedzialu');
readln(i);
writeln('Podaj koniec przedzialu');
readln(x);
sum:=0;
sum1:=0;
sum2:=0;
repeat;
if i>0 then
begin
sum:=sum+1
end;
if i=0 then
begin
sum1:=sum1+1
end;
if i<0 then
begin
sum2:=sum2+1
end;
i:=i+1;
until i>x;
writeln('liczb dodatnich jest:',sum);
writeln('liczb zerowych jest:',sum1);
writeln('liczb ujemnych jest:',sum2);
repeat until keypressed;
end.
zadanie 4
program kwadrat;
uses crt;
var
x,y,i,w:integer;
begin
clrscr;
writeln('program rysuje kwadrat z * o zadanych wymiarach');
writeln('wprowadz wysokosc');
readln(x);
writeln('wprowadz dlugosc');
readln(y);
i:=0;
repeat
i:=i+1;
writeln('');
for w:=1 to y do write('*');
until i=x;
repeat until keypressed;
end.
tyle mam pozdro!!!!
Diab - Czw Lis 12, 2009 4:50 pm
Przedmiot nazywa się Podstawy Programowania;)
A właśnie, że nie
Olcia - Czw Lis 12, 2009 5:07 pm
Aa racja, wstęp do programowania
Dzięki za zrobione programy, właśnie męczę się z kostką, więc "ściągawka" mi wiele pomoże
Mała Mi - Czw Lis 12, 2009 5:24 pm
zadanie 3 all in one
program zadanie3;
uses crt;
const n=100;
type tablica=array[1..n] of longint;
var a:tablica;
b,x:longint;
pi,tr,dw,d,u,z:longint;
begin
clrscr;
writeln('program sprawdza podzielość liczb i ich znak');
writeln;
write('ile liczb chcesz sprawdzić? ');
readln(b);
pi:=0;
tr:=0;
dw:=0;
d:=0;
u:=0;
z:=0;
for x:=1 to b do
begin
write('podaj ',x,'-ą liczbę ');
readln(a[n]);
if (a[n])<>0 then
begin
if ((a[n]) mod 5)=0 then
pi:=pi+1;
if (((a[n]) mod 3)=0) and (((a[n]) mod 7)=0) then
tr:=tr+1;
if ((a[n]) mod 2)<>0 then
dw:=dw+1;
end;
if (a[n]) >0 then
d:=d+1;
if (a[n]) <0 then
u:=u+1;
if (a[n]) = 0 then
z:=z+1;
end;
writeln('liczb podzielnych przez 5 jest ',pi);
writeln('liczb podzielnych przez 3 i 7 jest ',tr);
writeln('liczb nieparzystych jest ',dw);
writeln('liczb dodatnich jest ',d);
writeln('liczb równych zero jest ',z);
writeln('liczb ujemnych jest ',u);
readln;
end.
klaudia - Czw Lis 12, 2009 5:36 pm
Przedmiot nazywa się Podstawy Programowania;)
Nazywa się Wstęp do programowania
Nawet nie wiesz czego się uczysz?
Caps_Lock dzieki za zadanie z kostką
Caps_Lock - Czw Lis 12, 2009 5:49 pm
a tu zadanie 3 w całości bez tablic ;p
program dzielenie;
uses crt;
var
x,i,y,sum,sum1,sum2,sum3,sum4,sum5:integer;
begin
clrscr;
writeln('Program sprawdza podzielnoÂâ liczb i ich znak');
writeln('Podaj poczĄtek przediaÂu');
readln(i);
writeln('Podaj koniec przedziaÂu');
readln(y);
sum:=0;
repeat
if i mod 5 = 0 then
begin
sum:=sum+1
end;
if i mod 3 = 0 then
begin
if i mod 7 = 0 then
begin
sum1:=sum1+1
end;
end;
if i mod 2 = 0 then else
begin
sum2:=sum2+1
end;
if i>0 then begin sum3:=sum3+1 end;
if i=0 then begin sum4:=sum4+1 end;
if i<0 then begin sum5:=sum5+1 end;
i:=i+1;
until i>y;
writeln('liczb podzielnych przez 5 jest:',sum);
writeln('liczb podzielnych przez 3 i 7 jest:',sum1);
writeln('liczb nie podzielnych przez 2 jest:',sum2);
writeln('liczb dodatnich jest:',sum3);
writeln('liczb zerowych jest:',sum4);
writeln('liczb ujemnych jest:',sum5);
repeat until keypressed;
end.
Angela - Czw Lis 12, 2009 5:57 pm
To samo pytanko co u Mariusza, czy ktoś zrobił to co było na zadanie tj.(patrz temat)?
P.S Wielkie dzięki za kostkę
Mała Mi - Czw Lis 12, 2009 8:14 pm
i co zrobił ktoś?
edit: (coby nie było że posty nabijam )
poddałam sie
a takie cuś dostałam od Pauliny (ściągnięte z neta jak coś):
program suma;
uses crt;
var s,i,a:integer;
begin
clrscr;
write ('podaj liczbe: ');
readln (a);
writeln;
i:=0;
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
i:=i+1;
end;
writeln ('suma cyfr wynosi:',s);
readln;
end.
to co ja stworzyłam blisko było
Paulina - Czw Lis 12, 2009 9:07 pm
program SumaCyfr;
uses crt;
var s,a,i:integer;
begin
clrscr;
writeln ('program sumuje cyfry podanej liczby: ');
write ('podaj liczbe: ');
readln (a);
i:=0;
s:=0;
while a>0 do begin
s:=s+a mod 10;
a:=a div 10;
i:=i+1;
end;
writeln ('Suma cyfr podanej przez Ciebie liczby wynosi: ', s );
writeln;
writeln ('Twoja liczba składa się z: ', i , 'cyfr');
readln;
end.
baskat89 - Czw Lis 12, 2009 9:13 pm
program sumacyfr;
uses crt;
var x,suma,dzielnik,wynik:longint;
begin
clrscr;
writeln('Podaj liczbe z zakresu od 0-99999. Program obliczy sume jej cyfr: ');
readln(x);
dzielnik:=10000;
repeat
wynik:=x div dzielnik;
x:=x mod dzielnik;
dzielnik:=dzielnik div 10;
suma:=suma+wynik;
until dzielnik=0;
writeln('Suma wynosi: ',suma);
readln;
end.
zanotowane.pldoc.pisz.plpdf.pisz.plalbionteam.htw.pl
zanotowane.pldoc.pisz.plpdf.pisz.plcichooo.htw.pl
|
|
|
|
