Free pasc l
This presentation is the property of its rightful owner.
Sponsored Links
1 / 43

Программируем на Free Pasc а l PowerPoint PPT Presentation


  • 130 Views
  • Uploaded on
  • Presentation posted in: General

Программируем на Free Pasc а l. Уроки программирования. Учитель информатики и ИКТ Кузнецова Aлёна Анатольевна МБОУ СОШ №121 г.Екатеринбург. Типы переменных.

Download Presentation

Программируем на Free Pasc а l

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


Free pasc l

Free Pascl

A

121

.


Free pasc l

  • INTEGER - , 2 ; - -32768 +32767; ;

  • REAL - , 6 ; - 2.9-39 1.7+38; - 11...12 ;


Free pasc l

  • CHAR - , 1 ;

  • STRING - , +1 , - ;

  • BOOLEAN - , 1 : FALSE () TRUE ().


Free pasc l


Free pasc l


Free pasc l


Free pasc l

3


Free pasc l

:

  • , .

  • , .


Free pasc l


Free pasc l


Free pasc l

:

  • , , , , .

  • ., ? ?; () (15) ... 50 65 , , .


Free pasc l

:

  • , , " 10 " ( "" 10).

  • () () - : , , , .


Free pasc l


Free pasc l


Free pasc l


Free pasc l

D>=0

D>0

1

2


Free pasc l

program vetvlen;

uses crt;

var A, B, C, D:real;

begin

clrscr;

write (' A,B,C: ');

readln (A,B,C);

D:=sqr(B)-4*A*C;

if D>=0 then

if D>0 then

writeln (' ')

else

writeln (' ')

else

writeln (' ');

readln

end.


Free pasc l

program vetvlen;

uses crt;

var A,B,C,D,X1,X2:real;

begin

clrscr;

write ( A,B,C: );

readln (A,B,C);

D:=sqr(B)-4*A*C;

if D>=0 then

if D>0 then

begin

X1:=(-B+sqrt(D))/(2*A);

X2:=(-B-sqrt(D))/(2*A);

writeln ( ,X1:6:2,X2:6:2)

end

else

writeln ( ,-B/2*A)

else

writeln ( );

readln

end.


Free pasc l

:

  • 2 . , +, , *.

  • 2 , , 2, ,

  • , 3 .

  • , 4 .


Free pasc l


Free pasc l


Free pasc l


Free pasc l


Free pasc l


Free pasc l

.

program Z1;varx:integer;i:integer;R:integer;{ }beginWriteln('Vvedite x');readln(x); R:=1;fori:=2 to x do

R:=R*i; Writeln(R);readln;end.


Free pasc l


Free pasc l

Var <_>: string[< >]

: Var s1: string[10];s2: string[20];smax: string;


Free pasc l

  • (, ) (+)

  • (=), (<>), (>), (<), (>=), (<=).

    (true false).


Free pasc l

:1)<>(, .. );2) Abc<abc ( , .. A 65 , a 97);3)> ( , .. , , , ).


Free pasc l

Copy (S, poz, n) S, poz, n . S , poz, n .


Free pasc l

Concat (s1, s2,...,sn) s1, s2,...,sn


Free pasc l

Length(S) S. .


Free pasc l

Pos(subS, S) subS S. , , . , 0.


Free pasc l

CHR(N) - N,

ORD(S) - S,

PRED(S) -

SUCC(S) - : CHR(128) = ORD(':') = 58 PRED('') = SUCC('') =


Free pasc l

Delete (S, poz, n) S, poz, n . S ( ,


Free pasc l

Insert(subS, S, poz) S, poz, subS. subS , S ( ), poz .


Free pasc l

:

, + , : " ?(/)".


Free pasc l

Var A,B:real;uses crt;

C : char; a,b:integer;Begin

Clrscr; repeatWrite(' '); Readln(a,b); Writeln(a+b:0:2);Writeln(' ?(/)'); Readln();Until =''; ReadlnEnd.


Free pasc l

:

, . .

. , , .

, .


Free pasc l

Var x,y:byte; a,b:string; begin readln(a); readln(b); x:=length(b); if a[1]=b[x] then write('') else write(''); readln end.


  • Login