Yet another IFs

Zadanie 1. Wykonaj program, który zadecyduje o Twojej ocenie z dowolnego przedmiotu na podstawie WSO.

program ocena_ucznia;

uses crt;

var
    max, liczba : real;
    procent : real;
    ocena : string[16];

begin
    clrscr;
    Write('Uzyskane punkty: ');
    ReadLn(liczba);
    Write('Max punktow: ');
    ReadLn(max);
    Writeln;

	procent:=(liczba/max)*100;
	if procent<0 then ocena:='Blad danych';
	if procent<35 then ocena:='Niedostateczny';
	if (procent>=35) and (procent<50) then ocena:='Dopuszczajacy';
	if (procent>=50) and (procent<70) then ocena:='Dostateczny';
	if (procent>=70) and (procent<90) then ocena:='Dobry';
	if (procent>=90) and (procent<=100) then ocena:='Bardzo dobry';
	if procent>100 then ocena:='Celujacy';

	WriteLn('Uzyskana ocena: ', ocena);
	WriteLn('Procent calosci: ', procent:0:2, '%');

	ReadLn;
end.

Należy uważać, aby nazwa programu nie pokrywała się z nazwą jednej ze zmiennych. Otrzymamy wtedy błąd uniemożliwiający kompilację programu.

Funkcje odczytu i zapisu. Klasyfikacja typów danych

write() { wyświetla na ekranie wartość przekazaną do funkcji jako argument w postaci łańcucha znakowego }
writeln() { wyświetla na ekranie wartość przekazaną do funkcji jako argument w postaci łańcucha znakowego i ustawia kursor w kolejnej linii }
read() { oczekuje na wpisanie z klawiatury znaków}
readln() { oczekuje na wpisanie z klawiatury znaków i ustawia kursor w kolejnej linii }
readln { funkcja bezwarunkowa, powoduje oczekiwanie na naciśnięcie klawisza Enter}

Czytaj dalej

Języki programowania - pojęcia, klasyfikacja, przykłady

Język programowania - zbiór zasad określających, kiedy ciąg symboli tworzy program komputerowy oraz jakie obliczenia opisuje.

Czytaj dalej