Question

PASCAL !! 1.napisz program ktory pyta uzytkownika o podstawy i wysokość trapezu i oblicz jego pole (0,5*(suma podstaw)*wysokośc). program ma sprawdzic czy wartosci sa dodatnie i dla ujemnych odmawia liczenia . 2. napisz program który wypisze towje imie lub nazwisko w zalezności od wybranie odpowiedziej litery:I-imie, N-nazwisko. zrealizuj zdania korzystając z instrukcji case of. prosze o pilne i szybkie i dobre rozwiazanie. daaje duzo punktów gdyz jest to sprawdzian poprawkowy, bardzo mi zalezy. z góry dzięki ;d

Answer 1

1.

 

program trapez;
uses crt;
var a,b,h,p:real;

begin
clrscr;
writeln('Ten program oblicza pole trapezu. Wprowadz dlugosc pierwszej podstawy:');
readln(a);
writeln('Wprowadz dlugosc drugiej podstawy');
readln(b);
writeln('Wprowadz wysokosc tego trapezu');
readln(h);
if (a>0) and (b>0) and (h>0) then
begin
p:=0.5*((a+b)*h);
writeln('Pole tego trapezu wynosi: ',p:2:2);
end
else writeln('Podane dlugosci musza byc wieksze od zera!');
writeln('Wcisnij ENTER aby zakonczyc');
readln;
end.

 

2.

 

program imie;
uses crt;
var i,n:string;

o:char;

begin
clrscr;
writeln('Podaj swoje imie:');
readln(i);
writeln('Podaj swoje nazwisko:');
readln(n);
writeln('Wprowadz "i", jesli chcesz wyswietlic swoje imie, a "n", jesli chcesz wyswietlic nazwisko');
readln(o);
o:=LowerCase(o);
case o of
'i': writeln(i);
'n': writeln(n);
else writeln('Podales zla literke.');
end;
writeln('Wcisnij ENTER aby zakonczyc.');
readln;

end.