Розв’язування задач з розділу "Рядкові величини"

Дата: Нд, 29.11.2009, 22:09 | Повідомлення № 1

Ветеран спілкування

Повідомлень: 3663

Нагороди: 18

Рейтинг: 204

В даній темі пропоную розв’язувати задачі з розділу "Рядкові величини".
Будемо писати цікаві умови задач і хто знає, пише розв’язок.
Обов’язкове правило теми: розв’язок повинен містити текст програми на мові програмування Паскаль або іншій. Допускаються коментарі щодо розв’язку, блок-схеми, НАМ. Важливо писати програми максимум оптимально. Не можна публікувати умови наступної задачі до тих пір, поки не буде розв’язана задана автором повідомлення задача.
Прохання виконувати дане правило, інакше це прирівнюватиметься до порушень правил форуму.
Не скупіться ділитись досвідом, роблячи тим самим внесок в розвиток форуму!

Шановні форумчани! Повідомлення, які не відповідають темі або несуть некорисний зміст будуть видалятися без попередження!!!

swetikccc

Дата: Пн, 10.11.2014, 20:39 | Повідомлення № 31

Ветеран спілкування

Повідомлень: 4112

Нагороди: 31

Рейтинг: 387

Анаологічно в масив і другий рядок і видаляете з першого
Створите тільки файл з двома рядками

Var
str1ar: array [1..250] Of string;
str1,str2,spr: string;
len,i,k: integer;
fin,fqut: text;

Begin
assign(fin,'in.txt');
reset(fin);
readln(fin,str1);
readln(fin,str2);
len := length(str1);
spr := '';
k := 0;
For i:=1 To len Do
If (((str1[i] = ' ') or (i= len)) And (spr <>'')) Then
Begin
k := k+1;
if (str1[i]<> ' ') then spr:=spr+str1[i];
str1ar[k] := spr;
spr := '';
End
Else If (str1[i]<>' ') Then spr := spr+str1[i];
writeln(str1);
writeln(str2);
close(fin);
For i:=1 To k Do
begin
writeln(str1ar[i]);
while pos (str1ar[i],str2)<>0 do
delete (str2,pos(str1ar[i],str2),length(str1ar[i])+1)
end;
writeln(str2);
End.

Відредаговано: swetikccc - Пн, 10.11.2014, 21:35

volevikt

Дата: Пн, 10.11.2014, 22:32 | Повідомлення № 32

Перспективна вчителька

Повідомлень: 1880

Нагороди: 25

Рейтинг: 240

Дякую, п. Святославе, спробую розібратися...
Може хтось зможе написати програму на С?