.

Программирование элементов разветвляющейся структуры

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 122
Скачать документ

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 5

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003

Задание А.

Если первое из трех веденных с клавиатуры чисел отрицательное, то
вычислить среднеарифметическое всех этих чисел. В противном случае
рассчитать произведение двух первых.

Программа:

uses crt;

var

a,b,c,e:real;

begin

clrscr;

writeln(‘Введите первое число ‘);

readln(a);

writeln(‘Введите второе число ‘);

readln(b);

writeln(‘Введите третье число ‘);

readln(c);

if aЗадание Б. Разработать алгоритм и составить программу вычисления значений функции, заданной графиком 4 3 2 1 -1 1 2 3 4 -2 -3 Программа: uses crt; var y,x : real; begin writeln('Введите значение Х '); readln(x); if x=-1)and (X=0) and (x=3) and (xБлок-схема result Конец result := a * b; result := (a + b + c) div 3; a =3) and (x=0) and (x=-1)and (X

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020