Информатика. Артемова С.В - 12 стр.

UptoLike

s: Char; { Переменная символьного типа }
f: Boolean; { Переменная логического типа }
begin
ClrScr; { Производится очистка экрана }
WriteLn('Cоставил Поляков Д.Г., КТФ, гр. Р-11 ');
WriteLn; { Вывод пустой строки }
repeat { Цикл с постусловием }
f := False; { Флаговая переменная }
WriteLn('Введите аргумент вычисляемого выражения');
ReadLn(x); { Считывается вводимое число }
if (x>10) then y:=1
else if (x>=0) and (x<=10) then y:=2*x–1
else if (x<0) then y:=Abs(1–3*x);
WriteLn('Выводится результат вычисляемого выражения');
WriteLn(y:4:5); { Форматный вывод }
WriteLn('Вычислять ли функцию для другого аргумента? Y/N');
s:=ReadKey; { Считывается символ с клавиатуры }
WriteLn;
if s in ['y','Y'] then f := True;
until f = False;
end.
Пример программы на СИ: Программа вычисляет значение функции y=f(z), в зависимости от значения пе-
ременной z:
// Подключаемые библиотеки
#include<stdio.h> // Библиотека ввода-вывода
#include<conio.h> // Библиотека работы с окнами
#include<math.h> // Библиотека математических функций
void main(void) // Главная функция (основной блок программы)
{
// Раздел объявления локальных переменных
int z, p; // z-аргумент, p-флаговая переменная
char key; // Символьная переменная
// Раздел объявления констант
const int true=1; // Истина
const int false=0; // Ложь
clrscr(); // Очистка экрана
printf("Составитель: Грибков Алексей Николаевич");
printf("\n\t\tФакультет КТФ, группа Р-11");
while(p!=true) // Цикл продолжается до тех пор, пока значение переменной
{ // р не станет равным true (истина)
printf("\n\nВведите z: ");
scanf("%i", &z); // Ввод значения переменной z
// Вычисление значения y=f(z)
if (z>10) printf("y=1, z>10");
if (z>=0 && z<=10) printf("y=%i, 0=<z<=10",2*z–1);
if (z<0) printf("y=%i, z<0",abs(1-3*z));
// Запрос на повторение расчетов с другими параметрами
printf("\n\nХотите произвести расчеты еще раз: y/n");
key=getch(); // Считывание символа с клавиатуры в переменную key
if (key!='y' && key!='Y') p=true;
else p=false;
}
}
КОНТРОЛЬНЫЕ ВОПРОСЫ
1 Как выполняется оператор if?
2 Какое выражение называется логическим?
3 Как обозначаются логические операции в СИ и в Паскале?
4 Каких основных правил следует придерживаться при программировании разветвляющихся алгоритмов?
Литература [2, 3].
Лабораторная работа 3
СОСТАВЛЕНИ ПРОСТЕЙШИХ ВЫЧИСЛИТЕЛЬНЫХ ПРОГРАММ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ
Цель работы: получение навыков программирования итерационных алгоритмов и алгоритмов цикличе-
ской структуры.