Необходимо решения задач по Delphi...(желая бы одной)1,Описати статичний масив.Масив зчитуться з
Нужно решения задач по Delphi...(желая бы одной)
1,Описати статичний масив.
Масив зчитуться з текстового файлу.
Визначити:
Мнмальне значення масиву, його ндекси
Задана матриця (nm). Визначити номер рядка, середньоарифметичне елементв яко менше за середньоарифметичне попереднього рядка
2.Текстовий файл F1 ма мстити не менше 10 рядкв.
Скопювати з файлу F1 в файл F2 вс рядки, як не мстять слова, яке починаться за задану лтеру. Визначте найкоротше слово у файл F2.
1 ответ
Иштираков
Валера
Завдання 2
var i,j,k,shlth:integer;
letter:char;
name,minword,s1,x,x1:string;
f1,f2:text;
f:boolean;
arr:array [1..100] of string;
label 1;
begin
writeln('Введть мя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введть мя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введть буковку для пошуку:');
readln(letter);
letter:=lowercase(letter);
j:=1;
while not eof(f1) do
begin
readln(f1,x1);
x:=lowercase(x1);
i:=1;
while (ilt;=length(x)) and (x[i] lt;gt; letter) do
begin
while (ilt;=length(x)) and (x[i] = ' ') do inc(i);
if (ilt;=length(x)) and (x[i] lt;gt; letter) then
while (ilt;=length(x)) and (x[i] lt;gt; ' ') do inc(i);
end;
if igt;length(x) then
begin
writeln(f2,x1);
arr[j]:=x1;
inc(j);
end;
end;
f:=false;
for k:=1 to j do
begin
i:=1;
while (ilt;=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
if ilt;length(arr[k])+1 then begin f:=true; goto 1; end;
end;
1: if not f then writeln('У файл f2 нема слова, вдповдного умов вибору') else
begin
while (arr[k][i]lt;gt;' ') and (ilt;=length(arr[k])) do
begin
minword:=minword+arr[k][i];
inc(i);
end;
for k:=1 to j do
begin
i:=1;
while ilt;=length(arr[k]) do
begin
while (ilt;=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
if ilt;=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
while (ilt;=length(arr[k])) and (arr[k][i] lt;gt; ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end;
if shlthlt;length(minword) then minword:=s1;
end;
end;
writeln('Найкоротша слово у файл f2: ',minword);
end;
close(f1); close(f2);
end.
var i,j,k,shlth:integer;
letter:char;
name,minword,s1,x,x1:string;
f1,f2:text;
f:boolean;
arr:array [1..100] of string;
label 1;
begin
writeln('Введть мя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введть мя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введть буковку для пошуку:');
readln(letter);
letter:=lowercase(letter);
j:=1;
while not eof(f1) do
begin
readln(f1,x1);
x:=lowercase(x1);
i:=1;
while (ilt;=length(x)) and (x[i] lt;gt; letter) do
begin
while (ilt;=length(x)) and (x[i] = ' ') do inc(i);
if (ilt;=length(x)) and (x[i] lt;gt; letter) then
while (ilt;=length(x)) and (x[i] lt;gt; ' ') do inc(i);
end;
if igt;length(x) then
begin
writeln(f2,x1);
arr[j]:=x1;
inc(j);
end;
end;
f:=false;
for k:=1 to j do
begin
i:=1;
while (ilt;=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
if ilt;length(arr[k])+1 then begin f:=true; goto 1; end;
end;
1: if not f then writeln('У файл f2 нема слова, вдповдного умов вибору') else
begin
while (arr[k][i]lt;gt;' ') and (ilt;=length(arr[k])) do
begin
minword:=minword+arr[k][i];
inc(i);
end;
for k:=1 to j do
begin
i:=1;
while ilt;=length(arr[k]) do
begin
while (ilt;=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
if ilt;=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
while (ilt;=length(arr[k])) and (arr[k][i] lt;gt; ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end;
if shlthlt;length(minword) then minword:=s1;
end;
end;
writeln('Найкоротша слово у файл f2: ',minword);
end;
close(f1); close(f2);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов