end;
Readln; end.
Задача 4. Кондитерська фабрика для виготовлення п'яти сортів цукерок використовує п'ять видів сировини. Нехай норми затрат aij кожного виду сировини і на виробництво 1т цукерок сорту j задані формулою aij = 2|Sin(i)|+j, . Вивести на екран таблицю затрат сировини (тобто масив а). Визначити для якого сорту цукерок (imin) потрібно найменше сировини (min) третього виду.
programFabryka;
uses Crt;
type vytraty = array[1..5, 1..5] of real;
var i,j,imin: integer; min: real; a:vytraty;
beginclrscr;
writeln(' Вид сировини');
writeln(' 1 2 3 4 5');
for i:=1 to 5 do {Утворимо таблицю затрат}
Begin
write(i, ' сорт');
for j:=1 to5 do
Begin
a[i,j]:=2*abs(sin(i)) +j;
write(a[i,j]:7:2); {Роздрукуємо елементи і-го рядка}
end;
writeln {Перейдемо на новий рядок}
end;
imin:=1;
min:=a[1;3]; {Припустимо, що найменше сировини третього}
fori:=2 to 5 do {виду потрібно для цукерок першого сорту}
if a[i,3]<min then
Begin
min:=a[i,3]; imin:=i; {Визначимо шуканий сорт цукерок}
end;
writeln('Найменше сировини третього виду ');
writeln('потрібно для цукерок ', imin, ' сорту');
Readln; end.
Зауваження. Нехай задана деяка матриця ai,j, . Тоді вирази i = j, i < j та i > j визначають відповідно елементи головної діагоналі, елементи над та під головною діагоналлю цієї матриці.
Рядки
1. Рядки (string). Дане типу рядок — це послідовність довільних символів (тобто елементів типу char). Сталі типу рядок записують за допомогою двох штрих-символів, які охоплюють текст. Рядок може містити від 0 до 255 символів. Наприклад, 'Україна', 'Львівська політехніка', '' – порожній рядок нульової довжини, ' ' – рядок, що містить один символ-пропуск.
Змінну типу рядок оголошують за допомогою слова string так:
де n –довжина рядка, n<256. Довжину рядка можна не зазначати.
