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 1
Autor Wiadomość
Greif 



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

Pytania gr.1
Cytat:
A.

1. Zadeklaruj:
    - zmienną typu całkowitego,
    - zmienną typu łańcuchowego, zawierającą 30 znaków,
    - zmienną typu tablicowego, reprezentującą tablicę jednowymiarową, której elementami są liczby rzeczywiste

2. Napisz instrukcję, która zrealizuje następujące zadanie: jeśli zmienna znakowa równa się „!” to wypisz na ekranie monitora komentarz: Koniec zdania.

3. Napisz instrukcję lub ciąg instrukcji, która wczytuje tablicę złożoną z 10 elementów typu całkowitego.

4. Jakie liczby będą wypisane na ekranie monitora w wyniku działania instrukcji while.
j:=1;
while j<10 do
begin
writeln(j*j);
j:=j+1;
end;

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

Cytat:
B.

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

2. Napisz instrukcję, która zrealizuje następujące zadanie:
jeśli a=0, wypisz brak rozwiązań,
jesli a≠0, to x=-b/a.

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

4. Jakie liczby będą wypisane na ekranie monitora w wyniku działania instrukcji while, przedstaw obliczenia na kartce.
j:=1; suma:=0;
while j<5 do
begin
writeln(suma);
j:=j+1;
end;

5. Zdefiniuj funkcję, która oblicza wartość następującego wyrażenia:
y=3z4+7 (3 razy z do potęgi 4)


===
Odpowiedzi:

A1
Kod:
var x:integer; {całkowita}
    lancuch:string[30]; {łańcuchowa}
    a:array[0..n]of real {tablicowa}

A2
Kod:
if zn='!' then writeln(&#8216;Koniec zdania&#8217;);
end.

A3
Kod:
begin
for i:=1 to 10 do
   begin
   write(&#8216;podaj element&#8217;,i,&#8217;tablicy&#8217;);
   readln(x[i]);
   end;
end.

A4
Wynik:
Cytat:
1
4
9
16
25
36
49
64
81

i program sprawdzający:
Kod:
Program petla;
var j:integer;
begin
     j:=1;
     while j<10 do
     begin
           writeln(j*j);
           j:=j+1;
     end;
readln;
end.

A5
Kod:
function row_lin (z:real):real;
begin
   y:=2*z*z+5;
end;


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

B2
Kod:
if a=0 then
      writeln(&#8216;brak rozwiązania&#8217;)
  else
      x:=(-1*b)/a;

B3
Kod:
var i:integer;
a:array[1..10] of string [30];
begin
   for i:=1 to 10 do
   readln(a[i]);
end.

B4
Cytat:
0
0
0
0

B5
Kod:
function y(z:real):real;
begin
  y:=3*z*z*z*z+7
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