SP w Piotrowicach Strona Główna SP w Piotrowicach
Forum Szkoły Podstawowej nr 3 w Piotrowicach

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  AlbumAlbum

Poprzedni temat «» Następny temat
Test nr 2
Autor Wiadomość
Greif 



Pomógł: 2 razy
Wiek: 42
Dołączył: 02 Paź 2007
Posty: 1577
Skąd: Piotrowice
Wysłany: 2007-11-08, 00:38   Test nr 2

Pytania gr.2

Cytat:
A.

1. Zadeklaruj:
    - typ rekordowy o nazwie Książka zawierający pola: imię i nazwisko autora, tytuł książki, rok wydania,
    - typ tablicowy o nazwie Katalog będący jednowymiarową tablicą rekordów typu książka,
    - zmienną tablicową typu katalog,
    - zmienną typu łańcuchowego.

2. Ile będzie wynosiło s po wykonaniu następującego ciągu instrukcji. Przedstaw wyniki obliczeń na kartce:
s:=1;
n:=5;
For k:=1 to n do
s:=s*k;

3. Napisz instrukcję lub ciąg instrukcji, które wypiszą na ekranie monitora tablicę złożoną z 10 elementów typu rzeczywistego.

4. Napisz instrukcję realizującą następujące zadanie:
Jeśli x=1, to y=x
Jeśli x=2, to y=0

5. Zamień instrukcję for na while, tak aby treść algorytmu pozostała identyczna:
s:=0;
For k:=1 to n do
s:=s+k;

Cytat:
B.

1.Zadeklaruj:
    - zmienną tablicową reprezentującą tablicę jednowymiarową, której elementami są liczby całkowite,
    - zmienną typu łańcuchowego,
    - zmienną typu rzeczywistego

2. Napisz instrukcję lub ciąg instrukcji, które wczytają tablicę złożoną z 6 elementów typu łańcuchowego.

3. Jak będzie wyglądał wydruk po
for numer:=1 to 6 do
writeln(‘*’);

4. Napisz instrukcję realizującą następujące zadanie;
jeśli x=1, to z=a+b
x=2, to z=a-b
x=3, to z=a*b
x=4, to z=a/b

5. Zdefiniuj funkcję, która oblicza wartość następującego wyrażenia:
y=3z2+5z-z (3 razy z do kwadratu)


===
Odpowiedzi:

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]:=&#8217;aaaa&#8217;;

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;
_________________
Pozdrawiam
----------------------------------
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group