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).
[syntax=pascal].... var f:text; begin assign(f,'asdasd.txt'); rewrite(f); ...... for t:=1 to liczba1 do begin liczba3:=liczba3+liczba2; write(f, liczba3, ', ') end; close(f); end.[/syntax] albo prawym klawiszem w pasek konsoli właściwości | opcje | ptaszek przy tryb szybkiej edycji [ OK ] myszką zaznaczasz fragment, [ ENTER ]
Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.
Tylko właśnie o to chodzi, że ten ciąg znakow nie jest za każdym razem taki sam zmienia sie sie liczba wew. i zaczyna się i konczy nawiasami. Da się tak zrobić żeby wląsnie usuwało od nawiasu do nawiasu żeby z (90 rows affected) nie było nic. Możliwe że trzeba właśnie popracować z funkcja delete i pos, ale nie wiem jak napisać, gdy spotkasz '(' usuwaj...
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
Nie, mnożenie tekstów jest tak samo wykonalne, jak upieczenie mieszkania czy wyhodowanie telefonu. Mnożyć możesz tylko liczby.
Nie wiem, czy to błędy przy przepisywaniu ale w Twoim kodzie jest ich kilka. Np: dwukropek zamiast średnika w linii a nawet nie pojawia mi się tekst Podaj liczbę A co Twoim zdaniem ma ów rzeczony tekst wyświetlić. TP nie jest wróżką i na domysły nie bierze.
Generalnie to nie ma potrzeby aż tak szerokich opisów. Np dla warunków wystarczy "l1 = 25?" Komunikat proszący o podanie oraz operacje podania liczby można zapisać w jednym bloku wejścia wyjścia, ale jeśli rozbijemy na dwa, to nie jest to jakimś błędem. W całej petli FOR zdecydowanie zapomniałeś o zwiększeniu licznika pętli. Takie funkcje jak wyczyść...
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10101100 10101010 01101011 coś takiego pętle już zrobiłem ale zapisuje tylko jedną liczbę binarna w notatniku [syntax=pascal]program postac_binarna;...
Zbiór typu wyliczeniowego nie pozwala na wyświetlenie tekstu, gdyż... składniki typu wyliczeniowego nie są tekstem! W procesie kompilacji każdy typ wyliczeniowy zostaje skonwertowany na liczbę, zaś samo istnienie ma jedynie cechy warstwy abstrakcji i ma uczytelniać upraszczać pisanie kodu.
Ogólnie nie wiem jaka ma być idea tego programu ale sadze iż ten sprosta twoim oczekiwaniom. Jednym z błędów którego nie potrafię poprawić jest tablica z indexami dlatego zawsze tworzy się 10 elementowa tablica na indexy a nie 2-3 tyle ile wpiszesz że chcesz liczb. Jeżeli nie o to chodziło to napisz konkretniej jak ma to wygladać :) [syntax=pascal]...
tak, wspomniałem o tym :) ale spróbuj już z więcej niż 1 :) prosze bardzo (liczba 50): http://obrazki.elektroda.net/46_12132890... dalej to samo (i tak samo jest dla liczby wielobajtowych) :D
Ja polecam Free Pascal Compiler. Jest na prawde bardzo dobry. Przede wszystkim dziala zawsze i wszedzie, nie ma problemow z modulem graph i crt, i do tego ladna prezentacja kodu gdzie np. rozkazy, liczby i zwykly tekst sa oznaczane innymi kolorami. Wyciaga standardowo rozdzielczosci do 1024x768 256 kolorow. Qrcze na date nie spojrzalem. :P:P;P:P
Program Konwertuj; {Program konwertuje wprowadzonĄ liczb© cakowitĄ na zapis sowny} uses crt; Var T1 : array [0..9] of string; T2 : array [0..9] of string; T3 : array [0..9] of string; T4 : array [0..9] of string; T5 : array [0..5] of string; Liczba : longint ; {Liczba wczytana do konwersji } Licznik : byte ; {Ile razy zostaa wykonana p©tla...
Chcę, aby mój program napisany w języku pascal potrafił znaleźć ostatnią liczbę w jakimś pliku tekstowym, chcę aby zwracał ilość liczb zapisanych w tym pliku. Potrzebne mi to, bo chcę napisać program, który wczyta z pliku txt kolejne liczby, posortuje je np. rosnąco, zapisze plik z posortowanymi liczbami. Proszę o pomoc. Zamykam. - arnoldziq
atrybut znaku jest zapisany liczba 8 bitowa. 1bit migotania 3 bity koloru tla i 4 bity koloru znaku. na pewno mozna ustawic karte zeby migala albo zeby dawala jasne tlo. tyle ze nie pamietam co sie tam ustawialo :D napewno bylo to mozliwe bo robilem takie rzeczy :D. chyba jakas zmienna systemowa, jak sobie przypomne to podpowiem :)
[url=http://forum.dzyszla.aplus.pl/topic... dzielenia na wielobajtowych liczbach w systemie binarnym przedstawiłem w zlinkowanym tekście. Jeśli jednak chcesz zastosować stricte zasady dzielenia pod kreską, to również można. Najlepiej potraktuj liczbę wejściową jako ciąg tekstowy. Następnie od jego początku szukaj takiej wartości, która...
Witam, potrzebuje pomocy z programem który ma pobierac od użytkownika liczby do momentu podania liczby całkowitej... Jeśli dobrze zrozumiałem tekst, to Twój program powinien przyjmować liczby typu Real (zmiennoprzecinkowe), np 2.4, 0.567 itd. A zakończy działanie gdy wprowadzoną liczbą będzie np. 5. Zatem operatory typu mod nie wchodzą w grę. W Pascalu...
{Czy ktoś potrafi zmodyfikować i uruchomić poniższy program tak aby zamienił wczytana liczbę na tekst ?? Liczę na pomoc, w sobote mam drugi termin!! Program Słownie; uses crt; var {Deklaruj© tablice, oraz zmiennĄ "liczba" kt˘ra zostanie zapisana w postaci s�ownej} {jedno�ci} T1: array Zamykam. - arnoldziq
Witam, Muszę napisać program w pascalu który wczyta słowo i obliczy mi ile razy pojawiło się ono w tekście. Próbowałem już wszystkiego, ale nie mam głowy :( Przerabiałem ten program: [syntax=pascal]program project1; const tabulacja=9; var plik:text; n:integer; nazwa:string[12]; procedure slowa(nazwa:string; var liczba:integer); var znak:char; noweslowo:boolean;...
Źle to ująłem - chodzi mi o zwykły program który liczy np pole jakiejś figury. W trybie tekstowym potrafię to napisać i bardzo dobrze to działa. W trybie graficznym owszem pokazują się linie tekstu np"podaj wysokosci figury" , "podaj długość boku" , "objętość figury wynosi ..." i w tym momencie nie ma żadnej liczby jakby program nie obliczał. W trybie...
Brak dolara i zera. Dolar wymusza tryb szesnastkowy, a zero jest potrzebne aby to byla liczba. W dziesietnym sie nie da adresować. Specyfika Pascala. Spróbuj mem[$0B800:$0001] := '#';
Nie ma potrzeby żadnej tablicy - po prostu wywołujesz procedurę wyświetlającą pytanie (parametr) i możliwe odpowiedzi (kolejne np. 4 parametry) oraz, która poprawna (parametr), a niech zwraca (i to będzie funkcja, a nie procedura już!), czy wybrano poprawną. Gdzieś w głównym bloku zliczasz liczbę poprawnych. Oczywiście pojęcie użycia procedur jest dość...
Witam! Nie za dużo kombinowania??. BlockRead nie nadaje się do wczytywania liczb zapisanych jako tekst, bo liczba może być jednym znakiem >5< lub np. pięcioma znakami >12345<. Przy tak ładnie zapisanej tablicy powinno wystarczyc: //po otwariu pliku for y:=1 to LiczbaWierszy do begin for x:=1 to LiczbaKolumn do Read(Plik,Tablica[X,Y]);...
To jeszcze po części zależy od tego, jak chcesz zrealizować interfejsowo kwestię. Tak, na plansze nada się tablica dwuwymiarowa. A właściwie to dwie - po jednej na każdego zawodnika. Gra by musiała składać się z dwóch etapów: 1 - wypełnienia tablicy (ręcznie lub automatycznie), 2 - właściwej gry. Jeśli to mają być tylko pojedyncze statki, to sprawa...
...a nie lepiej po prostu: writeln(wynik:6:0); albo tak (z poprzedzającymi zerami): Writeln(FormatFloat('000000#',wy... albo jak bardzo chcesz mieć to w zmiennej typu string przed wyświetleniem, to: [syntax=pascal]Program TestFixed(output); uses sysutils; var a: double; s: string; begin a:=1.56; s:=FormatFloat('000000#',a);...
Funkcja Random również zwróci za każdym razem ten sam wynik (w Windowsie). Dopiero Randomize (pascal) powoduje zainicjowanie generatora liczbą związaną z czasem systemowym. Jako, że wzory na liczby są nieskończone w obie strony, konieczne jest określenie warunków startowych, a więc pierwszej liczby. Dalej idzie już swoim życiem. Opisałem to (a dokładniej...
Delphi to pascal . Praktycznie wszystkie programy napisane w paskalu są kompilowane i uruchamiane w Delphi . Różnica istnieje w pewnych typach .Np. w pascalu typ ineger był 16 bajtowy natomiast w delphi od wersji 2 jest 32 bajtowy .Tak samo w pascalu real był 6 bjtowy ( odpowiada to w delphi real48) natomiast w delphi jest traktowany jako double . Tak...
Po pierwsze, Word w Pascalu ma 2 bajty, natomiast typ Char, w zależności od kompilatora i jego wersji od 1 do 2 bajtów, w zależności czy kompilator jest "Unicode ready" czy nie. Jeżeli chcesz wyświetlić jakąkolwiek informację w MessageBox, to raczej należy ją podać jako PChar a nie Char. Co za tym idzie, proponuję zastosować taką składnię : [syntax=delphi]var...
A znacie może komendę zmieniającą nazwe plików (wraz z rozszerzeniem). Odpowiednik ren w batch Np. Rename - jedna wada - plik musisz najpierw otworzyć. Poszperałem w google, i nie czaje nic z tego kodowania. Możecie mnie oświecić... Ja chciałbym aby kodowało do znaków specjalnych typu: «�#181;¾җم&...
Hej Kocia! :) Dawno Cię nie było, aż wspominałem ostatnio że może byś komuś pomogła wskaźniki zrozumieć :P Ale do rzeczy - faktycznie, jak Krzycho wspomniał, operacje na innych systemach liczbowych najłatwiej przeprowadzać bazując na tekstach. Generalnie opiera się o założenie takie: wartość = Σ a(i)*p^i, gdzie i=0 i - numer kolejny cyfry...
Rozumien, że tam gdzie w tablicy jest aż do 63999 znaków mogę to zmienić na 255 znaków bo tyle ma mieć tekst ? I czemu tablica jest of char ? Myślałam że ma być of string. Napisałam to tak : var słowo:array[1..255] of string; wyraz:array[1..n] of string; czy w tej tablizy z wyrazem liczba znaków musi być zdefiniowana, no bo w końcu nie wiemy jak długiego...
1) przy okazji dobralbym jakas sensowna wartosc Dx. obecnie na 640 punktach jest proba rysowania cos ze 200 tys punktow. rozumiem ze to po to zeby zachowac ciaglosc przebiegu. a nie lepiej 639 lini? 2) x:=x+Dx; to wszystko przez to sumowanie, bo Dx = 0.0001 a taka liczba nie za bardzo ma rozwiniecie binarne. lepiej x wyznaczac jako xpocz + ilosc krokow...
Program kalkulator; uses crt,graph; var liczba1,liczba2,wynik,i:real;znak... label {menu,poczatek,dodawanie,odejmowani... procedure MENU; forward; procedure DODAWANIE; begin driver:=detect; initGraph(Driver,Mode,'c:\TP\bgi... clrscr; outtextxy('obliczenie wyrazenia'); write('...
Mógł bym jeszcze prosić o pomoc z tym ? Sortowanie śmiga, losowanie śmiga, ale sprawdzanie, czy rekordy nie są takie same nie śmiga. Trochę się na męczyłem, bo nie mogłem wpaść na pomysł, który by działał, ale wymyśliłem. Program działa, ale się sypie, gdy licznik (ten pod untilem) jest w okolicach 350. Chciałem znaleźć rozwiązanie. Dodałem zapis do...
Algorytmów sortowania znajdziesz całą masę. Na przykład sortowanie bąbelkowe: http://pl.wikisource.org/wiki/Sortowanie... W przykładach porównuje się liczby, a nie ciągi tekstu, ale wystarczy napisać procedurkę porównującą dwa ciągi tekstowe. Porównujesz wtedy ciągi, ale sortujesz liczby - indeksy. Być może w Twojej odmianie Pascala...
Może w Visual C++: 1) Stworzyć formularz z 4 polami edit i przyciskiem "oblicz". 2) Kliknąć w przycisk i napisać procedurę obsługującą zdarzenie: - zadeklarować odpowiednie zmienne liczbowe - przypisać wartość pól tekstowych odpowiednim zmiennym dokonując konwersji teksty na liczby - wykonać obliczenia - zamienić wynik na tekst i podstawić go do odpowiedniego...
#include <conio.h> #include <stdio.h> ... cin >> tekst; ... for (i=1;i<=length(tekst);i++) if ( upcase(tekst Widzę, że jesteś poliglotą :) O ile mieszanie C z C++ jeszcze można przeżyć, to dodanie do tego Pascala jest już przesadą :)
Napisz fragment kodu dla przykładu. coś ze starych zasobów [syntax=pascal]Program BazaTeleadresowa; Uses Crt; type TData = record {definicja typu danych strukturalnego} Imie: String[10]; {dane - stringi o okreslonej dlugosci} Nazwisko: String[15]; Tel: String[12]; Ulica: String[20]; Mieszkanie: String[5]; Miasto: String[15]; Kod: String[5]; end; const...
zmień pętlę z 1..5 na 0..4 i zmień liczby 12, 13, 14... w gotoxy na 2, 3, 4 itd.
Twoim błędem jest próba odczytania wartości real, z pliku TXT który zawiera liczby zapisane jako '1','2' itd. Nie da się tego zrobić bez zamiany jednego typu na drugi. We wcześniej wspomnianym przeze mnie poście, masz procedurę, która jest w stanie odczytać tablicę z pliku TXT i która przeprowadza tę konwersję. Masz tu kod który wczytuje dane tekstowe...
Poprawiony program: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; var pytania:array[1..50] of pytanie; wybrane:array[1..10] of pytanie; i,j,pom,prawidlowo:integer; wybrano:string; begin pytania[1].pytanie:='Polecen...
MAM PROCEDURĘ! YEEEEAHHH MOTHER...LOVER!!! PROGRAM GOTOWY!!!! Później wstawię pełny gotowy kod źródłowy :). Niech inni sobie porównują :). Dzięki za wskazówki wszystkim :). Temat zamknę jak tylko oddam pracę do sprawdzenia. Sorry ale mam jedno najważniejsze pytanie. Jak zrobić unikatowy identyfikator w bazie? Nie mam pojęcia. Poddaję się. Dawać jako...
Jacek cz.... WIdze ze duzo wiesz o c. JA niestety wiem jeszcze bardzo mało. Ale przedstawi tobie zalete stosowanie makr :) ci np. #define LCD PORTC dzieki temu potem w programie zmieniamy tylko te makro i lcd działa na innym porcie. Na pewno nic nowego tobie nie powiedziałem Ci. ale to jest niewątpliwa zaleta makr i chyba po to zostały stworzone makra....
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: ‘+’, ’-‘, ‘*’...
Przepraszam za błędy w tekście "Maskowanie bitów". Poniżej poprawiona wersja. ----------------------------------------... MASKOWANIE BITÓW w pigułce. (Dla tych, którym sprawia trudność zrozumienie zagadnienia) PODSTAWY Liczby binarne - szybkie czytanie ich wartosci (dzisiętnych) polega na określeniu położenia ustawionego bitu (czyli...
Witam. Zdawałem nową maturę z informatyki w tym roku :) Nie wiem jak określić te zadania, ale do najłatwiejszych nie należały. Ufoludki, jakieś liczby - powiem szczerze - bez znajomości matematyki trudno jest je rozwiązać. Praktyka - do najłatwiejszych też pewnie nie należy. Arkusz kalkulacyjny i baza danych oraz edytor tekstu to podstawa. Przekonany...
Witam Piszę w Lazarusie... Mam problem, próbowałem i próbowałem, ale okazuje się, że nie potrafię napisać procedury WypozyczKsiazke w swoim programie. Nie wiem jak to zrobić i proszę o pomoc. Cały kod programu poniżej: [syntax=delphi] //PROGRAM GŁÓWNY: program biblioteka; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}...
AD.1.Funkcja VAL, znana z Turbo Pascala działa na tej zasadzie, że jeżeli tekst podany w pierwszym parametrze dla funkcji nie jest liczbą całkowitą zwróci w ostatnim parametrze Code wartość większą od zera (będącą pierwszą napotkaną pozycją wadliwego znaku - nie będącego cyfrą). Oto przykład właśnie tej funkcji: var Str : string; I, Code : integer;...
[syntax=pascal] { Lista wierzchołków ----------------------------------------... } PglV = ^TglV; // Vertex TglV = packed record x,y,z : real; end; PglArrV = ^TglArrV; TglArrV = array of TglV; // tablica dynamiczna wierzchołków PglListV = ^TglListV; TglListV = record arr: TglArrV; max: Integer; cnt: Integer; end; procedure TglModel.DrawVertex;...
Fantom, doprawdy nie wiem co o tobie myśleć. Wdałeś się w bezsensowna dyskusję, nie mając zielonego pojącia o czym piszesz i jednocześnie bezpodstawnie robiąc z siebie autorytet. Wygląda na to, że nie zrozumiałeś ani słowa z tego o czym "rozmawialiśmy". Chciałem juz uciąć ta bezsensowną pogadankię i oszczędzić ci robienia z siebie pośmiewiska. To może...
Google ma wiele nieudanych projektów, takich jak sieć społecznościowa Google+. Mówią nawet, że firma ma swego rodzaju: „cmentarz” przedsięwzięć, który jest regularnie uzupełniany. W 2023 roku marka ta oficjalnie zamknęła projekt okularów rzeczywistości rozszerzonej Google Glass (a dokładniej jego korporacyjną wersję Enterprise Edition) po prawie 10...
Witam ! Proszę o pomoc w wykonaniu programu w Delphi. Do tej pory zajmowałem się głównie programowaniem mikrokontrolerów w asemblerze. Projekt który obecnie wykonuję wymaga jednak aplikacji PC wyświetlającej wynik wysłany z mikrokontrolera przez RS. Calość wygląda mniej więcej tak: 1. Mikronotroler zlicza impulsy z enkodera 2. Po stosownych obliczeniach...
Jeżeli chodzi o sortowanie liczb (zaimplementowane w pascalu) to może to się przyda: http://omklnx.il.pw.edu.pl/~rgajewski/pa... http://www.sciaga.pl/tekst/42010-43-sort... Ale nie znam dokładnie zadań tego program, lecz poczytanie tego w linkach powinno dać jakiś pogląd na algorytmy sortowania ;)
A to (z falami grawitacyjnymi) była długa historia... Ich wykrycie było arcydziełem. Opracowanie podstaw teoretycznych też. Jedno i drugie, to była ogromna praca wielu ludzi. Nie przeczę. Przeważnie nie opowiadam o rzeczach, które udało mi się osiągnąć, gdyż byłoby to ogromnym osłabieniem mojej wiarygodności. Nazwa "Internet" została podana poraz pierwszy...
Cześć Czy posiada ktoś może i byłby skłonny udostępnić kod lub biblioteki serwera, klienta i ewentualnie hosta. Interesuje mnie jeden z dwóch wariantów pozwalających na wymianę informacji (tylko liczby i tekst) w grupach użytkowników w dwóch wariantach: 1. serwer przechowuje wszystkie informacje u siebie w swojej pamięci podręcznej. użytkownicy łączą...
Kolega z Łodzi to coś słyszał ale nie do końca pamięta. Nie zaśmiecam sobie pamięci tego typu szrotem. Algorytm na poczekaniu wyczytałem z sufitu. Ponieważ jest "bardzo szybki" może być użyteczny przy wszelkiego rodzaju konwersjach liczba/łańcuch zwłaszcza w układach wyświetlania wielkości fizycznych, gdzie w procesie kalibracji możemy wyliczyć i wpisać...
Chcesz uczyć się programowania i pisać jednocześnie chyba dość obszerny program użytkowy. Według mnie ciężko te dwie sprawy pogodzić, chociaż sam kiedyś pisałem od podstaw bazę danych dla wypożyczalni kaset wideo w Pascalu. Po pół roku dzieło było gotowe a ja zgłębiłem Pascala... Koledzy licytują się pomiędzy wyborem C++, C# lub Delphi... W każdym przypadku...
https://obrazki.elektroda.pl/7656017200_... O komputerach jednopłytkowych czy stare komputery były lepsze od współczesnych platform rozwojowych i SBC? Nie lubię Arduino I to jest jak najbardziej prawda. Arduino to platforma, która miała dać łatwy dostęp do programowania elektroniki ludziom, którzy nie znają się ani na elektronice,...
Witam, własnie zaczałem uczyć sie programować w VBA (od 2 dni) wczesniej mialem tylko styczność z pascalem :P, zaczałem od pisania formularza i napotkałem następujące problemy: 1.W zależności od wybrania pola w ComboBox, chcialbym zeby sie wpisywał tekst w txt boxa 2.jaka bylaby przykładowa funkcja na wyczyszczenie Komorek (txt boxy/combo boxy) 3.Jak...
pascal tekst pascal liczba tekst pascal
zmywarka amica silnik radio samochodowy wymiana konicaminolta skanowanie
żarówka szeregowo początkujący elektronicy
Kody serwisowe Sony Xperia M4 Aqua: Diagnostyka i reset Zwiększenie pojemności kondensatora w silniku hydroforu: korzyści i zagrożenia