e-ZSK - Forum dla Młodzieży

Kod: Zaznacz cały

program NWD;
uses crt;
var
wejscie:array[1..10] of integer;
j,i,a,b,c:integer;
begin
     clrscr;
     writeln('Podaj 10 dodtanich liczb');
     for i:=1 to 10 do
     begin
          repeat
                write('Podaj ',i,' element :');
                read(wejscie[i]);
          until wejscie[i]>0;
     end;

     b:=wejscie[1];
     for j:=1 to 9 do
     begin
          a:=wejscie[j+1];
          repeat
               c:=a mod b;
               a:=b;
               b:=c;
          until b=0;
          b:=a;
     end;
writeln('NWD:',b);
readln;
readln;

end.

Macie, teraz ja mogę zadać zadanie i zadam je po 1 września więc cicho i nie marudzić, bo teraz moc jest po mojej stronie

Tak zgadza sie teraz MxAlex podaje zadanie i tylko dodam bo zapomnaił napisać '1 września' 2007

Okey.. a potem będziesz jęczał

Chociaż Alex się spisał

"zabawa!" ??? Niektorzy naprawde nie widzą świata poza komputerem =/ Nic tylko współczuć...

Nucia napisał(a):Brawo Oski, brawo xD

Ale się wykazałaś... nie mam pytań.

@Oski: jak chcesz to ci moge założyć jakiś inny dział zgodny z twomi zainteresowaniami... A ten temat nie jest o ludziach którzy nie widzą świata poza komputerami tylko o ćwiczeniu programowania- to nie jest żaden hardcore, kilka prostych zadanek mógłbyś zrobić w wakacje, głowa ci od tego nie odpadnie a przynajmniej nie będziesz miał bolesnego powrotu. Czy to jest jakieś dziwne? Dla mnie dziwnym jest jak ktoś wybiera sobie profil którego nie lubi - współczuje

A ja nie mam pytań co do tego jak szanujesz kobiety [chodzi mi o"zamilcz"itp].

Nie rób offtopu, daj zadanie z programowania, rozwiąż je lub zamilcz...

Dziś 1 wrześna (ja pie*****), tak więc jak napisałem dziś ku ogólnemu zniesmaczeniu, zadam kolejne zadanie. Nie chciało mi się wymyślać czegoś orginalnego więc zapodam z lekcji.

Napisz funkcję DownCase, która będzie działać przeciwnie do UpCase, a następnie wykożystaj ją w programie. Enjoy !

Kod: Zaznacz cały

program downcase;
uses crt;
var slowo:string;
i,j,k:byte;
function mydowncase2(slowo:string):string;
begin
  j:=0;
    for i:=1 to length(slowo) do
    begin
        if (ord(slowo[i])>64) and (ord(slowo[i])<91) then
        begin
          slowo[i]:=chr(ord(slowo[i])+32);
          j:=j+1
        end;
    end;
  mydowncase2:=slowo;
  k:=length(slowo)-j;
end;
procedure mydowncase1;
begin
  writeln('podaj znak lub slowo znakow');
  readln(slowo);
  writeln('ciag znakow zmodyfikowany: ',mydowncase2(slowo));
  writeln('zmieniono ',j,' znakow');
  writeln('pozostawiono ',k,' znakow');
  readln;
end;
begin
mydowncase1;
readln;
end.

odrobina komentarza - program oprócz zmieniania dużych liter na małe, zlicza też dokonane zmiany i znaki pozostawione bez zmian. Zeby mieć sam wynik w postaci zmienionego ciągu znaków, należy wywołać funkcję mydowncase2.

Rada na przyszłość: jeśli chcesz żeby funkcja zwracała więcej niż jeden argument, użyj przekazywania zmiennej w parametrze tj. rekurencji.

function mydowncase2(slowo:string; var k:byte):string;


wywołanie wygląda tak
mydowncase2(string_do_zamiany, zmienna_typu_byte);

funkcja ta oprócz stringa zwróci także do zmiennej zmienna_typu_byte liczbę zmienionych znaków. I tak jest bardziej estetycznie

Poza tym nie mam zastrzeżeń.

Dawaj następne

ok, a oto zadanie z książki:

Wprowadź liczby do dwuwymiarowej tablicy liczb o wymiarach n wierszy na m kolumn i oblicz:

- sumy elementów w wierszach
- sumy elementów w kolumnach

Wyprowadź obliczone sumy z numerem wiersza i kolumny.

Uważam to zadanie za nietrudne, jedynie pare nieskomplikowanych iteracji i tablica

więc kaman, czas start !

Kod: Zaznacz cały

program macierz; {Rafal Broll 2H; 1.09.2006; Program wprowadza dane do macierzy i przedstawia sumy w kolumnach i wierszach}



type
max=1..100;
Ttablica=array[max,max] of integer;

var
tablica:Ttablica;
kolumny,wiersze,i,j:max;

function suma_wiersza(wiersz:max; var tab:Ttablica):longint;
var i:max;
suma:longint;
begin
suma:=0;
for i:=1 to kolumny do inc(suma,tab[i,wiersz]);
suma_wiersza:=suma;
end;

function suma_kolumny(kolumna:max; var tab:Ttablica):longint;
var i:max;
suma:longint;
begin
suma:=0;
for i:=1 to wiersze do inc(suma,tab[kolumna,i]);
suma_kolumny:=suma;
end;

begin
write('elo nigga, podaj liczbe kolumn macierzy:');
readln(kolumny);
write('podaj liczbe wierszy macierzy:');
readln(wiersze);

for i:=1 to kolumny do for j:=1 to wiersze do
begin
write('podaj element [',i,',',j,']: ');
readln(tablica[i,j]);
end;

writeln('to teraz tak:');

for i:=1 to kolumny do
writeln('suma wartosci elementow macierzy w kolumnie ',i,' wynosi ',suma_kolumny(i,tablica));

writeln;

for i:=1 to wiersze do
writeln('suma wartosci elementow macierzy w wierszu ',i,' wynosi ',suma_wiersza(i,tablica));



readln;


end.


To dam proste na przypomnienie modułu graph:
Napisz program który wyświetli sinusoidę

Napisz program która zamienia wode na piwo ..(moze byc wóda)

takie rzeczy to tylko w Erze
//Jogurt

Ale lameriada... nie umiecie? to wersja light: Napisz program który ..... albo nie bo to chamskie xD