Forum ZSPG w Piotrowicach Strona Główna    
  Profil  
FAQ Szukaj Użytkownicy Rejestracja Prywatne Wiadomości Zaloguj  

Kolokwium grupy 2 - odpowiedzi już są

 
Napisz nowy temat   Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi    Forum ZSPG w Piotrowicach Strona Główna :: Programowanie
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Greif
Administrator



Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Skąd: Piotrowice k.Oświęcimia

PostWysłany: Nie 21:17, 21 Sty 2007    Temat postu: Kolokwium grupy 2 - odpowiedzi już są

Ostateczne wersje odpowiedzi, zerknijcie jeszcze, czy wszystko gra.

A1
Kod:
type
    ksiazka=rekord
    imie:string[20];
    nazwisko: string[30];
    tytul:string[50];
    rok_wydania:integer;
end;

katalog = array[1..100] of ksiazka;

var
      zmienna1:katalog;
      zmienna2:string[15];

A2
Wynik:
Cytat:
120

Program sprawdzający:
Kod:
Program petla_for;
var s,n,k:integer;
begin
     s:=1;
     n:=5;
     for k:=1 to n do
         s:=s*k;
writeln(s);
readln;
end.

A3
Kod:
for i:=1 to 10 then writeln(tablica[i]);

A4
Kod:
  if x=1 then
      y:=x;
  if x=2 then
      y:=0;

A5
Kod:
s:=0;
k:=1;
while k<=n do
begin
   s:=s+k;
   k:=k+1;
end;

B1
Kod:
  var
      zmienna1:array[1..100] of integer;
      zmienna2:string[15];
      zmienna3:real;

B2
Kod:
  for i:=1 to 6 then tablica[i]:=’aaaa’;

B3
Wynik:
Cytat:
*
*
*
*
*
*

Program sprawdzający:
Kod:
program gwiazdek6;
uses crt;
var number:integer;

begin
clrscr;
       for number:=1 to 6 do
       writeln('*');
readln;
end.

B4
Kod:
readln(c);
      case c of
           1:z:=a+b;
           2:z:=a-b;
           3:z:=a*b;
           4:z:=a/b;
           else
           writeln('tekst');
      end;
      writeln(z);

Program sprawdzający działanie:
Kod:
Program case_dzialania;
var a,b,z:real;
      c:byte;
begin
write('Podaj a = '); readln(a);
write('Podaj b = '); readln(b);
writeln;
writeln('Wybierz działanie i naciśnij ENTER');
repeat
   writeln('[1] Dodawanie');
   writeln('[2] Odejmowanie');
   writeln('[3] Mnożenie');
   writeln('[4] Dzielenie');
   readln(c);
      case c of
           1:z:=a+b;
           2:z:=a-b;
           3:z:=a*b;
           4:begin  {można dołożyć warunek}
                 if b<>0 then z:=a/b
                 else writeln('Nie wolno dzielić przez zero !!!');
             end;
      end;
until (c>0) and (c<5);
writeln(z:10:3);
readln;
end.

Jeszcze jedno rozwiązanie
Kod:
program gr2B4;
var x,a,b:real;
begin
writeln(' wpisz x: ');
readln(x);
if x=1 then
   writeln('z=a+b');
if x=2 then
   writeln('z=a-b');
if x=3 then
   writeln('z=a*b');
if x=4 then
   writeln('z=a/b');
readln
end.

B5
Kod:
function row_lin2B5 (z:real):real;
begin
y:=(3*Sqr(z))+(5*z)-z;
end;

Zapraszam do ankiety Cool


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi    Forum ZSPG w Piotrowicach Strona Główna :: Programowanie Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
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


fora.pl - załóż własne forum dyskusyjne za darmo


Powered by phpBB © 2001, 2002 phpBB Group
Charcoal2 Theme © Zarron Media

Regulamin