Question

zadanie 1: Napisz program wyświetlający komunikat w zależności od wciśniętego klawisza: g-grafika p-programowanie s-sieci operacyjne o-systemy operacyjne m-multimedia u-urzadzenia 2.: Napisz program, ktory poprosi o jakas litere i poda odpowiednie imie. (litera dowolna) Prosze o pomoc!!

Answer 1

Ad.1

 

Program bal;
uses CRT;
var
i:integer;
s:char;
begin
Clrscr;
Writeln('Nacisnij klawisz...');
s := readkey;
if s = 'p' then Writeln('Programowanie') else
if s = 'g' then Writeln('Grafika') else
if s = 's' then Writeln('Sieci operacyjne') else
if s = 'o' then Writeln('Systemy operacyjne') else
if s = 'm' then Writeln('multimedia') else
if s = 'u' then Writeln('urządzenia') else Writeln('Klawisz nieprzypisany');
readln;
end.

 

 

Ad.2

 

 

Program bal;
uses CRT;
var
i:integer;
s:char;
begin
Clrscr;
Writeln('Nacisnij klawisz...');
s := readkey;
if s = 'a' then Writeln('Ala') else
if s = 'b' then Writeln('Bartek') else
if s = 'c' then Writeln('Celina') else
if s = 'd' then Writeln('Daniel') else
if s = 'e' then Writeln('Ela') else
if s = 'f' then Writeln('Franek') else
if s = 'g' then Writeln('Gabrysia') else
if s = 'h' then Writeln('Henryk') else
if s = 'i' then Writeln('Iwona') else
if s = 'j' then Writeln('Jan') else
if s = 'k' then Writeln('Karolina') else
if s = 'l' then Writeln('Lidia') else
if s = 'm' then Writeln('Magda') else
if s = 'n' then Writeln('Natalia') else
if s = 'o' then Writeln('Ola') else
if s = 'p' then Writeln('Patryk') else
if s = 'r' then Writeln('Robert') else
if s = 's' then Writeln('Staszek') else
if s = 't' then Writeln('Tomek') else
if s = 'u' then Writeln('Ula') else
if s = 'w' then Writeln('Wieslaw') else
if s = 'z' then Writeln('Zbyszek');
readln;
end.