(паскаль) дан текстовый файл, содержащий вещественные числа (положительные и отрицательные) в произвольном порядке. сформируйте массив, содержащий только положительные числа из файла, и найдите наименьшее среди них.
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. Программа работает с неограниченным числом положительных чисел в файле
1) Это кнопки, иконки, поля ввода. Кнопки нажимаются, в поля вводится текст. 2) В Windows -строка заголовка – верхняя строка окна, в которой находится имя программы или имя окна; кнопка сворачивания окна; кнопка восстановления окна кнопка закрытия окна кнопка системного меню строка меню панель инструментов полосы прокрутки рабочее поле строка состояния рамка окна. Вроде все. 3) 1. System 32. Рабочий стол. 2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows. 4) 1. Иконки, панель задач, папки 2. Ярлык это ссылка на файл, который может находиться где угодно на ПК, а значок это сам файл 3. На панели задач располагается запущенные приложения, панель быстрого доступа, часы... . 4. Папка "Мой компьютер" 5) Ярлык дает ссылку на значок,который запускает. 6) Пуск,панель задач,программы в фоновом режиме,задачи или все, что ты туда поместишь.
Я уже отвечал на подобный вопрос. Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования: А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л, Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь, Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦ Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту. @ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д. Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики. И еще меняется регистр, 1-ая буква маленькая, остальные большие. Эти имена по порядку: Глеб, Степан, Иван, Фёдор, Кирилл, Леонид
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. Программа работает с неограниченным числом положительных чисел в файле