// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadAllLines('foos.txt'); var i:=a.Select(l->l.Length).ToArray.IndexMax; a[i]:='*'*a[i].Length; WriteAllLines('foos1.txt',a); ReadAllText('foos1.txt').Println end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример Написать программу в паскале, определяющую самую
За что и возьмём: I = 2 бита, p - некая вероятность того, что ученик получил пятёрку. Тогда: 2 = log2(1/p) - решаем обычное логарифмическое уравнение log2(4) = log2(1/p) 4 = 1/p p = 1/4 Но ведь вероятность получения пятёрки рассчитывается как: кол-во пятёрок делённое на суммарное кол-во оценок. Какой из этого вывод? ! Известна вероятность, известно суммарное кол-во оценок - неизвестно кол-во оценок. Всё тривиально просто - нам уравнение с одной неизвестной: x / 100 = 1/4 Где, как ты уже поняла: x - кол-во пятёрок, 100 - суммарное кол-во оценок и 1/4 наша некая вероятность. Решаем уравнение: x = 100/4 = 25 Значит, ученик получил 25 пятёрок.
// PascalABC.NET 3.0, сборка 1111 begin var s:='I wake up at 7 o''clock. Today is 25 12 2015 - 6 days till New Year'; var n:integer; Writelines('result.txt', s.ToWords.where(x->TryStrToInt(x,n)).where(x->Odd(StrToInt(x))). OrderByDescending(x->x)) end.
Текстовый файл result.txt для данного примера находится во вложении. Сортировка выполнена, как сортировка строк, а не чисел, т.е. в лексикографическом порядке. Такое решение принято в связи с тем, что в задании говорится о выводе именно слов, а не числовых значений.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('foos.txt');
var i:=a.Select(l->l.Length).ToArray.IndexMax;
a[i]:='*'*a[i].Length;
WriteAllLines('foos1.txt',a);
ReadAllText('foos1.txt').Println
end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример
Написать программу в паскале, определяющую самую
символы этой строки на звёздочки.
Входной файл дан во вложении.