Сб, 17.11.2018, 16:56
Форум інформатиків України
Головна Реєстрація Вхід
Вітаю Вас, Гість · RSS
Вітання на форумі
Незнайомець
Вітаємо на форумі,
Незнайомцю!

 
зареєструйтесь
Перед реєстрацією обов’язково прочитайте:
Оновлення Учасники Пошук
Особисті повідомлення
Видавництво ’’Аспект’’ Видавництво

  • Сторінка 3 з 3
  • «
  • 1
  • 2
  • 3
Модератор форуму: Ktara, Bandalak, НІКОЛЯ, volevikt  
Форум інформатиків » РОЗДІЛ ІІІ: МЕТОДИКА, ЗАСОБИ ВИКЛАДАННЯ ІНФОРМАТИКИ » 3.6 Методика викладання інформатики згідно програми » Розв’язування задач з розділу "Рядкові величини" (Тільки конкретика.)
Розв’язування задач з розділу "Рядкові величини"
Ковальчук_Олександр Дата: Нд, 29.11.2009, 21:09 | Повідомлення № 1
Ветеран спілкування
Повідомлень: 3684
Нагороди: 18
Рейтинг: 209
В даній темі пропоную розв’язувати задачі з розділу "Рядкові величини".
Будемо писати цікаві умови задач і хто знає, пише розв’язок.
Обов’язкове правило теми: розв’язок повинен містити текст програми на мові програмування Паскаль або іншій. Допускаються коментарі щодо розв’язку, блок-схеми, НАМ. Важливо писати програми максимум оптимально. Не можна публікувати умови наступної задачі до тих пір, поки не буде розв’язана задана автором повідомлення задача.
Прохання виконувати дане правило, інакше це прирівнюватиметься до порушень правил форуму.
Не скупіться ділитись досвідом, роблячи тим самим внесок в розвиток форуму!

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

swetikccc Дата: Пн, 10.11.2014, 19:39 | Повідомлення № 31
Ветеран спілкування
Повідомлень: 4125
Нагороди: 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, 20:35
volevikt Дата: Пн, 10.11.2014, 21:32 | Повідомлення № 32
Перспективна вчителька
Повідомлень: 1896
Нагороди: 25
Рейтинг: 261
Дякую, п. Святославе, спробую розібратися...
Може хтось зможе написати програму на С?
Форум інформатиків » РОЗДІЛ ІІІ: МЕТОДИКА, ЗАСОБИ ВИКЛАДАННЯ ІНФОРМАТИКИ » 3.6 Методика викладання інформатики згідно програми » Розв’язування задач з розділу "Рядкові величини" (Тільки конкретика.)
  • Сторінка 3 з 3
  • «
  • 1
  • 2
  • 3
Пошук:


© Форум інформатиків України, 2007-2018.