Nie wiem, co dzieje się z Twoim komputerem, ale u mnie wyniki są całkiem poprawne. http://obrazki.elektroda.pl/9373254200_1... Jeżeli wynik wychodzi ci zero, to znaczy, że najprawdopodobniej nie podajesz poprawnie 'znaku' działania i żadne z obliczeń nie są wykonywane. Kolejną strawą, jest formatowanie wyniku. Jedno co powinieneś zmienić,...
:) Nie przekombinowałem, nie chciałem za bardzo komplikować :) Co nasz kolega odpowie w szkole, jak się go nauczyciel zapyta a dlaczego tak a nie od 1 do 19 ? Będzie masakra. :)
Może zamiast write wpisz wszędzie writeln
Czy ktoś mógłby poprawić tzn dodać pętle.jak narazie mój program wzskazuje tylko czy liczba jest pierwsza czy nie #include <iostream> #include <cstdlib> using namespace std; int main () { int liczba; //user inputed number cout << "Wpisz liczbe"; cin >> liczba; if(liczba % 2 == 0) cout << "Nie...
Dla |x|<1 można logarytm przybliżyć szeregiem: ln(x)=(x-1)-\frac{(x-1)^2}{2}+\frac{(x-1... ... trzeba przeskalować x do zakresu 0<x<1 i dopiero liczyć logarytm inne przybliżenia to: ln(\frac{1+x}{1-x})=\sum\frac{x^{2k-1}}{... dla k=1 do ∞ ln(1+x)=\sum\frac{(-1)^{k+1}}{k}*x^k dla k=1 do ∞
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
Nie ma ograniczenia, mają to być liczby całkowite
To może nauczyciel się pomylił i chodziło mu o liczbę całkowitą?
// w tym miejscu stoję, wymyśliłem pewien algorytm ,że liczba pierwsza to taka która (a mod 2) będzie <> 0 oraz ,że liczba a nie jest podzielna przez żadną z liczb aż do a-1.. Pomyślałem ,żeby zwiększać i=i+1 i znowu sprawdzić czy a mod i=0 Ten pomysł jest dobry, sprawdź taki kod (spróbuj to dokładnie zrozumieć): readln(n); a:=2;...
Ja bym radził kolego mój drogi, abyś napisał program taki oto właśnie. Jest to program mówiący czy jest to liczba pierwsza czy nie. Jeżeli masz jakieś pytania daj znać. Pomoge. #include <iostream> #include <conio.h> using namespace std; int main(int argc, char* argv[]){ int a,b,i; int ile=0; cout<<"liczby...
Tak zapisana funkcja ma wadę, na moim komputerze sprawdzenie czy 2.000.000.011 jest pierwsze zajęło minutę i 22 sek. długo...., podobnie długo trwało sprawdzenie liczby 2.000.000.012, a przecie już po chwili wiemy że liczba ta pierwsza nie jest. Pewnym ulepszeniem będzie: . pier:=false; . if not odd(L) then EXIT; . for i:=2 to L-1 do . . if L mod i...
Wystarczy sprawdzić najniższy bit liczby Jeżeli jest 1 , to liczba nieparzysta, inaczej liczba parzysta. W Pascalu dawno nie pisałem, ale to będzie coś w stylu IF ((liczba and 1) = 1) then nieparzysta else parzysta
tylko i wyłącznie dzielenie i odejmowanie. Czyli [0]=liczba/100 (stałoprzecinkowe - pascal - div) [1]=liczba/10-[0]*100 itd. oczywiście do wykonania w pętli.
[syntax=pascal]if i mod a=0 then writel(' liczba ',i,' jest podzielna przez ',a);[/syntax]
Wystarczy stworzyć tablicę dla histogramu - będziesz ją indeksowała wylosowaną liczbą zwiększając wartość tej pozycji o 1 (1 wylosowana). Na koniec wystarczy znaleźć największą wartość i wyświetlić na którym jest indeksie - to bedzie najczęściej losowana liczba.
((r4*16+r5)*16+r6)*16+r7
[url=http://www.sdsi.eu.org/~wojnow/pomo... masz gotowe rozwiązanie.
Witam Nie wiem czy Ci po trzeba pętli do tego ale to Ty piszesz ten program Możesz zrobić sobie warunek np else http://4programmers.net/Delphi/Else Pozdrawiam i miłej zabawy
d to tablica liczb, a do wyświetlenia potrzebny jest tekst. Błąd polega na niezgodności typów - musisz dokonać konwersji liczby na tekst (inttostr).
Witam. Można wykorzystać zmienną logiczną. program tablica; uses crt; var t:array[1..10] of integer; i:integer; tak:boolean; begin clrscr; tak:=false; writeln ('Wpisz 10 liczb'); for i:=1 to 10 do readln (t[i]); writeln('liczby podzielne przez 2 to '); for i:=1 to 10 do if t[i]...
Witam Program działa na zasadzie rekurencji. Procedura LiczbaSlownie wywoływana jest tyle razy ile cyfr ma liczba. Dla liczby np. 123 będzie to nastepująco 1. wywołana jest procedure w programie głównym z parametrem 123. 2. Jeśli liczba jest wieksza od 9 to wywolywana jest ta sama funkcja ale już z parametrem 123 div 10 czyli 12. a) Jeśli liczba jest...
Łap, tylko że zamiana jest z dwójkowego na dziesiętny, a później z dziesiętnego na dwa pozostałe... no i zakładamy że użytkownik jest uczciwy i podaje nam na wejściu tylko 0 i 1 ;] uses crt; var binarna:string; function potega2(pot:integer):int... var i,wynik:integer; begin wynik:=1; for i:=1 to pot do wynik:=wynik*2;...
http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum
Po pierwsze, to z tego co zrozumiałem, to potrzebujesz kod źródłowy, a nie plik wykonywalny, tak? Bo jeżeli tak, to jest to post w stylu: Napiszcie mi taki program, bo ja sam nie umiem. Pozatym nie wiem czy dobrze zrozumiałem problem... Potrzebujesz program, który uporządkuje zbiór liczb, np rosnąco bądź malejąco? Napisz dokładniej, o co chodzi w tym...
Tak, niekoniecznie.
[syntax=pascal]if liczba mod 2 = 0 then...[/syntax]
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
Random(100);
Zgłaszany błąd to "niezgodność typów". Masz zadeklarowaną zmienną "a" typu word, czyli całkowitego a przypisujesz do niej wynik działania funkcji "exp". Ona z kolei zwraca wartości type real - rzeczywiste. Zmień typ zmiennej "a" na real i będzie OK. Brakuje jeszcze średników i "end;". Dołączam poprawiony program
Nie powinienem dawać gotowca, ale widzę, że często udzielasz się na Forum. W podanych kodach możesz wprowadzać liczby rzeczywiste. [syntax=cpp] #include <iostream> using namespace std; float liczba,mx=0; int main() { cout.precision(2); do { cout<<"podaj liczbe, podanie 0 konczy program "; cin>>liczba; if(liczba>mx) { mx=liczba;...
No, to robisz jeszcze drugie przypisanie (assign) do osobnej zmiennej textowej, otwierasz plik do zapisu (rewrite) i zapisujesz to, co trzeba. Jedna uwaga - jako, ze w pliku są liczby to odczytuj do zmiennej liczbowej, a nie tekstowej.
Co do zadania jak najbardziej sie zgadzam, że rozwiazanie nie jest odpowiedzią na problem. Tu mi sie nasuwa kilka spostrzeżeń. Ile ma byc tych liczb od 1 - 20 - nie sprecyzowane. Z jaka dokładnością maja być losowane te liczby, bo jak całkowite i ma ich być 20 to po co losować? A tak na marginesie to ŻADEN program komputerowy nie ma w 100% działającego...
W Pascal-u będzie to bardzo podobne : program pierwiastki; var n,k,x : word; suma : double; begin Write('Podaj wartosc n : '); readln(n); Write('Podaj wartosc k : '); readln(k); If n>k then begin Writeln(' Blad : n>k !'); exit; end; suma:=0.0; for x:=n to k do suma:=suma+sqrt(x);...
Witam! Dopiero zacząłem przygodę z Pascalem i mam problem z pewnym zadaniem. " Napisz program rozkładania dowolnej liczby na liczby pierwsze, który po wczytaniu liczby z klawiatury wyprowadzi komunikat - liczba pierwsza/liczba złożona - stosownie do sytuacji. Wykorzystaj pętlę while". Z góry dziękuję za wszelką chęć pomocy :) Obrazki wstawiamy wg
Cześć, jestem początkującym w tym temacie a mam napisac taki oto program i nie wiem jak zrobic, by wczytywało litery i znaki, a potem jeszcze ułożyc równanie na tej podstawie. Z góry dzięki za pomoc. Dane są dwie liczby rzeczywiste x i y oraz znak określający operację arytmetyczną, który może być równy: ‘+’, ’-‘, ‘*’...
witam wszystkich. Otoz robie pewien programik i w pewnym momencie gdy chce wprowadzic wysokosc obiektu lub dlugosc(ogolnie chodzi o wpisywanie liczb) to jak wprowadze jakas literke to program sie sypie. I teraz pytanie do bardziej doswiadczonych, jak zrobic aby program sie nie sypal tylko np. po wpisie liter zeby wyskoczyl komunikat ze to nie liczba...
TEMAT JUZ NIE WAŻNY. PROSZĘ O USUNIĘCIE POSTU.
Program ma wypisywać liczby pierwsze od podanej x do n Problem w tym, że wypisuje tylko cztery pierwsze, następne wypisuje dopiero po wcisnieciu enter. Nie wiem o co chodzi. Nastepna rzecz, że nie chce wypisywac ich w rządku, mam na mysli 1 2 3 4... a wypisuje 1,2,... potem enter musze wcisnac i znowu 1,2 albo tylko 1dna wypisze. Ktos wie moze gdzie...
Mam do napisanie program ktory ma czytać z klawiatury liczbę naturalną n, a następnie sprawdzić ILE kolejnych liczb naturalnych (od 1) trzeba zsumować, aby ta suma przekroczyła podane n. Ma ktos jakis pomysl? Regulamin, punkt 11.1. Temat poprawiłem.
Cześć. Muszę napisać program które policzy spółgłoski w zdaniu. Skleiłem coś takiego, choć jestem początkujący, działa, ale brakuje czegoś, co policzy. program spolgloski; uses Crt; var zdanie:string; licznik:byte; begin Write('wpisz zdanie: '); Readln(zdanie); for licznik:=1 to length(zdanie) do if zdanie[licznik]= 'bcdfghjklmnpqrstwxzBCDFGHJKLMNPRQSTWXZ'...
Witajcie, miałem do napisania program, który miał odczytać liczby z pliku dane.dat, następnie wybrać z nich tylko liczby pierwsze i zapisać wynik do pliku wynik1.txt, a na sam koniec posortować liczby pierwsze od największej do najmniejszej a wynik zapisać do pliku wynik2.txt. Kodzik mam, i działa on do momentu wybierania liczb pierwszych, niestety...
Potrzebuje wsparcia, musze stworzyc kalkulator w Pascalu dodajacy duze liczby (np. 3421910383 + 21329381291) nie bardzo potrafie sobie z tym poradzic a od tego zalezy moja ocena koncowa z programowania wiec jesli ktos by byl na tyle uprzejmy to bardzo bym prosil zeby mi go napisal albo podsunal jakis pomysl. DziEKI
Podpowiedź: po co wczytujesz pierwszy element przed pętlą ?
a po co record? wystarczy typ. Ponadto - widzę niezgodność typów tablicy z n i for n:=z to n do - zagrożenie pętlą nieskończoną! uzywasz tej samej zmiennej po obu stronach. nie ja uzywam tylko przerobilem ten program co byl, autor powinien sam popracowac - ja podpowiadam....
Witam Mam rozwiązanie twojego problemu ale w osobnych plikach. Jest tam dodawanie, odejmowanie, mnożenie i dzilenie we wszystkich kodach (NKB, U1, U2, BDC). Musisz przejrzeć te programy i wybrać odpowiednie procedury.
Pozdrawiam chemik143. Kiedyś mieszkałem w Cieszynie. A oto program: Uwaga: w linii write('podaj wartosc tablicy [',i,' ',j,']= '); musisz podawać wartości w postaci np 32 12 i enter czyli 32 spacja 12 ENTER uses crt; var tablica:array[1..100,1..100]of integer; i,j,n,k,w,wynik:integer; op:char; begin clrscr; writeln('program wypelnia tablice dwuwymiarowa...
Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]
W Pascalu procedura konwersji łańcucha na liczbę nazywa się Val
[syntax=pascal]program abc; uses crt; var ania:array [1..5] of integer; i,j, suma : integer; begin clrscr; for i:=1 to 5 do begin write('podaj ',i,' element do tablicy '); readln(ania[i]); end; suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end; writeln('suma: ',suma); repeat until keypressed; end.[/syntax]
Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.
wskaznik^.next^.liczba może powodować błędy
...obslugujacej proste operacje (*, /, +, -) na duzych liczbach przechowywanych w tablicy znakow? Kiedys taka widzialem ale nie moge odszukac, najlepiej gdyby byla w c/c++ lub pascalu. W javie jest typ BigInteger i za pomocą niego można prosto robić operacje na dużych liczbach stałoprzecinkowych. A co do c++ to może sprawdź tutaj: http://www.koders.com/cpp/fid6BFB93B68C0...
Rekord powiniej być tablicą sześciu liczb całkowitych, wtedy posortujesz normalnie jak tablicę. Losowań masz wykonać 1000 a nie 49 jak to robisz. Losowanie bez powtórzeń możesz ułatwić sobie nieco korzystając z tablicy haszującej - poczytaj sobie o tym wynalazku. :)
Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.
Witam.Jedno z sumowaniem dla przykładu zrobiłem.Z resztą kolega powinien sobie poradzić bo wzór już będzie i programiki są bardzo proste :D program suma_tablic; uses crt; type tab=array[0..10] of array[0..10] of integer; var a,b,c:tab; i,j:integer; procedure wyswietl(d:tab); var i,j:integer; BEGIN for i:=0...
W taki razie zrób prostą operacje mod 10, następnie przypisz jakiejś zmiennej wartość. Następnie napisz case n - podana przez Ciebie liczba [syntax=pascal]Liczba:= n mod 10[/syntax] [syntax=pascal]CASE liczba OF 0: writeln('Liczba ta dzieli się przez 10') else writeln('Liczba ta nie dzieli się przez 10');[/syntax] Chyba o to Ci chodzi
Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)
najbardziej prostackie rozwiazanie jest takie program blablabla; var a,b,c: integer; begin readln(a); readln(b); readln(c); if a>b then if a>c then writeln('najwieksza jest:',a); if b>a then if b>c then writeln('najwieksza jest:',b); if c>a then if c>b then writeln('najwieksza jest:',c); readln; end. i jesli sa to twoje poczatki to zacznij od tego,...
tablica pascal liczba pierwsza pascal liczba pascal liczba tekst
przyczepka światła grundig bialy stm32f3 timer
wzmacniacz sluchawkowy schemat iveco bezpiecznik
Regulacja pompki oleju w pilarce Oleo-Mac 937 Regulacja gaźnika w pile Oleo Mac 937 - czarna świeca
