Реферат: Курсовая
Readln;
end.
Решение 1.
Введите количество значений а 4
a=0.5
a=0.4
a=0.7
a=0.8
С=8.20
Решение 2.
Введите количество значений а 5
a=15.7
a=14.2
a=16.4
a=10.3
a=8.1
С=195.10
Задание № 10
Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией вложенного цикла типа FOR для определения всех возможных значений Sсегм при изменении параметров R и a. Значения параметров R и a приведены в таблице 10.1. Организовать вывод на печать в виде таблицы значений R, a и Sсегм . Записать программу на диск под новым именем.
Таблица 10.1
| Параметр | 1 | 2 | 3 | 4 | 5 |
| R | 15,7 | 14,2 | 16,4 | 10,3 | 8,1 |
| a | 0,5 | 0,4 | 0,7 | 0,8 | ─── |
Ход программы.
Program zadacha_10;
Var r,a :array [1..5] of real;
s:array [1..5,1..5] of real;
i,j:integer;
Begin
For i:=1 to 5 do
Begin
Write('Введите r[',i,']=');