Test Pentru Cl 9

  • Uploaded by: pavlik
  • 0
  • 0
  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Test Pentru Cl 9 as PDF for free.

More details

  • Words: 529
  • Pages: 3
1.

Stabiliţi următorul termen al şirului 1, 18, 1827, 182764, _________________

2

Ordonaţi numerele de mai jos în ordine crescătoare. (a) 12510 (b) 101111112 (c) 1718 (d) A116

3

Sintaxa unui limbaj este descrisă prin următoarele formule metalingvistice: ::= 0|1|2|3|4|5|6|7|8|9 ::= {} <Semn>::= +|::= <Semn>< Numar natural > Care dintre secvenţele ce urmează sunt conforme formulei metalingvistice a) +76 b)

4

c) (+45)

d) -12

e) 48

f) -348

Dintre cuvintele de mai jos, selectaţi doar procedurile predefinite de citire/ afişare ale limbajului PASCAL a) read f) println

5

b) +58-67

b) tipar g) readln

c) write h) clean

d) readdata i) printdata

e) print j) writeln

Fie date declaraţiile: Var A,b : integer; X,y: real; C,q: char; O,p: Boolean; Stabiliţi tipul rezultatului în următoarele expresii PASCAL a. b. c. d.

6

Frac( a div 3 + int(sqr(a)));real (A/3 > 0) or (B div 4 = 4);boolean Abs(Chr(256 - ord(Q)));integer chr((a+b) mod 255 );char

Formaţi perechile corecte dintre identificatorii funcţiilor predefinite PASCAL din coloana stîngă şi descrierile acestora din coloana dreaptă: 1. Abs (x)

2. Sqr(x)

3. Sin(x) 4. Odd(x) 5. Chr(x)

a) Returnează valoarea sinusului numărul real x , mărime a unui unghi, exprimat în radiani b) Returnează valoarea TRUE în caz că numărul întreg x este impar si FALSE în caz contrat c) Returnează modulul numărului întreg x d) Returnează caracterul, cu valoarea x a codului ASCII e) Returnează pătratul numărului întreg x

7

Fie date declaraţiile Var a: integer; Determinaţi, ce se va afişa în urma executării secvenţei de instrucţiuni PASCAL:

8

a:=7; If a > 5 then If a < 8 then write(’IN’) else write(’OUT’); Write(0); IN0 Determinaţi, ce se va afişa în urma execuţiei următorului program PASCAL Program pcase02; Var a: integer; p: char; Begin a:=3; Case a of 1..3 : a:=a+2; 5..7 : a:=a+3; 8..10 : a:=2*a; End; P:=’Q’; Case p of ’A’..’Z’ : a:=a+5; ’a’..’z’ : a:=a-1; End; Writeln(a); End. 1) 21

(2) 10

3) 20

4) 4

9

Determinaţi, ce se va afişa după execuţia următorului program Pascal Program pfor02; Var I,j,k : integer; Begin K:=0; For i:=1 to 10 do For j:=10 downto 5 do K:=k+1; Writeln(k); End.

10

Instrucţiunea REPEAT se repetă : 1. 2. 3. 4.

11

De de un număr de ori stabilit apriori ;;;;;;;;;;;;;; Atît timp, cît condiţia ciclului REPEAT rămîne adevîrată Atît timp, cît condiţia ciclului REPEAT rămîne falsă De un număr infinit de ori. Se permite doar întreruperea forţată a instrucţiunii ciclice

Fie dat programul: Program pgeneral01;

Var s,n,k : integer; Begin Readln(n,s); k:=0; repeat k:=k+(n mod 10); n:= n div 10; until (n = 0); if k = s then write(’EGAL’) else write(’DIFERIT’); End. Programul dat: 1. Afişează cuvîntul EGAL în cazul cînd lungimea numărului N este egală cu S şi DIFERIT – în caz contrar 2. Afişează cuvîntul EGAL în cazul cînd produsul cifrelor numărului N este egal cu S şi DIFERIT – în caz contrar 3. Afişează cuvîntul EGAL în cazul cînd suma cifrelor numărului N este egală cu S şi DIFERIT – în caz contrar;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 4. Afişează cuvîntul EGAL în cazul cînd numărul N conţine exact S cifre distincte şi DIFERIT – în caz contrar

Related Documents

Test Pentru Cl 9
June 2020 6
Test Pentru Femei
May 2020 9
Test 9 - Grade 9
November 2019 25
Test 9
November 2019 11
Test 9
May 2020 8
Cl
October 2019 68

More Documents from ""