МУ_Инф2_ЭиЭ_зо_2012

ПРИМЕРЫ PASCAL - ПРОГРАММ

После формулировки задачи следует текст программы, а затем - информация, выводимая программой на экран. Подчеркнутые символы введены с клавиатуры.

Пример для задания № 1. Найти сумму и произведение трех введенных с клавиатуры целых чисел.

Program Example_1;

Uses crt;

var a,b,c,sum,pr:integer;

begin

clrscr;

writeln(’Задание 1. Вариант № 1’); write('Введите 3 целых числа через пробел:'); readln(a,b,c);

sum:=a+b+c;

pr:=a*b*c;

writeln('Сумма = ',sum,', произведение = ',pr); writeln('Программа завершена. Нажмите Enter.'); readln

end.

Задание 1. Вариант № 1

Введите 3 целых числа через пробел:2 3 5

Сумма = 10, произведение = 30

Программа завершена. Нажмите Enter.

11

Блок схема для задания № 1:

Начало

Ввод

a,b,c

Sum=a+b+c

Pr=a*b*c

Вывод

Sum и Pr

Конец

12

Пример для задания № 2. Даны три вещественных числа x, y, z. Найти и вывести на экран максимальное из них.

Program Example_2;

Uses crt;

var x,y,z,max: real;

begin

clrscr;

writeln(’Задание 2. Вариант № 1’);

write('Введите 3 вещественных числа через про-

бел:'); readln(x,y,z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

writeln('Максимальное из них - ',max:4:1); writeln('Программа завершена. Нажмите Enter.'); readln

end.

Задание 2. Вариант № 1

Введите 3 вещественных числа через пробел:2.5 5 1.3

Максимальное из них - 5.0

Программа завершена. Нажмите Enter.

13

Блок схема для задания № 2:

14

Пример для задания № 3. Имеется пронумерованный список цветков: роза – 1, пион – 2, ромашка – 3, гвоздика – 4, лилия – 5. Составить программу, которая по номеру цветка выводит на экран ее название.

Program Example_3;

Uses crt;

var number:integer;

begin

clrscr;

writeln(’Задание 3. Вариант № 1’); write('Введите номер цветка:'); readln(number);

case number of

1:write('роза');

2:write('пион');

3:write('ромашка');

4:write('гвоздика');

5:write('лилия');

else writeln('Цветка с таким номером нет');

end;

writeln('Программа завершена. Нажмите Enter.'); readln

end.

Задание 3. Вариант № 1

Введите номер цветка:1

роза

Программа завершена. Нажмите Enter.

Задание 3. Вариант № 1

Введите номер цветка:7

Цветка с таким номером нет Программа завершена. Нажмите Enter.

15

Блок схема для задания № 3:

16

Пример для задания № 4. Дана арифметическая прогрессия 3, 5, 7, 9… Составить программу определения суммы первых 10 ее членов. Вывести значение искомой суммы и всех ее слагаемых.

program EXAMPLE_4; uses crt;

var S,h,a,i: integer; begin

clrscr;

writeln('Задание 4. Вариант № 1'); write('Введите начальное значение a='); readln(a);

h:=2;

S:=0;

for i:=1 to 10 do

Begin writeln('a[',i,']=',a); S:=S+a;

a:=a+h; end;

writeln('S=',S);

writeln('Программа завершена. Нажмите Enter.');

readln; end.

Задание 4. Вариант № 1

Введите начальное значение a=3 a[1]=3

a[2]=5

a[3]=7

a[4]=9

a[5]=11

a[6]=13

a[7]=15

a[8]=17

a[9]=19

a[10]=21

S=120

Программа завершена. Нажмите Enter.

17

Блок схема для задания № 4:

18

Пример для задания № 5: Вычислить и напечатать таблицу значе-

ний функции y = ( 3 xi − 0,5)2 на интервале значений x [1,3] с шагом h=0,1

(решить задачу с помощью трех типов циклов: с параметром, с предусловием, с постусловием; предусмотреть в программе возможность выбора типа цикла).

program EXAMPLE_5; uses crt;

var x,y:real; i,с:integer; begin

repeat clrscr;

writeln('Задание 5. Вариант № 1'); write('Введите начальное значение х='); readln(x);

writeln('Выберите вид цикла. Нажмите:'); writeln('1 - для цикла FOR'); writeln('2 - для цикла WHILE'); writeln('3 - для цикла REPEAT'); writeln('0 - выход из программы'); readln(c);

case c of

1: for i:=1 to 21 do

Begin y:=sqr(exp(1/3*ln(abs(x)))-0.5);

writeln('При х=',x:5:2,' y=',y:5:2); x:=x+0.1;

end;

2: While x<=3 do

Begin y:=sqr(exp(1/3*ln(abs(x)))-0.5);

writeln('При х=',x:5:2,' y=',y:5:2); x:=x+0.1;

end; 3: Repeat

y:=sqr(exp(1/3*ln(abs(x)))-0.5); writeln('При х=',x:5:2,' y=',y:5:2); x:=x+0.1;

until x>3;

end;

19

readln; until c=0;

end.

Задание 5. Вариант № 1 Введите начальное значение х=1 Выберите вид цикла. Нажмите: 1 - для цикла FOR

2 - для цикла WHILE

3 - для цикла REPEAT

0 - выход из программы

1

При х= 1.00 y= 0.25 При х= 1.10 y= 0.28 При х= 1.20 y= 0.32 При х= 1.30 y= 0.35 При х= 1.40 y= 0.38 При х= 1.50 y= 0.42 При х= 1.60 y= 0.45 При х= 1.70 y= 0.48 При х= 1.80 y= 0.51 При х= 1.90 y= 0.55 При х= 2.00 y= 0.58 При х= 2.10 y= 0.61 При х= 2.20 y= 0.64 При х= 2.30 y= 0.67 При х= 2.40 y= 0.70 При х= 2.50 y= 0.73 При х= 2.60 y= 0.77 При х= 2.70 y= 0.80 При х= 2.80 y= 0.83 При х= 2.90 y= 0.86 При х= 3.00 y= 0.89

20