Информатика
.pdf10
Пример для задания №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.
11
Блок схема для задания № 2:
12
Пример для задания № 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.
13
Блок схема для задания № 3:
14
Пример для задания № 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.
15
Блок схема для задания № 4:
16
Пример для задания № 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; readln;
until c=0; end.
17
Задание 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
18
Блок схема для задания № 5:
|
Начало |
|
|
|
|
Ввод x, c |
|
|
|
||
|
|
C= |
|
|
|
С=1 |
|
|
С=3 |
|
|
|
|
С=2 |
|
|
|
I = 1 to 21 |
|
X<=3 |
|
|
|
|
|
|
|
|
|
Y = (3 xi - 0,5)2 |
|
да |
Y = (3 |
xi - 0,5)2 |
нет |
|
xi - 0,5) |
2 |
|
|
|
Y = ( |
3 |
нет |
|
нет |
|
|
|
|
|
||
|
|
|
Вывод X, Y |
|
|
Вывод X, Y |
|
|
|
|
|
Вывод X, Y |
|
|
|
||
|
|
|
X = X+0.1 |
|
|
X = X+0.1 |
|
|
|
|
|
X = X+0.1 |
|
|
|
||
|
|
|
|
X>3 |
|
I = I + 1 |
|
|
|
|
|
|
|
|
да |
|
|
|
|
C=’0' |
|
|
|
|
|
да |
|
|
|
|
Конец |
|
|
|
19
ЛИТЕРАТУРА
1.Епанешников A.M., Епанешников В.А. Программирование в среде Turbo Pascal 7.0. - М.;"Диалог-МИФИ", 1993.
2.Фаронов В.В. Турбо Паскаль (в 3-х книгах). Основы Турбо Паскаля. - М.: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДКТИК",1992.
З. Довгаль С.И., Литвинов Б.Ю., Сбитнев А.И. Персонльные ЭВМ; ТурбоПаскаль v.7.0, Объектное программирование. Локальные сети (учебное пособие).-Киев: "Информсистема сервис", 1993.
4.Зуев Е.А. Программирование на языке Turbo Pascal 6.0,7.0. -М.: Веста, Радио и связь, 1993.
5.Фигурнов В.Э. IBM PC для пользователя. Издание 4-е.-М.: "Финансы и статистика", 1994.