PRZYKŁAD PROSTEGO PROGRAMU W PASCALU " NAIWNE - POTĘGOWANIE "
Programowanie
Program kalkulator;
uses crt;
var a,b,wynik:real;
znak:char;
begin
clrscr;
Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe}
Readln(a);
Write('Podaj druga liczbe: '); {Podajemy druga liczbe}
Readln(b);
Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}
Readln(znak);
CASE znak OF {Instrukcja wyboru znaku dzialania}
'+':wynik:=a+b;
'-':wynik:=a-b;
'*':wynik:=a*b;
'/':wynik:=a/b
ELSE
Write('Nie ma takiego dzialania!'); {Ten komunikat wyswietla sie jesli podamy znak inny niz 1 z tych 4}
end;
if wynik=a then
Write('Wynik dzialania wynosi: ',wynik:2:2);
readkey;
end.
uses crt;
var a,b,wynik:real;
znak:char;
begin
clrscr;
Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe}
Readln(a);
Write('Podaj druga liczbe: '); {Podajemy druga liczbe}
Readln(b);
Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}
Readln(znak);
CASE znak OF {Instrukcja wyboru znaku dzialania}
'+':wynik:=a+b;
'-':wynik:=a-b;
'*':wynik:=a*b;
'/':wynik:=a/b
ELSE
Write('Nie ma takiego dzialania!'); {Ten komunikat wyswietla sie jesli podamy znak inny niz 1 z tych 4}
end;
if wynik=a then
Write('Wynik dzialania wynosi: ',wynik:2:2);
readkey;
end.
Napisanie prostego kalkulatora w Delphi nie jest rzeczą trudną. Powinien sobie z nią poradzić nawet początkujący programista. Tak więc wrzucamy na formę:
2 komponenty Edit
1 Button
22 etykiety (Label)
Rozmieszczamy je w następujący sposób: 2 pierwsze etykiety obok lub nad Edit`ami.
2 komponenty Edit
1 Button
22 etykiety (Label)
Rozmieszczamy je w następujący sposób: 2 pierwsze etykiety obok lub nad Edit`ami.
Projekt na terminologie angielska .. zarządzanie projektami gotowy tylko wydrukować i oddać..
Program dane;
uses crt;
var dana:string [30];
begin clrscr;
writeln ('Podaj dane');
repeat
readln (dana)
until dana='stop';
readln;
end.
uses crt;
var dana:string [30];
begin clrscr;
writeln ('Podaj dane');
repeat
readln (dana)
until dana='stop';
readln;
end.