Turbo Pascal. write writeln (вывод сообщения из переменной) Program pervaya; uses crt; var k,l:integer; begin clrscr; k:=6; l:=10; write(k); write(l); - презентация

1 Turbo Pascal

2 write writeln (вывод сообщения из переменной) Program pervaya; uses crt; var k,l:integer; begin clrscr; k:=6; l:=10; write(k); write(l); write(,k,,l); readln; end.

3 write writeln Program pervaya; {название программы} uses crt; {библиотека используемых команд} var k,l:integer; {используемый тип данных} begin {начало программы} clrscr; {очистка экрана} k:=6; l:=10; {назначение переменным значения} write(k); {напечатать на экране переменной к} write(l); {напечатать на экране переменной l} write(,k,,l); {напечатать на экране переменной к и l с пробелами} readln; {задержка выполняемой программы} end.

4 Тип данных Целый тип данных Hortint Integer Longint Byte Word Вещественный Real 2,9e-39..1,7e38

5 write writeln Program pervaya; uses crt; var k,l:integer; begin clrscr; k:=6; l:=10; write(k); write(l); write(,k,,l); readln; end.

6 read readln (ввод сообщения в программу) Program pervaya; uses crt; var k,l:integer; begin clrscr; write(vvodim dva chisla ); readln(k,l); write(,k,,l); readln; end.

7 If A>B then A=5 else A=10 (если то иначе) Program pervaya; uses crt; var k,l:integer; begin clrscr; write(vvodim dva chisla ); readln(k,l); If k>l then writeln(vivodim k,k) else writeln(vivodim l,l); readln; end.

8

9 For i:=1 to 10 цикл со счетчиком

10 Звездочка

11

12 Спелость арбузов

13