Нужна помощь с информатикой всего 2 задачки! Даю много баллов)Напишите программку
Нужна помощь с информатикой всего 2 задачки! Даю много баллов)
Напишите программку которая обретает малое и наибольшее посреди чётных положительных чисел записанных в файле и выводит результат в иной файл
В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания
1 ответ
Dzhaljabov Vadim
Задачка 1.
var
f:Text;
n,nmax,nmin:integer;
begin
Assign(f,'input.txt'); Reset(f);
nmax:=-32786; nmin:=32767; границы представления integer
while not Eof(f) do begin
Readln(f,n);
if (ngt;0) and (n mod 2=0) then
if nmaxlt;n then nmax:=n
else
if nmingt;n then nmin:=n
end;
Close(f);
Assign(f,'output.txt'); Rewrite(f);
Writeln(f,nmin,' ',nmax);
Close(f)
end.
Задача 2.
const
m=100; наибольшее количество чисел в файле
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
читаем данные из файла в массив
Assign(f,'input.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
сортируем массив по возрастанию методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] gt; a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
наполняем файл из массива
Assign(f,'output.txt'); Rewrite(f);
for i:=1 to n do Writeln(f,a[i]);
Close(f)
end.
Вложение: пример файла input.txt
var
f:Text;
n,nmax,nmin:integer;
begin
Assign(f,'input.txt'); Reset(f);
nmax:=-32786; nmin:=32767; границы представления integer
while not Eof(f) do begin
Readln(f,n);
if (ngt;0) and (n mod 2=0) then
if nmaxlt;n then nmax:=n
else
if nmingt;n then nmin:=n
end;
Close(f);
Assign(f,'output.txt'); Rewrite(f);
Writeln(f,nmin,' ',nmax);
Close(f)
end.
Задача 2.
const
m=100; наибольшее количество чисел в файле
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
читаем данные из файла в массив
Assign(f,'input.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
сортируем массив по возрастанию методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] gt; a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
наполняем файл из массива
Assign(f,'output.txt'); Rewrite(f);
for i:=1 to n do Writeln(f,a[i]);
Close(f)
end.
Вложение: пример файла input.txt
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов