| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
samsonite1983
Nowy
Dołączył: 02 Mar 2011
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Śro 22:32, 02 Mar 2011 Temat postu: Pomocy |
|
|
Witajcie, mam prosbe, pomozcie mi w zadaniu:
Napisz program w języku Pascal, który umoŜliwia wybranie działania arytmetycznego
(dodawanie, mnoŜenie, odejmowanie) dwóch wprowadzonych liczb.
prosiłabym jak możecie pomóc w przetłumaczeniu abym zrozumiała
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
 |
|
|
 |
yuurei
Nowy
Dołączył: 17 Paź 2011
Posty: 4
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Katowice
|
| Wysłany: Pon 5:11, 17 Paź 2011 Temat postu: |
|
|
Lepiej późno niż później  :p
| Kod: |
program kalkulator;
var
liczba1,liczba2:real;
wybor:char;
function dodaj(a,b:real):real; {funkcja wykonujaca dodawanie}
begin
dodaj:=a+b; {dzieki takiemu zapisowi funkcja zwroci wynik dzialania}
end;
function odejmij(a,b:real):real; {funkcja odejmujaca}
begin
odejmij:=a-b;
end;
function mnoz(a,b:real):real; {tu i w nastepnym juz chyba nie musze pisac :D}
begin
mnoz:=a*b;
end;
function dziel(a,b:real):real;
begin
dziel:=a/b;
end;
begin
writeln('Program dodajacy, odejmujacy, mnozacy i dzielacy dwie liczby');
write('Podaj pierwsza liczbe: ');
readln(liczba1); {pobieramy od uzytkownika pierwsza liczbe}
write('Podaj druga liczbe: ');
readln(liczba2); {pobieramy druga liczbe}
writeln;
writeln('1.Dodawanie'); {-------------------------}
writeln('2.Odejmowanie'); { menu }
writeln('3.Mnozenie'); { }
writeln('4.Dzielenie'); {-------------------------}
write('Jakie dzialanie chcesz wykonac? (podaj nr. dzialania): ');
readln(wybor); {uzytkownik wybiera dzialanie}
case wybor of {znaczy tyle co: "dla wybor rownego..."}
'1': writeln('suma= ',dodaj(liczba1,liczba2)); {jeden - dodaj }
'2': writeln('roznica= ',odejmij(liczba1,liczba2)); {dwa - odejmij }
'3': writeln('iloczyn= ',mnoz(liczba1,liczba2)); {itd. }
'4': writeln('iloraz= ',dziel(liczba1,liczba2));
else writeln('Zostal wybrany zly numer!'); {jak uzytkownik poda cos innego niz 1,2,3 lub 4 to zobaczy ten tekst}
end;
readln;
end.
|
swoją drogą to ciekawe forum programistyczne, na którym nikt nie był w stanie odpowiedzieć na takie proste pytania :/
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
Bluetab template design by FF8Jake of FFD
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
|
