Паскаль

1. 1

На рабочем столе запустите ярлык программы Pascal

«Пустая» программа на Паскале, которая не выполняет никаких действий

Program one;

Begin

End.

Созданные программы не сохраняйте.

2. 2

Откройте окно компилятора Pascal, и введите текст  программы:

Program two;
Begin
write ('Привет, студент');
End.

После написания программы, нажми кнопку «Выполнить» («Run»). 

Полюбуйся на результат.

3. 3

Попробуй набрать и запустить на выполнение еще одну программу.

Program P;

   var a, b : integer;

begin

   write ('Введите число ');

   readln (a); b:=a*a;

   writeln ('Квадрат этого числа = ',b);

end.

Объясни преподавателю что делает данная программа и для чего она нужна.

4. 4

Набери следующую программу и запусти на выполнение

Program summa;

Var

a, b, c, s: integer;

begin

a:=59; b:=51; c:=52;

Write (a:3); Write (b:3); Write(c:3);

S:=a+b+c;

Writeln (‘A=’,a);

Writeln (‘B=’,b);

Writeln (‘C=’,c);

Writeln (‘Сумма A+B+C равна ’, s);

End.

Напишите данную программу и запустите на выполнение. Измените значения переменных. Покажи результат преподавателю.

5. 5

Составим программу, которая спрашивает возраст ребенка и выдает решение о приеме ребенка в детский сад

(2 года).

Program vozrast;

Var v: integer;

Begin

Write (‘Введите возраст ребенка’);

Readln (v)

If v>=2 
then writeln (‘Принимаем в детский сад’) {если ..., то ...}

else writeln (‘Не принимаем в детский сад’); {иначе}

end.

Модифицируйте данную программу, чтобы ограничить верхнюю границу приема в колледж АВТ 15 годами.

6. 6

Введите данную программу и запустите на выполнение.

Даны два числа. Меньшее из этих чисел заменить суммой данных чисел, большее - произведением.

Program zamena;

Var x, y,s,p: integer;

Begin

   Write (‘Введите 2 числа’);

   Readln(x, y);

   S:=x+y; p:=x*y

   If x>=y

   then begin y:=s; x:=p;

   end;

   else begin x:=s; y:=p;

   end;

   writeln (‘x=’, x);

   writeln (‘y=’, y);

end.

7. 7

Вывести на экран натуральные числа от 1 до 9 в обратном порядке.

Program chisla;

Var i:integer;

Begin

For i :=9 downto 1 do

Writeln (i);

End.

8. 8

Задание. Найти сумму 10 произвольных чисел.

Program summa;

Const N=10;

Var k, x, s: integer;

Begin

k:=0; s:=0; {k- количество введенных чисел}

while k < n do

begin

k := k+1;

write (‘Введите число’);

readln (x);

s:=s+x;

end;

writeln (‘Сумма чисел равна’, s);

end.

9. 9

Данная программа запускает графический модуль

если он установлен.

Program Gr;

Uses GraphABC;

begin SetWindowSize (256,256);

SetPenColor (RGB(0,0,255));

Line (0,0, WindowWidth, WindowHeight)

Line (0,WindowHeight, WindowWidth, 0)

end.

10. 10

Наберите по очереди следующие программы

1) Program z;

var a,b : integer;

begin

a :=7 ;

writeln (a);

b := a + 2;

writeln (b);

end.

2) Program z;

var a : integer; b: string;

begin

writeln (‘введите ваше имя’);

readln (b);

writeln (‘сколько вам лет?’);

readln (a);

writeln (b);

writeln (a);

end.

3) В фигурных скобках можно писать пояснение. Это необязательный элемент программы.

Program l; {заголовок программы}

Var a,b,c: integer; {целые числа}

BEGIN {начало раздела операторов}

c:=5;

b:=4;

a:=c*b;

writeln(a); {вынесение на экран значения a}

END.

Введите другие числа и снова запустите программу.

11. 11

Составить блок схему алгоритма и написать программу.

(циклическая структура с предусловием)

Program W;

Var n: integer;

f: real;

Begin

n:=2;

while n<=20 do

begin

f:= sin(n);

write ('n=', n)

writeln ('sin', n, '=', f);

n:=n+1;

end;

End.