Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Rechner in Pascal

Frage Entwicklung

Mitglied: itbeginner

itbeginner (Level 1) - Jetzt verbinden

05.03.2008, aktualisiert 06.03.2008, 3609 Aufrufe, 1 Kommentar

Hi,
ich Habe in Pascal ein Rechnerprogramm erstellt mit dem man +-*/ rechnen können sollte , aber es klappt nicht ganz es wird immer Plus gerechnet.

program Taschenrechner;
var Zahl1 : real;
var Zahl2 : real;
function plus

begin
plus := Zahl1 + Zahl2 ;
end;
function minus
begin
minus := Zahl1 - Zahl2 ;
end ;
function mal

begin
mal := Zahl1 * Zahl2 ;
end;
function geteilt

begin
geteilt := Zahl1 / Zahl2 ;
end;
function wählen
begin
if (plus) then
begin
writeln(plus);
end
else
begin
writeln(minus);
end;
if (mal) then
begin
writeln(mal);
end
else
begin
writeln(geteilt);
end;
end;

begin
write('Wählen sie Zahl1:') ;
readln(Zahl1) ;
write('Wählen sie Zahl2:') ;
readln(Zahl2) ;
write('Wählen sie eine Rechenart aus')
witeln(wählen) ;
readln ;
end.
Außerdem hab ich keine richtige Ahnung wie ich dem Programm erkläre , dass ich zwischen +-*/ wählen kann und es dann mit dem dem entsprechenden Rechenzeichen rechnet.
lg itbeginner
Mitglied: erikro
06.03.2008 um 19:32 Uhr
Hallo,

wird man im Studium immer noch mit Pascal gequält bevor man an die richtigen Programmiersprachen darf. ;)

Es ist zwar schon ewig lange her und das Meiste dürfte ich vergessen habe. Daher hier nur ein Hinweis: Ich vermisse irgendwie den Aufruf der Funktionen. Der User hat die Zahlen eingegeben und nu?

Wie Du die Weichen machst, dass das Programm entscheidet, welche Funktion? Na mit if ... elseif ... else oder mit einer case-Anweisung. Wie das in Pascal geht habe ich wirklich vergessen.

hth

Liebe Grüße

Erik
Bitte warten ..
Ähnliche Inhalte
CPU, RAM, Mainboards
Windows 7 und 8.1: Ryzen- und Kaby-Lake-Rechner von Updates ausgeschlossen (3)

Link von BassFishFox zum Thema CPU, RAM, Mainboards ...

Windows 7
Rechner stürzt ständig ab (9)

Frage von windowsboy zum Thema Windows 7 ...

Windows 10
gelöst Windows 10 Rechner startet nicht (4)

Frage von 1410640014 zum Thema Windows 10 ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(10)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...