Projekt badawczy Polska-Namibia 2010

Ale ekspert zrobił w nas babuko,kupiłem eksperta za 16.50zł z 2 DVD programy się mieszczą na 1 DVD po co mi druga płyta za co zapłaciłem za dodatkową płyte czy za moją głupote ze kupuje Eksperta. Bardzo mnie redakcja zawiodła. Chociasz mogli wypełnic reszczte jakimis darmowymi programami nawet Turbo pascala niema a to jest podstawa dla początkujących użytkowników programowania

(...)
Pozdrawiam serdecznie i ponawiam prośbę o kurs Pythona.

Ja też :)
OK, może patrząc po forum do dużej liczby postulatów się dołączam, ale nie bez powodów.

Turbo Pascal, jak napisał mój poprzednik, to język przestarzały. Wiem, że pewnie zna go część Redakcji zna go doskonale, ale pora iść do przodu!

Ja teraz piszę głównie w Javie i ten język też jest godny moim zdaniem rozważenia, lecz myślałem o integracji Pythona i Javy w moich programach. Tak, aby Python był językiem skryptów - dodatków do programu. Uważam ten język za godnego rywala dla Javy, chociaż myślę że oba przetrwają, nawet złączą kiedyś siły.

Popieram Pythona! Podobno nauka to chwila, chyba warto ją poświęcić dla renomy i zadowolenia czytelników!

witam !
za 3 dni mam zaliczenie! mam dla was 3 zadania, z którymi ostanio sobie nie poradziałam :D liczę na Was ! :)

zadanie 1
napisz program, który bedzie wyświetlał wszystkie liczby trzycyfrowe, których suma cyfr jest większa od 20.

zadanie 2
napisz program, który wyświetla wszystkie liczby dwucyfrowe, któryc iloczyn cyfr jest nieparzysty.

zadanie 3
napisz program, który oblicza średnią arytmetyczną dowolnego ciągu liczb różnych od zera, a zakończonych wprowadzona liczbą 0.

czekam ;)

w oparciu o ten program mam napisac program rysujacy choinke widoczna na gorze. Ma to byc zrobione kodem ascii. Nie znam sie na tym i bardzo

prosze o POMOC. HELP!!!!!!

Tak ma wygladac :(

http://www.eimg.org/...44beztytulu.jpg

Kod:

program program14; uses crt; procedure ramka(xp, yp, xk, yk : integer); var i : integer; Begin {narozniki} gotoXY(xp,yp); write(char(201)); gotoXY(xk, yp); write(char(187)); gotoXY(xp, yk); write(char(200)); gotoXY(xk,yk); write(char(188)); {linie poziome} gotoXY(xp+1,yp); FOR i:=1 to xk-xp-1 do write(char(205)); gotoXY(xp+1,yk); FOR i:=1 to xk-xp-1 do write(char(205)); {linie pionowe} FOR i:=1 to yk-yp-1 do BEGIN gotoXY(xp, yp+i); write(char(186)); gotoXY(xk, yp+i); write(char(186)); END; readln; END; BEGIN clrscr; ramka(10,10,60,20); ramka(5,6,30,15); END.

ppl please pimp my code xE

Witam... dopiero zacząłem się uczyć Turbo Pascala. Przy napisaniu prostego programu i uruchomieniu go w windozie, po naciśnięciu ENTER znika całe okno Nie wiem o co chodzi... Oto kod programu:

VAR
imie: string;
BEGIN
writeln;
write('Jak sie nazywasz?');
writeln;
read(imie);
write('Witam!',imie,'Zycze milego dnia!');
readln;
END.

Nie wiem czy jest to wina programu, czy windowsa. Moze macie jakis pomysł?

Witam! Mam problem dotyczacy wykonania programu w turbo pascalu na informatyke a z programowania nie jestem zbyt dobry. Mam napisac program z 2wymiarowa tablica.
Bez zarnych procedur i funkcji (czy jakos tam to sie nazywa). Tablica 2 wymiarowa wyswietlajaca liczby od 1 100 wybierane losowo. Z gory dzieki za pomoc

Witam!

Mam pewien program we Free Pascalu (zrobiony poprzez wprowadzenie pewnych zmian w programie z Turbo Pascala), w którym nie działa drukowanie. Nie chcę się zagłębiać w funkcje i procedury, więc pomyślałem, żeby ten problem obejść przy pomocy Visual Basica.

Otóż chciałbym stworzyć aplikację, która miałaby pewną kontrolę nad uruchomionym exe z głównym programem (napisanym w FPC). Aplikacja w VB robiłaby print-screen z zawartości okienka FPC, wrzucałaby ten screen np. do pliku PDF (może obyłoby się bez tego eksportu?) i włączała drukowanie.

Czy możecie mi zasugerować jakieś tutoriale / pomysły jak to zrobić?

Pozdrawiam!

witam!


napisałem w chwili nudy program w języku Turbo Pascal (jestem sympatykiem tego języka).
Mało go było w szkole a ja chce pogłębić swoją wiedzę i mam tu program który ma bardzo proste działanie i czy mógłby ktoś mi powiedzieć jak wynik mojego programu zapisać w pliku tekstowym?



oto kod programu:
program z_nudy; uses crt; var a,b,c:string; f,g,h:longint; begin clrscr; clrscr; writeln; writeln; writeln; writeln('Podaj slowo kluczowe ktore bedzie modyfikowane, np. imie, ksywkę itp.'); read(a); f:=1; b:=('@wp.pl'); g:=1000; repeat write(a); write(f); write(b); write(';'); f:=f+1; readkey; until f=g; end.

Jeśli dobrze rozumiem, to chodzi o turbo pascala, a więc o program "dosowy". Wystarczy we własciwościach pliku exe zaznaczyć opcje pełnego ekranu (nie pamiętam na której zakładce) i wcisnąć ok. Nie trzeba nic robić w kodzie, a nawet się nie da, ponieważ to windows uruchamia okienko, w którym pojawia się program dosowy. Jak byś pracował w dosie, to nie musiał byś się martwić o to.

Jeżeli chodzi o blokade klawisza, to rozumiem, że ma być on zablokowany podczas wykonania funkcji takich jak readln i readkey. Jeśli chodzi o readkey, to wystarczy napisać prostą instrukcje if ... then ... else:


uses
crt;

var
p, n : char;
...
n := {tutaj wpisać jaki klawisz ma być blokowany w postaci kodu ASCII jaki wskazuje};
p := readkey;
if p <>n then
begin

{kod jaki ma się wykonać jeżeli zostanie wciśnięty jakiś klawisz, nie wykona się on, jeżeli zostanie wciśnięty zablokowany klawisz}

end;


Jeżeli chodzi o przypadek z readln, to nie wiem. Można by użuć funkcji readkey i dodawać wciskane klawisze do łańcucha znaków (według kodu jaki podałem powyżej w miejscu, gdzie napisałem "kod jaki ma się wykonać jeżeli zostanie wciśnięty jakiś klawisz". Nie będzie w tej sytuacji dodawany zablokowany znak. Trzeba było by tylko dodać obsługe backspace, ale to nie jest trudne.

Sposób podany przez jasmin912 jest dobry, ale tylko w przypadku programowania z użyciem klas i zdarzeń, a w TP się tak nie programuje (dopiero obiektowo pod windows w BP).

Nie mogę zainstalować turbo pascala 7.0 8| ściągałam go z różnych stron i za każdym razem uruchamiania tego programu pokazywał się komunikat o następującej treści:
"C:\WINDOWS\SYSTEM32\AUEXEC.NT. Ten plik systemowy nie nadaje się do uruchamiania aplikacji systemu MS-DOS lub Microsoft Windows. Wybierz przycisk "Zamknij", aby zakończyć działanie aplikacji." :( Nie wiem co robić POMÓŻCIE! Potrzebuje tego programu Z góry dziękuje za udzieloną pomoc :calus:

Ten kompilator to Borland Turbo C++ lite
Powiedz mi czy to dobry kompilator

Zadanie wykonałem.
Problem nadal jest ale inny ponieważ program który napisałem ma liczyć konkretnie liczyć liczbę stronków w groszku taka głupota.Chodzi o to że gdy wpisuję liczby do pomnożenia program się wyłancza muszę go ponownie uruchomić aby zobaczyć wynik co jest powodem tego czy podobnie jak w Pascalu trzeba jakoś to zapętlić

Witam :P Mam wielka prosbe aby ktos napisal mi program bo musze go miec zeby zaliczyc semestr... wyslac musze pani w piatek do godziny 19:45... 8| oto zadanie....

Napisz program ‟komputerową nianię”. Program powinien gromadzić dane na temat tego
jak długo w danym dniu komputer był używany. Jeżeli użytkownik przekroczy 2 godziny
na dobę komputer powinien się wyłączyć, dając mu 1 minutę na zapisanie danych. Program
powinien mieć zabezpieczenie przed zmianą daty / godziny w systemie i jeśli wykryje taką
sytuację natychmiast wyłączyć komputer.

Pogram ma byc napisany w Turbo Pascalu 7.... Za Zrobienie zadania bede bardzo wdzieczny..... :D :D :D Z Gory dziekuje :) :) :)

Jestem poczatkujacy w tp, mam problem z jednym z programow. Wszystko wydaje sie byc dobrze napisane ale kompilator wywala mi blad ze potrzebnu jest ',' :/

oto caly program:

Program funkcja;
uses crt;
var a,b,c,u,i,h,z:real;

function f(x:real):real;
begin
if (x>=0) and (x<Pi) then f:=3.5*(cos(x)/sin(x))+2.1*exp(0.5*ln(x))+x
else
begin
if x>=Pi then f:=exp(sqr(x))-exp(1/3*ln(sqr(x)-9))
else
if x>0 then f:=ln(sqr(x)-2*x-3)+exp(x*ln(x));
end;
end;

function g(a,b,c,u:real):real;
begin
g:=a*f((a-B)*sqr(u)-u)+b*f((a-c)*sqr(u)+u-B)+C*sqr(u);
end;

BEGIN
clrscr;

{$I-}
repeat
write('Podaj A: ');
readln(a);
i:=ioresult;
if i<>0 then write('Zly typ. ');
until i=0;
repeat
write('Podaj B: ');
readln(B);
i:=ioresult;
if i<>0 then write('Zly typ. ');
until i=0;
repeat
write('Podaj C: ');
readlnŠ;
i:=ioresult;
if i<>0 then write('Zly typ. ');
until i=0;
repeat
write('Podaj U: ');
readln(u);
i:=ioresult;
if i<>0 then write('Zly typ. ');
until i=0;
{$I+}

h:=g(f(u)-3*u)+g(u*u-f(5))-3;
z:=a*f((a-B)*sqr(u)-u)+b*f((a-c)*sqr(u)+u-B)+C*sqr(u);
Writeln('G(',u:1:3,')=',z:1:4);
Writeln('H(',u:1:3,')=',h:1:4);
readln;
END.

W miejscu po czerownym u powinien byc przecinek, tak pokazuje program :D. Czy ktos wie jak poprawic ten blad i dlaczego on wystapil?

Wiem czytałem ten poradnik :) Już wiem dlaczego nie działało. W moim programie miałem assign(fkurs,'c:\bazadanych\fkurs.dat'); Program nie działał poprawnie ponieważ (tak mi się wydaje) nazwa folderu 'bazadanych' była za długa a długie nazwy folderów w Turbo Pascalu zawsze mają jakieś "znaczki" typu "~1" lub coś takiego na końcu. Dlatego zmieniłem 'bazadanych' na 'bd' i wszystko działa. Szkoda że w żadnym kursie tego niema. Ponadto usunąłem nazwę dysku aby program mógł pracować niezależnie od tego czy znajduje się na c: d: czy innych partycjach. Dzięki za pomoc :)

No wlasnie uzywam programu Turbo pascal i wszytsko dziala procz dzielenia.
Kiedy stosuje np taka operacje x:=x/2 czy kazda inna w ktorej wyspetuje dzielenie wyskakuje mi blad missmatch cos takiego. Zainstalowalem sobie kompilator "free pascal compilator" i problem jest ten sam.
Pracuje na systemie windows xp.
W czym jest probolem? wszystkie inne wyrazenia jak dodawanie odejmowanie czy mnozenie dzialaja natomiast przy dzieleniu wyskakuje blad.

A co niby Delphi uczy lepiej myśleć niż c++ lub pascal?. W delphim program napisze kazdy kto zna kilka komend. w c++ juz trzeba na prawde myśleć. A co do mylenia sie przy zanajomości wielu języków to jak Ci sie nie myla jesli znasz ich tyle to musisz miec dobra pamięć bo mi się myli nawet jak pisze coś w delphim a potem zaczynam coś robić ze stroną w PHP. Ogulnie to funkcje i procedyury nie ale operatory okropnie. Co do tego ze jezyk programowanie gdzie jakies funkcje robią cos za ciebie np jak w delphim woogule nie uczy myślenia(pryznajmiej w moim wypadku) a nauka turbo pascala dała mi naprawde dużo jesli chodzi o rozwuj myślenia.

program Zadanie2;
const
N=5;
M=5;
type
tablica=array[1..N,1..M] of shortint;
var
i,j:byte;
T:tablica;

procedure wydruk;
begin
writeln('Wydruk zawarto˜ci tablicy: ')
for i:=1 to N do
begin
for j:=1 to M do write(T[i,j]:5);
writeln;
end;
end{wydruk};

begin
randomize;
for i:=1 to N do
for j:=1 to M do T[i,j]:=random(20)-10

{tu ma być fragment kodu}

readln;
end.

potrzebuje na egzamin dopisać fragment kodu który wyzeruje dodatnie elementy tablicy
obliczy sumę niezerowanych elementów tablicy
i wszystko ładnie wypisze

płace kaskę na konto potrzebuje to od zaraz na teraz