ИДЗ-ПРОГРАММИРОВАНИЕ-Севаллос Корейма -БИ-201 (1). белгородский государственный технологический университет им. В. Г. Шухова (бгту им. В. Г. Шухова) Кафедра Экономики и организации производства

• Название: белгородский государственный технологический университет им. В. Г. Шухова (бгту им. В. Г. Шухова) Кафедра Экономики и организации производства
• Дата: 29.03.2022
• Размер: 1.38 Mb.
• Имя файла: ИДЗ-ПРОГРАММИРОВАНИЕ-Севаллос Корейма -БИ-201 (1).docx
• Тип: Документы; #424343

Министерство образования и науки Российской Федерации

Федеральное государственное

бюджетное образовательное учреждение

высшего профессионального образования

«БЕЛГОРОДСКИЙ ГОСУДАРСТВЕННЫЙ

ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ

ИМ. В.Г. ШУХОВА»

(БГТУ им. В.Г. Шухова)

Кафедра «Экономики и организации производства»

Дисциплина: «Программирование»

Индивидуальное домашнее задание

Вариант 6

Выполнил: студент гр. БИ-11

Cевалллос Корейма

Проверил: преподаватель

Лазарева Анна Юрьевна

Содержание:

1. 
   Задание
   
2. 
   Листинг программы
   
3. 
   Данные для тестирования программы
   
4. 
   Список использованной литературы
   

1. 
   Задание
   

задания 1

Написать программу, которая запрашивает исходные данные и проводит над ними выбранное пользователем действие. Выбор действия осуществляется с помощью меню.



Примечание: следует предусмотреть ввод пользователем некорректных данных

задания 2

Написать программу вычисления стоимости весового товара относительно цены за 1 кг. 18 Входные данные В строках входного файла INPUT.TXT записаны цифры через пробел, обозначающие вес купленного товара, цена. Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число – стоимость покупки.

2. 
   Листинг программы
   

Задание 1

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('Введите длины 3х отрезков:');

readln(a,b,c);

if(a>=b+c)or(b>=a+b)or(c>=a+b) then

write('Треугольник построить нельзя')

else

 if (a*a+b*b=c*c)or(a*a+c*c=b*b) or(b*b+c*c=a*a)

 then write('Можно построить прямоугольный треугольник')

else

 if (a*a+b*b>c*c)and(a*a+c*c>b*b) and(b*b+c*c>a*a)

 then write('Можно построить остроугольный треугольник')

else write('Можно построить тупоугольный треугольник');

readln

end.

Задание 2

uses crt;

type tovar=record

          naz:string[20];

          cen1,cen2:integer;

          end;

const max=20;

var a:array[1..max] of tovar;

    n,i,k:byte;

begin

clrscr;

repeat

write('Количество товаров до ',max,' n=');

readln(n);

until n in [1..max];

writeln('Введите данные о товарах:');

for i:=1 to n do

 begin

  writeln('Товар ',i);

  with a[i] do

   begin

    write('Название: '); readln(naz);

    write('Старая цена: '); readln(cen1);

    write('Новая цена: '); readln(cen2);

   end;

 end;

clrscr;

writeln('Сведения о товарах:');

writeln('------------------------------------------------');

writeln('|     Название      | Старая цена | Новая цена |');

writeln('------------------------------------------------');

for i:=1 to n do

with a[i] do

 begin

  gotoXY(1,whereY);write('| ',naz);

  gotoXY(21,whereY);write('|',cen1:10);

  gotoXY(35,whereY);write('|',cen2:10);

  gotoXY(48,whereY);writeln('|');

 end;

writeln('------------------------------------------------');

write('Press Enter');

readln;

clrscr;

writeln('Список товаров, на которые повысились цены:');

k:=0;

writeln('Сведения о товарах:');

writeln('--------------------------------------------------------------');

writeln('|     Название      | Старая цена | Новая цена | Повышение,% |');

writeln('--------------------------------------------------------------');

for i:=1 to n do

with a[i] do

if cen2>cen1 then

 begin

  k:=1;

  gotoXY(1,whereY);write('| ',naz);

  gotoXY(21,whereY);write('|',cen1:10);

  gotoXY(35,whereY);write('|',cen2:10);

  gotoXY(48,whereY);write('|',(cen2-cen1)/cen1*100:10:2);

  gotoXY(62,whereY);writeln('|');

 end;

writeln('--------------------------------------------------------------');

if k=0 then write('Повышений нет');

readln

end.

3. 
   Данные для тестирования программы
   

Задание 2.

Запускаем программу:

4. 
   Список используемой литературы
   

1. 
   Методические указания к выполнению индивидуального домашнего задания по дисциплине «Программирование» и самостоятельной работы /А.Ю. Лазарева. – Белгород: Изд-во БГТУ, 2016. – 10с.157 с.
   
2. 
   Программирование: методические указания к выполнению лабораторных работ для студентов направления подготовки 38.03.05 – Бизнес-информатика / сост.: А.Ю. Лазарева – Белгород: Изд-во БГТУ, 2017. - 40 с.
   

Белгород 2020