Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Problem, Turbo Pascal- programowanie.

#1
Problem, Turbo Pascal- programowanie.
Od tygodnia rozpocząłem "przygodę" z programowaniem.
Zobowiązałem się na informatyce w ramach projektu, że skonstruuję program który obliczy ile otrzymamy pieniędzy po rocznym odkładaniu na lokatę.
Użytkownik najpierw wpisuje wielkość wpłaconej kwoty i oprocentowanie w stosunku rocznym.
Cały program jako taki działa, problem polega na tym, że zamiast liczby np. 1060 wyświetla się liczba 1.06000000000+03 (WTF?!). Nawet logiczne bo 1 i 3 miejsca po przecinku daje upragnioną liczbę 1060 ale kto to będzie za każdym razem rozgryzał ???
Dodam, że jako zmienną używam real, longint i integer (w każdym przypadku to samo).
Uczyłem się z poradnika, jednak tam nie jest to dogłębnie wyjaśnione proszę o wytłumaczenie krok po kroku co mam zrobić.
writeln('Po roku na lokacie będziesz miał/a:',liczba2/100*liczba1+liczba1);
gdzie liczba2 stanowi oprocentowanie, podzielona na sto daje zamiast 6-0,06.

Próbowałem jeszcze tak:
writeln('Po roku na lokacie będziesz miał/a:',liczba2/100*liczba1+liczba1:2);
nic nie dałoKwaśny
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: Problem, Turbo Pascal- programowanie.
writeln('Po roku na lokacie będziesz miał/a:',(liczba2/100*liczba1+liczba1):2);
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Problem, Turbo Pascal- programowanie.
Nic nie dałoKwaśny To samo.
Jest jeszcze polecenie round (zaokrąglanie) ale nie wiem jak go użyćKwaśny
 System operacyjny: windows_seven Przeglądarka: chrome
#4
RE: Problem, Turbo Pascal- programowanie.
writeln('Po roku na lokacie będziesz miał/a:',(liczba2/100*liczba1+liczba1):0:2);
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Problem, Turbo Pascal- programowanie.
(07.04.2011, 19:02)~Anonim napisał(a): writeln('Po roku na lokacie będziesz miał/a:',(liczba2/100*liczba1+liczba1):0:2);
Dzięki wielkie działa !!! :D
 System operacyjny: windows_seven Przeglądarka: chrome
Programy: Polecane / Nowe / Inne




Podobne wątki (Problem, Turbo Pascal- programowanie.)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Programowanie Batch (CMD) Informatyk2019 0 1911 11.12.2019, 18:30
Ostatni post: Informatyk2019
  Programowanie windy (problem) w C++ mysza2323 2 2892 06.11.2019, 23:04
Ostatni post: mysza2323
Scared Ipad Pro programowanie? NissmoOne 4 10368 06.10.2018, 12:22
Ostatni post: NissmoOne

Skocz do:


Wybrane wątki (Problem, Turbo Pascal- programowanie.)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  problem z programem .bat wiktrom12 4 11124 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9749 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10531 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2601 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11108 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11530 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10625 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 11221 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 10863 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 10923 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 10471 07.05.2018 21:27
Ostatni post: TheProgson
  VBA Pobieranie wybranych plików z danymi julietta03 1 10804 04.05.2018 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 11281 23.04.2018 11:48
Ostatni post: broda99
  Skrypt, który szuka i zamienia armen10 2 10718 23.04.2018 10:04
Ostatni post: armen10
  Liniowa regresja w Pythonie a budowanie modelu Trojan3000 2 10828 16.04.2018 13:26
Ostatni post: Trojan3000