 |
Вітаю Вас, Гість · RSS |
 |
Розв’язування задач з розділу "Рядкові величини"
| |
kom_adm |
Дата: Нд, 29.11.2009, 21:09 | Повідомлення № 1 |
Ветеран спілкування
Повідомлень: 3767
| В даній темі пропоную розв’язувати задачі з розділу "Рядкові величини". Будемо писати цікаві умови задач і хто знає, пише розв’язок. Обов’язкове правило теми: розв’язок повинен містити текст програми на мові програмування Паскаль або іншій. Допускаються коментарі щодо розв’язку, блок-схеми, НАМ. Важливо писати програми максимум оптимально. Не можна публікувати умови наступної задачі до тих пір, поки не буде розв’язана задана автором повідомлення задача. Прохання виконувати дане правило, інакше це прирівнюватиметься до порушень правил форуму. Не скупіться ділитись досвідом, роблячи тим самим внесок в розвиток форуму! Шановні форумчани! Повідомлення, які не відповідають темі або несуть некорисний зміст будуть видалятися без попередження!!!
|
|
| |
swetikccc |
Дата: Пн, 10.11.2014, 19:39 | Повідомлення № 31 |
Ветеран спілкування
Повідомлень: 4208
| Анаологічно в масив і другий рядок і видаляете з першого Створите тільки файл з двома рядками
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, 20:35 |
|
| |
volevikt |
Дата: Пн, 10.11.2014, 21:32 | Повідомлення № 32 |
Перспективна вчителька
Повідомлень: 1912
| Дякую, п. Святославе, спробую розібратися... Може хтось зможе написати програму на С?
|
|
| |
© Форум інформатиків України, 2007-2023.  |