Hier das Programm "Strom"



Program Strom_1;
Uses Wincrt ;
Var d,e,f,g,h : real;

Const a = 4.31;
b = 9.48;
c = 0.16;
kw_h_sing = 0.14;
kw_h_fam = 0.13;

Begin
d:=a+(a*c);
writeln('Der Brutto-Grundpreis für den Single-Tarif beträgt ' ,d:2:2, ' Euro');
e:=b+(b*c);
writeln('Der Brutto-Grundpreis für den Familien-Tarif beträgt ' ,e:2:2, ' Euro');

write('Geben Sie ihren Monatsverbauch ein (in kW/h): ');
readln (f);
g:=d+(f*kw_h_sing);
writeln('Der Gesamtpreis für den Single-Tarif beträgt: ' ,g:2:2, ' Euro');
h:=e+(f*kw_h_fam);
writeln('Der Gesamtpreis für den Familien-Tarif beträgt: ' ,h:2:2, ' Euro');


End.










http://www.linux-club.de

program winkel;

uses wincrt;

var grad,arc:real;

begin
write('Geben Sie einen Winkel ein: ');readln(grad);
arc:=PI*grad/180;
writeln;
writeln('sin= ',sin(arc):5:4);
writeln('cos= ',cos(arc):5:4);
writeln('tan= ',(sin(arc) / cos(arc):5:4);

end.


http://www.linux-club.de

program Zeichen;

uses wincrt;
var a:char;
b:integer;

begin

writeln(' Umwandlung Zeichen <---> Zahl');
writeln('*******************************');
writeln;
write('Bitte geben Sie ein Zeichen ein: ');readln(a);
writeln('Die Ordnungszahl von ',a,' ist ',ord(a));
writeln;
write('Bitte geben Sie eine Zahl ein: ');readln(b);
writeln('Das Zeichen von ',b,' ist ',chr(b));

end.




http://www.linux-club.de

Program Strom_1;
Uses Wincrt ;
Var d,e,f,g,h : real;

Const a = 4.31;
b = 9.48;
c = 0.16;
kw_h_sing = 0.14;
kw_h_fam = 0.13;

Begin
d:=a+(a*c);
writeln('Der Brutto-Grundpreis für den Single-Tarif beträgt ' ,d:2:2, ' Euro');
e:=b+(b*c);
writeln('Der Brutto-Grundpreis für den Familien-Tarif beträgt ' ,e:2:2, ' Euro');

write('Geben Sie ihren Monatsverbauch ein (in kW/h): ');
readln (f);
g:=d+(f*kw_h_sing);
writeln('Der Gesamtpreis für den Single-Tarif beträgt: ' ,g:2:2, ' Euro');
h:=e+(f*kw_h_fam);
writeln('Der Gesamtpreis für den Familien-Tarif beträgt: ' ,h:2:2, ' Euro');



End.


http://www.linux-club.de

Program Lob2;
Uses Wincrt;
Var a:real;
Const b = 10;
c = 15;

Begin

write('Geben Sie ihren Notendurchschnitt ein ');
readln (a);
if (a>=b) and (a<=c) then Begin gotoxy (10,5);
writeln ('Grautliere!');
end
else begin gotoXY (25,7);
writeln ('Faule Socke!');
end;

Begin gotoxy(25,9); writeln ('Programmende');end;



End.


http://www.linux-club.de