Programmieren!

Trotzdem danke!

Muss es unbedingt Turbopascal sein?

Aber du kannst ja trotzdem eins schreiben, ich schreibe es mir dann um, brauche ja nicht viel verändern.

ja gerne kannst ja mal schrieben und dann den Quelltext posten.
Wäre sehr nett.

LoL, redest Mist, das Programm IST der Source.

Vom Prinzip her, würd ich das Prog hinbekommen, mir fehlen aber 2-3 Befehle. Sry!

"Da ich heute keine Zeit habe... "

sag doch gleich dass du das nicht kannst und hilfe brauchst...loool

program Zeit;

uses crt;

var h1,m1,s1,h2,m2,s2:integer;
t,h,hb,m,s:integer;

begin
clrscr;

textcolor(3);

gotoxy (7,8);

writeln (" Hallo! Dieses Programm ist zum Addieren von zwei Zeitangaben");

gotoxy (7,11);

writeln (" Geben Sie ihre 1. Uhrzeit ein!");

textcolor(12);
gotoxy (7,14);
write(" Stunden: "); readln(h1);
gotoxy (7,16);
write(" Miunten: "); readln(m1);
gotoxy (7,18);
write(" Sekunden: "); readln(s1);

gotoxy (7,22);

textcolor(3);
writeln(" Geben Sie ihre 2. Uhrzeit ein");
gotoxy (7,24);

textcolor(12);
write(" Stunden: "); readln(h2);
gotoxy (7,26);
write(" Miunten: "); readln(m2);
gotoxy (7,28);
write(" Sekunden: "); readln(s2);


s:=(s1+s2) mod 60;
m:=(m1+m2+(s1+s2) div 60) mod 60;
h:=(h1+h2+(m1+m2) div 60) mod 24;
hb:=(h1+h2+(m1+m2) div 60);
t:=((h1+h2) div 24);

textcolor(14);
gotoxy (7,32);
writeln (" Ihr Ergebnis: ",t," Tag(e), ",h," Stunde(n), ",m," Minute(n), ",s," Sekunde(n) ");
gotoxy (21,34);

textcolor(7);
writeln ("(oder auch: ",hb," Stunde(n), ",m," Minute(n), ",s," Sekunde(n))");
readln; readln;

end.

zum Beispiel noch eins.

program zeitumrechnung;
uses crt;
var a,sece:longint;
stu,min,sec:integer;

begin
clrscr;
writeln("Umrechnung von Sekunden in Stunden, Minuten und Sekunden");
writeln;
readln(sece);
stu:=sece div 3600;
a:=sece mod 3600;
min:=a div 60;
sec:=a mod 60;
writeln;
writeln("Stunden:",stu," Minuten:",min," Sekunden:",sec);
readln;
end.

jetzt sagste nix mehr joker.