--> Archiwum Forum
Malmes [ Centurion ]
Pgromna prosba o programistow
blagam, jestem kompletnym laikiem w tych sprawach, a z racji tego ze zbliza sie koniec roku moja nauczycielka powiedziala ze jesli marze o 4, to mam napisac jakis program.
Czy bylby ktos na tyle uprzejmy i mogl zrobic mi jakis programik, no nie wiem np. jakis kalkulator tekstowy, albo cos w tym stylu, a gdyby byl do niego jakis opis to juz kosmos
kasy nie mam, licze na ludzka zyczliwosc
Malmes [ Centurion ]
no nie mialo byc Ogromna prosba do programistow
Mortan [ ]
w jakim jezyku ?
U_N [ -KOCHAM ANIE- ]
mam pare peogramow, napisz jaki chcesz, cos prostego wymysl to Ci zaraz napisze :)
Mortan [ ]
Kalkulator w C++, daj maila to Ci wysle plik exe
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
main()
‹
int a, b;
cout<<"Podaj liczbe a: ";
cin>>a;
cout<<"Podaj liczbe b: ";
cin>>b;
cout<<"liczba a + liczba b= "<<a+b<< "\n";
cout<<"liczba a - liczba b= "<<a-b<< "\n";
cout<<"liczba a * liczba b= "<<a*b<< "\n";
cout<<"liczba a / liczba b= "<<a/b<< "\n";
cout<<"reszta z dzielenia liczby a przez liczbe b= "<<a%b<< "\n";
getch();
›
U_N [ -KOCHAM ANIE- ]
Mortan teeraz tak sobie pomyslalem ze kiedys potrafilem pisac takie proste programiki, ale teraz nawet taki prosty programik sie u mnie skomplikowal :) np stosujac procedury w pascalu czego nie sosuja poczatkujacy - a szkoda bo to znacznie ulatwia sprawe :)
Malmes -> no i jaki ten jezyk ? ja oferuje pascala :)
Malmes [ Centurion ]
jezyk jak najprostszy, Mortan=>[email protected], dzieki a jakim programem mozna edytowac ten program?
Sir Skull [ Demnogonis ]
#include <iostream>
#include <conio.h>
using namespace std;
int main(void)‹
int a, b;
cout<<"Podaj liczbe a: ";
cin>>a;
cout<<"Podaj liczbe b: ";
cin>>b;
cout<<"liczba a + liczba b= "<<a+b<< endl;
cout<<"liczba a - liczba b= "<<a-b<< endl;
cout<<"liczba a * liczba b= "<<a*b<< endl;
if (b!=0) ‹
cout<<"liczba a / liczba b= "<<a/b<< endl;
cout<<"reszta z dzielenia liczby a przez liczbe b= "<<a%b<< endl;
›
else
cout << "nie dzielimy przez 0" << endl;
getch();
›
Trochę poprawiłem ten kalkulator :)
U_N [ -KOCHAM ANIE- ]
czyli jesyes kompletnie zielony, eh najlepiej sam sie czegos naucz, wg mnie pascal jest bardzo prosty i latwy, musisz poszukac i sciagnac Free Pascal 7.0
Sir Skull [ Demnogonis ]
o sorry, już jest ok ;)
#include <iostream>
#include <conio.h>
using namespace std;
int main(void)‹
int a, b;
cout<<"Podaj liczbe a: ";
cin>>a;
cout<<"Podaj liczbe b: ";
cin>>b;
cout<<"liczba a + liczba b= "<<a+b<< endl;
cout<<"liczba a - liczba b= "<<a-b<< endl;
cout<<"liczba a * liczba b= "<<a*b<< endl;
if (b!=0) ‹
cout<<"liczba a / liczba b= "<<a/b<< endl;
cout<<"reszta z dzielenia liczby a przez liczbe b= "<<a%b<< endl;
›
else
cout << "nie dzielimy przez 0" << endl;
getch();
return 0;
›
Mortan [ ]
Ja mam Dev c++ 4.9.9.2 W nim odpalisz kod programu potem kompilacia i dziala :) Zaraz wysle maila.
Ok juz poszło.
Wypowiedź została zmodyfikowana przez jej autora [2005-06-05 10:17:18]
Malmes [ Centurion ]
tak wiem ze najwyzszy czas sie nauczyc ale nie chce pogorszyc sobie oceny ktora i tak juz jest delikatnie mowiac do dupy, szczegolnie ze ocena liczy sie na swiadectwo:(
Mobii [ Mobbing ]
a powiedz jaka to szkola?? bo jesli jakies liceum to watpie zeby tam C bylo :P a jak jej to dasz to przypadkiem mozesz tej 4 nie dostac :D poszukaj cos w pascalu, to bedzie bardziej wiarygodne :D bo P jest w programach szkol srednich czesciej niz C :D
U_N [ -KOCHAM ANIE- ]
Macie jakies lekcje na C++ w necie ?? chcial bym sobie popatrzyc :) moze sie czegos naucze przy okazji :)
U_N [ -KOCHAM ANIE- ]
to jest dosc ciekawy programik :) daaawno go zrobilem :) pascal
program piwo;
uses crt;
var t,p:text; n:longint;
begin
n:=1;
assign (t,'c:\pliki\pliki2.txt');
rewrite (t);
append(t);
repeat
begin
write (t,'');
writeln (t,n,' butelek piwa na scianie');
n:=n+1
end;
until keypressed;
append (t);
write (t,'piwo sie skonczylo :/');
close (t);
end.
U_N [ -KOCHAM ANIE- ]
teraz lepiej :) wystarczy skompilowac i odpalic :) uwaga na moim kompie w 3 sekundy zrobilo 15 MB :P programik skutecznie zapycha dysk :)
program pliki3;
uses crt;
var t,p:text; n:longint;
begin
n:=1;
assign (t,'c:\pliki2.txt');
rewrite (t);
append(t);
repeat
begin
write (t,'');
writeln (t,n,' butelek piwa na scianie');
n:=n+1
end;
until keypressed;
append (t);
write (t,'piwo sie skonczylo :/');
close (t);
end.
Mortan [ ]
U_N --> Mam na dysku dwie ksiazki "C++ dla kazdego" i " C++ Programing" ( po angielsku) jak chcesz to daj maila to wysle.
U_N [ -KOCHAM ANIE- ]
Mortan dzieki [email protected]
kolejny program liczący silnie :)
program silnia;
uses crt;
var i,a,n : integer;
m: longint;
begin
repeat
begin
write ('podaj liczbe n=');
readln (n);
a:=0;
m:=1;
for i:=1 to n do
begin
a:=a+1;
m:=m*a;
end;
writeln (n,'!','= ',m);
end;
until n=(0);
end.
Malmes [ Centurion ]
wiec to jest 1LO :( w ogole jestem zdolowany, bo mamy klase podzielona na grupy, my musimy sie meczyc ze stronami, dreczy nas excelem, wordem, jakies testy durne, stoperem mierzy nam czas na 1 zadanie, a tymczasem koles z grupy sasiedniej nawet kompa nie ma i 6 ma
U_N [ -KOCHAM ANIE- ]
Males - u nas tez tak bylo, ale sam przechodzilm sobie na lekcje do grupy ktora "cos robila", wiekrzosc lekcji programowalismy w 3 osoby :) szkoda ze juz sie skonczylo :( eh
Mortan [ ]
Malms --> Przynajmniej bedziesz cos umiał :)
Sir Skull [ Demnogonis ]
Program Gra; ‹Gra polega na tym, ze Gracz podaje zakresz liczb w kotrym znajduje sie liczba wymyslona przez komputer. Nastepnie gracz prouje zgadnac ta liczbe›
Uses
Crt;
var
n,x,zakres,lrk,lrg:integer; ‹n-szukana liczba, x-liczba podana przez komputer/gracza›
odpowiedz:char;
Begin
Clrscr;
Writeln('Podaj zakres zgadywanej liczby(od 0 do ...) : ');
Readln(zakres);
randomize;
n:=random(zakres)+1;
x:=0;
lrk:=0;
lrg:=0;
Writeln('Podaj zgadywana liczbe');
While x<>n do
Begin
readln(x);
if x<n then Writeln('Podaj wieksza liczbe');
if x>n then Writeln('Podaj mniejsza liczbe');
lrg:=lrg+1;
end;
Writeln('Zgadles, ta liczba to ',n);
Writeln('Wobec tego teraz zgaduje Gracz. Zakres pozostaje ten sam, zeby szanse byly rowne.');
x:=zakres div 2;
n:=x;
Odpowiedz:=' ';
While odpowiedz <>'=' do
Begin
Write('Czy ta liczba to ',n,' ? [<,>,= - uzywaj tych znakow]');
Readln(odpowiedz);
if odpowiedz='>' then
begin
x:=x div 2;
if x=0 then x:=1;
n:=n+x;
end;
if odpowiedz='<' then
begin
x:=x div 2;
if x=0 then x:=1;
n:=n-x;
end;
lrk:=lrk+1;
end;
Writeln;
if (lrk<lrg) then Writeln('Wygral komputer') else
if (lrg<lrk) then Writeln('Wygral gracz') else
Writeln('REMIS');
readln;
END.
Daaawno to pisałem :) prosta gra.
Malmes [ Centurion ]
hehe dobre:D najsmieszniejsze jest to ze ona (moja nauczycielka) potrafi prgramowac, operuje officem, zna sie na sprzecie, podczas gdy na 1 lekcji organizacyjnej, kiedy pytala jak dzielmy moniotory typu lcd, crt mowila zeby nie wymieniac jej nazw firm
to jadziekuje za taka nauke<lol>
Moby7777 [ Konsul ]
Malmes --> Powiedz przede wszystkim jaki program potrzebujesz (no i w jakim jezyku). Jak cos to ja moge Ci podeslac oprogramowana algebre zbiorow razem z rozrysowanymi algorytmami (program w c++, algorytmy i skrocony opis w wordzie)... no ale to moze byc "ciut" zbyt rozbudowane. A jak chcesz cos prostszego w c++ to powiedz co. Jak nie masz pomyslu to moze poszukaj czegos na stronce mojego wykladowcy z zeszlego semestru (masz tam dosc sporo przykladowych zadan na laborki)
[edit]
Z ciekawszych aplikacji to mam jeszcze program rysujacy grafy ale korzysta z niestandardowej biblioteki allegro.h wiec raczej na pewno Ci sie nie przyda
Wypowiedź została zmodyfikowana przez jej autora [2005-06-05 10:47:35]
U_N [ -KOCHAM ANIE- ]
Mortan - dotarlo dzieki :)
techi [ Legend ]
W liceum jest częściej C++ niż Pascal;]
Przynajmniej w moim wypadku;]
Moby7777 [ Konsul ]
Dlaczego sadzisz ze informacja o podziale typow monitorow jest nie potrzebna? Albo ze wymieniajac producentow okreslasz typ? Na moj gust to wlasnie sobie tzw samoboja wbiles...
Inna sprawa ze:
- znajomosc MS Office to podstawa dla wszystkich ludzi pracujacych przy kompach (niekoniecznie informatykow)
- podstawy programowania zna praktycznie kazdy nauczyciel ktory ukonczy podyplomowe studium informatyki (miesieczny kurs odbywajacy sie w weekendy - przydatne do awansu zawodowego wiec zapisuja sie nawet polonisci) - oczywiscie pod warunkiem ze trafia na prowadzacych ktorzy chca ich czegos nauczyc.
- no a o sprzecie zaczela wam przeciez opowiadac (chyba ze oczekujesz od niej wylozenia liczb zespolonych, rachunku rozniczkowego, transformaty Laplace'a i wyliczania obwodow stosowanych w tym sprzecie? ;>)
U_N [ -KOCHAM ANIE- ]
Skull cos nie teges jest ten program :) potem sie pobawie teraz zobacze c++ :)
Sir Skull [ Demnogonis ]
U_N --> O którym mówisz ? ten w pascalu czy w c++ ?
Malmes [ Centurion ]
Moby hehe wlasnie sek w tym kiedy ona nas zapytala o rodzaje moniorow, i odpowiedzielimsy jej ze znamy lcd i crt, ona zaczela sie smiac i powiedziala ze to sa nazwy firm, ktore produkuja monitory
Sir Skull [ Demnogonis ]
aj tam, Malmes - szczegółów się czepiasz :D
Malmes [ Centurion ]
sir skull===> ta gra jest bardzo interesujaca, moglbys mi ja przeslac? porsze
Malmes [ Centurion ]
taa hehe takisz szczegolow jest pelno na kazdej lekcji jabym chcial to wszystko opisac to zaraz bym legendem zostal
Sir Skull [ Demnogonis ]
Malmes --> Poszło na mejla.
U_N [ -KOCHAM ANIE- ]
ten w pascalu
n,x,zakres,lrk,lrg:integer; ‹n-szukana liczba, x-liczba podana przez komputer/gracza›
nie wiem co chciales przez to osciagnac, jezeli opis programu to stosuje sie ‹› klamry :P
Sir Skull [ Demnogonis ]
U_N --> Poważnie !? Spójrz sam co napisałes haha, Twoje klamry też coś nie teges.
Malmes [ Centurion ]
sir skull==>dzieki doszlo :)
Malmes [ Centurion ]
sir ==> heh sory ze zawracam glowe ale czym to skompilowac?:>
U_N [ -KOCHAM ANIE- ]
zwracam honor :) widac nie obsluguje klamr :) wyslij mi pas na maila :)
U_N [ -KOCHAM ANIE- ]
Malmes - Turbo pascal albo Free pascal, zajmuje ok 30 MB :), musisz na necie poszukac :)
Sir Skull [ Demnogonis ]
U_N --> już wysłałem.
Sir Skull [ Demnogonis ]
ehh, za szybko pojawiają się tu posty :p sorry, że tak spamuje tu :)
Malmes --> Wysłałem Ci skompilowaną grę + kod. Sprawdź pocztę jeszcze raz.
U_N [ -KOCHAM ANIE- ]
Skull - super :)
gdzies widzialem painta w pascalu, niestety tylko exe
chcesz moze czytanie klawiszy z klawiatury ?? jest niezbedne do napisania gry sterowanej :)
Malmes [ Centurion ]
sir skull=> doszla ale nie wiedziec czemu mam blad
"C:\DOCUME~1\Admin\Pulpit\GRA\GRA.exe
C:\WINDOWS\SYSTEM32\AUTOEXEC.NT. Ten plik systemowy nie nadaje się do uruchamiania oplikacji systemu MS-DOS lub Microsoft Windows."
Mam win xp :(
U_N [ -KOCHAM ANIE- ]
no to lipa, musi go skompilowac ktos kto ma XP, ja zaraz wysle mam 2000 to moze ruszy
Skull - link ponizej :)
Sir Skull [ Demnogonis ]
U_N --> A po co mi to ? :D Od dawna już nie piszę w pascalu :p
Malmes --> To skompiluje kod i będzie ok.
wysiu [ ]
Malmes --> Znajdz na dysku plik autoexec.nt (bedzie w podkatalogach w 'windows', zapewne w repair), i skopiuj go do system32.
U_N [ -KOCHAM ANIE- ]
Skull - :P
wysiu - to pomaga ?? eh a ja niewiedzialem :)
moze napisac program ktory po odpaleniu wykonuje ta operacje i mozna go odpalic ;)
Malmes [ Centurion ]
sir skull==>dzieki, ale to co poradzil wysiu pomoglo
wysiu==>dzieki, ty to masz leb nie od parady:D
Malmes [ Centurion ]
dziekuje bardzo wszystkim ludziom dobrej woli, a w szczegolnosci Mortanowi, Sir Skullowi i U-Nowi
macie ode mnie wirtualnego browara
U_N [ -KOCHAM ANIE- ]
:)
..::Tr0yAn::.. [ Konsul ]
hej ziomki
mortan==>tak przygladam sie temu kalkulatorowi, ale nie wiem co znacza te fuckje:
int, cout, cin, getch, albo to u samej gory:
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
moze mi to ktos objasnic? do czego sa pootrzbne i co znacza?
z gory dziekoweczka
LeszekJ [ Legionista ]
Tutaj masz kalkulator w Pascalu:
program pola;
uses crt;
var numer:integer;
pt:integer;
wt:integer;
b1:integer;
b2:integer;
romb:integer;
d1:integer;
d2:integer;
pr:integer;
hr:integer;
promien:integer;
pt1:integer;
pt2:integer;
ht:integer;
begin
repeat
clrscr;
writeln;
writeln('Mozesz wyliczyc pola nastepujacych figur:');
writeln;
writeln('1 - trojkat');
writeln('2 - prostokat');
writeln('3 - romb');
writeln('4 - kolo');
writeln('5 - trapez');
writeln('0 - wylaczenie programu');
writeln;
writeln('Wpisz numer figury ktorej pole chcesz obliczyc:');
writeln;
read(numer);
if numer=1 then
begin
clrscr;
writeln('Podaj dlugosc podstawy: ');
read(pt); ‹podstawa trojkata›
writeln('Podaj wysokosc trojkata: ');
read(wt); ‹wysokosc trojkata›
writeln;
writeln('Pole tego trojkata wynosi ', pt*wt/2);
repeat until keypressed
end;
if numer=2 then
begin
clrscr;
writeln;
writeln('Podaj dlugosc pierwszego boku: ');
read(b1); ‹pierwszy bok prostokata›
writeln('Podaj dlugosc drugiego boku: ');
read(b2); ‹drugi bok prostokata›
writeln;
writeln('Pole tego prostokata wynosi ', b1*b2);
repeat until keypressed
end;
if numer=3 then
begin
clrscr;
writeln('Wybierz za pomoca jakich danych chesz wyliczyc pole rombu:');
writeln('1 - dlugosci obu przekatnych');
writeln('2 - dlugosc podstawy i wysokosc tego rombu');
writeln;
read(romb);
if romb=1 then
begin
clrscr;
writeln('Podaj dlugosc pierwszej przekatnej: ');
read(d1);
writeln;
writeln('Podaj dlugosc drugiej przekatnej: ');
read(d2);
writeln;
writeln('Pole tego rombu wynosi ', d1*d2/2);
repeat until keypressed
end;
if romb=2 then
begin
clrscr;
writeln('Podaj dlugosc podstawy rombu: ');
read(pr); ‹podstawa rombu›
writeln('Podaj dlugosc wysokosci rombu: ');
read(hr); ‹wysokosc rombu›
writeln;
writeln('Pole tego rombu wynosi ', pr*hr);
repeat until keypressed
end;
end;
if numer=4 then
begin
clrscr;
writeln('Podaj promien kola: ');
read(promien);
writeln;
writeln('Pole tego kola wynosi ', promien*promien*3.14);
repeat until keypressed
end;
if numer=5 then
begin
clrscr;
writeln('Podaj dlugosc pierwszej podstawy trapezu: ');
read(pt1); ‹pierwsza podstawa trapezu›
writeln('Podaj dlugosc drugiej podstawy trapezu: ');
read(pt2); ‹druga podstawa trapezu›
writeln('Podaj wysokosc trapezu: ');
read(ht); ‹wysokosc trapezu›
writeln;
writeln('Pole tego trapezu wynosi ', (pt1+pt2)*ht/2);
repeat until keypressed
end;
until numer=0;
end.
Użyte sąnajprostsze funkcje.
LeszekJ [ Legionista ]
Sorry to by program na pola figur
Sir Skull [ Demnogonis ]
Troyan -->
#include - dyrektywa preprocesora - służy głównie do dołączania plików nagłówkowych
cin - strumień wejściowy
cout - strumień wyjściowy
int - całkowity typ zmiennych
getch() - funkcja pobierająca ze standardowego wejścia 1 znak.
..::Tr0yAn::.. [ Konsul ]
@Sir Skull, dzieki
Moby7777 [ Konsul ]
A ja bede sie czepiac i uzupelnie Sir Skulla :P
#include powiedzial dobrze... Ja jednak uzupelnie do czego sluza poszczegolne pliki dolaczone w programie:
- iostream.h jest standardowa biblioteka funkcji wejscia i wyjscia w ujeciu strumieniowym (nazwa od Input Output STREAM) - wprowadzona w c++ (w ansi c nie bylo)
- conio.h zawiera instrukcje obslugujace konsole trybu tekstowego (nazwa od CONsole Input Output) - wymysl Borlanda. Nie objete miedzynarodowym standardem wiec funkcje typu getch() wprowadzane w tej bibliotece nie przenosza sie latwo (np na linuxa).
- stdio.h to biblioteka zawierajaca standardowe procedury wejscia i wyjscia (STandarD Input Output).Zastosowania podobne jak iostream.h. Roznica jest taka ze ta instniala juz w ansi c - zostala poniewaz czesc czynnosci latwiej wykonac funkcjami z jednej a czesc z drugiej biblioteki. Poza tym ulatwia przerzucenie sie ludziom z ansi c na c++
- math.h to oczywiscie biblioteka zawierajaca zestaw waznych funkcji (i wartosci stalych) matematycznych (zgadnij od czego nazwa :P)
Co do cin i cout to rzeczywiscie sa to strumienie wyjscia i wejscia. Obydwa sa buforowane oraz domyslnie przypisane do klawiatury i monitora (choc latwo je rowniez przypisac, np. cin do pliku z zestawem danych a cout do drukarki).
Co do funkcji getch to mysle ze warto podkreslic iz pobiera 1 znak typu char (stad nazwa instrukcji :P)... no i pobiera znak nie tyle ze standardowego wejscia co z bufora tegoz wejscia (roznica znaczaca przy obslugiwaniu np. klawiszy funkcyjnych :P).
Dobra. Koncze i sie juz nie czepiam :) nara
Sir Skull [ Demnogonis ]
Moby --> Dobrze wiesz, że z getch to był skrót myślowy :)
Co do przenaszalności getch() itp to zostało już to zrobione - ncurses. Świetna biblioteka działająca na linuxach, solarisach i innych wynalazkach.
Moby7777 [ Konsul ]
Sir Skull --> wiem wiem :)
A co do przenosnosci to tez wiem... poza tym sa nawet konwersje tej biblioteki pod rozne systemy. Tyle tylko ze to nie jest standard i mysle ze warto to podkreslic, nie? :)
DanIan [ Pretorianin ]
a czy ten kalkulator od Mortana dzieli przez 0? bo mialem kilka ale zaden nie dzielil przez 0
jesli tak to czy moglby ktos wyslac mi go na meila?
[email protected]
Moby7777 [ Konsul ]
DanIan--> co znaczy "dzielil przez 0"?? Bo jesli chcesz uwzglednic przypadek gdy ktos chce to zrobic to wystarczy w jego kalkulatorku linie "cout<<"liczba a / liczba b= "<<a/b<< "\n";" podmienic na "b==0 ? cout<<"nie dzieli sie przez 0"<<endl; : cout<<"liczba a / liczba b = "<<a/b<<endl;"
BTW jak juz korzystasz z ujecia strumieniowego to lepiej korzystac z endl anizeli "\n" - efekt niby ten sam ale jakos tak perfidne mieszanie styli (ansi c i c++) troche jednak gryzie po oczach :P