var
a, b: <em>real</em>;
begin
readln(a, b);
writeln((sqr(a) + sqr(b)) / 2);
writeln((System.Math.Abs(a) + System.Math.Abs(b)) / 2);
<span>end.</span>
1. Необходимо выбрать вид теста: с открытыми вопросами (пользователь вводит ответ сам), с закрытыми вопросами (пользователь выбирает варианты ответа), комбинированный.
2. Разработать вопросы теста и варианты ответов.
3. Разработать алгоритм программы, автоматизирующей тест.
4. Записать разработанный алгоритм на языке программирования QBasic.
5. Отладить программу.
Информатика- это знания получаемые вами в школе ; сведения которые вы черпаете из книг , телепередач ; новости которые вы слушите от других людей , радио
<em />
Program filework;
var f:text;
i, n, count:integer;
l:string;
arr:array of real;
answ:real;
begin
assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу
reset(f);
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then
Inc(count);
end;
SetLength(arr, count);
reset(f);
i:=0;
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then begin
arr[i]:=StrToFloat(l);
Inc(i);
end;
end;
answ:=arr[0];
for i:=1 to arr.Length - 1 do
if arr[i] < answ then answ:=arr[i];
writeln(answ);
close(f);
end.
P.S. Программа работает с неограниченным числом положительных чисел в файле