kolor23

ok.Dziękuje za odpo i podpowiedzi :) . Przepraszam za pewne niedociągnięcia w pisaniu postów, ale świeżak jestem :) Następnym razem bedzie lepiej, obiecuje. Jeszcze raz dzięki.

Witam. Znowu mam problem i licze że może ktoś mi pomoże :). Mam kod pewnego programu i potrzebuje go tak zmodernizowac aby : " obliczał pole i obwód prostokąta, kwadratu i koła" Za pomoc z góry dziekuję. Ps. dodam że do kompilacji używam dev c++ #include <cstdlib> #include <iostream> using namespace std; void oblicz_pole(char figura); float pobierz_wartosc(); float pole_prostokata(float x, float y); float pole_kola(float x); float pole_trojkata(float x, float y); int main(int argc, char *argv[]) { char decyzja; while(1) { cout << "Wybierz figure: " << endl; cout << "p - prostokat, k - kolo, t - trojkat, 0 - koniec " << endl; cin >> decyzja; if ((decyzja=='p')||(decyzja=='k')||(decyzja=='t')) oblicz_pole(decyzja); else if (decyzja=='0') break; else cout << "Zly wybor" << endl; } cout << endl << endl; system("PAUSE"); return EXIT_SUCCESS; } void oblicz_pole(char figura) { float a,b; cout << "Podaj dlugosc"; switch (figura){ case 'p': cout << "i bokow prostokata: "; a=pobierz_wartosc(); b=pobierz_wartosc(); cout << "Pole prostokata wynosi: " << pole_prostokata (a, B) << endl; break; case 'k': cout << " promienia kola: "; a=pobierz_wartosc(); cout << "Pole kola wynosi: " << pole_kola (a) << endl; break; case 't': cout << " podstawy i wysokosci trojkata: "; a=pobierz_wartosc(); b=pobierz_wartosc(); cout << "Pole trojkata wynosi: " << pole_trojkata (a, B) << endl; break; } } float pobierz_wartosc() { while (1) { float a; cin >> a; if (a > 0) return a; } } float pole_prostokata(float x, float y) { return x*y; } float pole_kola(float x) { return 3.1415*x*x; } float pole_trojkata(float x, float y) { return x*y/2; }

Dzięki wielke.Już myślałem ze nie znajde pomocy...a jednak :) "A do czego Ci ta petla potrzebna?" Jak zwykle w takich postach :) zadanie.

Witam. Mam taki kod (z tego forum :) ) i potrzebuje go tak zoptymalizować aby tylko liczył litery w podanym mu wyrazie.Mam nadzieje ze znajdzie sie ktoś chętny do pomocy. Dzięki. uses crt; var slowo:string; l,dl,i,j:byte; begin clrscr; readln(slowo); dl:=length(slowo); writeln('dlogosc slowa: ',dl); for i:=dl downto 1 do begin for j:=1 to dl do begin if slowo=slowo[j] then inc(l); end; writeln(slowo,' - ',l); l:=0; end; readln; end.