45 / 2 / 1
Регистрация: 19.08.2017
Сообщений: 86
|
|
|
1
|
перевести с паскаля на язык си++
03.06.2019, 13:55. Показов 425. Ответов 0
Создать текстовый файл, в который записать не менее 20 целых чисел в диапазоне -7 до 7. Вывести содержимое файла на экран. Найти минимальное значение среди положительных и записать в другой текстовый файл номер строки найденного элемента.Содержимое этого файла вывести на экран. Если искомых данных нет, то в файл записать соответствующее сообщение.
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| begin
Randomize;
var T : Text;
var Name := 'integer.txt';
var minName := 'integer.min.txt';
// Создание текстового файла
Rewrite(T, Name);
for var i := 1 to Random(20, 30) do
WriteLn(T, Random(-7, +7));
Close(T);
// Вывод на экран
WriteLn('Содержимое файла ', Name, ':', NewLine, ReadAllText(Name));
// Поиск минимального
var minValue := Integer.MaxValue;
var minLines := 0;
var numLines := 0;
foreach var strLines in ReadLines(Name) do
begin
numLines += 1;
var intLines := StrToInt(strLines);
if (intLines < minValue) and (intLines > 0) then
begin
minValue := intLines;
minLines := numLines;
end;
end;
// Запись номера минимального значения
if minLines = 0 then
begin
var tmp := 'Минмального значения среди положительных не найдено.';
WriteLn(tmp);
WriteAllText(minName, tmp);
end
else
begin
WriteLnFormat('Минимальное значение среди положительных {0} в строке {1}.', minValue, minLines);
WriteAllText(minName, minLines.ToString);
end;
// Вывод на экран
WriteLn('Содержимое файла ', minName, ':', NewLine, ReadAllText(minName));
end. |
|
0
|
(
