|
Научно-техническая революция и связанный с ней интенсивный рост химического производства, вызывает существенные негативные изменения в окружающей среде.
}
{Цель: вычисление значения ф-ции f(x) с помощью оператора с параметром }
{ оператора и правил программирования разветвляющихся алгоритмов. }
{Описание параметров и переменных:
}
{Цель: изучение условного оператора, оператора отбора, составного }
{ оператора и правил программирования разветвляющихся алгоритмов. }
{Описание параметров и переменных:
В курсовом проекте производятся расчёты следующих разделов: Производственная программа по эксплуатации таксомоторного состава. План по труду и заработной плате. Доходы, прибыль и рентабельность.
Вычислить массив {Yi}, каждый элемент которого вычисляется по формуле cos(A), и подсчитать количество элементов L из массива {Yi}, попадающих в интервал [0;1]. Вывести на печать L и массивы {Ai} и
Цель работы: Получение навыков реализации циклических алгоритмов с
неизвестным числом повторений цикла, операторов цикла с предусловием и
постусловием и итерационных циклических алгоритмов.
Задание № 17. Вы
uses crt; var i : integer; a : array[1..20] of integer; c : array[1..20] of integer; begin clrscr; writeln('Первый массив : '); for i := 1 to 20 do begin a[i] := random(30); write (' ', a[i]); end; writeln
procedure arf(m,n:integer;var x:m);
var i,j,s:integer;sr:real;
begin
for i:=1 to m do begin s:=0; sr:=0;
if x[i,n]=1 then begin
for j:=1 to n do
s:=s+x[i,j]; sr:=s/n;
writeln ('среднее арифметическое ',i,' с
program lab7;
var n,k:integer; eps,d,x,y:real;
begin
writeln(‘Погрешность eps=’); read(eps);
writeln(‘Степень корня n=’);read(n);
writeln(‘Подкоренное число x=’);read(x);
k:=0;
y:=x; repeat {начало цикла} d:=(x
Проверил:
Несмеянов И. А.
Задание. Создать файл данных со следующей структурой:
шифр товара,
наименование,
план выпуска на каждый квартал,
фактический выпуск в каждом квартале.
Предусмотреть возможн
Цель работы: Изучение операторов ввода и вывода, управление формой вывода
данных, получение навыков организации печати в удобном для пользователя
виде.
Задание № 17. Вычислить функцию при заданных значениях
Вначале работы программа выводит на экран строку "Kol. Elementov L:>",
после чего необходимо ввести значение количества элементов, которые будут
записываться в список L. Затем происходит считывание этого зна
Целью работы является написание программ на ЭВМ, согласно условию в
выбранном варианте, первая программа для задания А, и вторая программа для
задания Б. Для написания программ использовался Borland Turbo Pasca
uses crt; var z : array[1..12,1..12] of integer; m, n, b, sum, i, j : integer; begin n:=10; m:=12; clrscr; randomize; b := 0; sum := 0; writeln('Исходный массив : '); for i := 1 to n do for j := 1 to m do be
Программа ''Расчет цеха'' составлена в Microsoft Excel и предназначена для
расчета литейных цехов серийного производства. С помощью данной программы можно рассчитать:
- производственную программу це
|
|