Writeln

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. Довжину рядка можна не зазначати.