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

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

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

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

swetikccc Дата: Пн, 10.11.2014, 20:39 | Повідомлення № 31
Ветеран спілкування
Повідомлень: 3898
Нагороди: 25
Рейтинг: 350
Анаологічно в масив і другий рядок і видаляете з першого
Створите тільки файл з двома рядками

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
Перспективна вчителька
Повідомлень: 1798
Нагороди: 24
Рейтинг: 193
Дякую, п. Святославе, спробую розібратися...
Може хтось зможе написати програму на С?
Форум інформатиків » РОЗДІЛ ІІІ: МЕТОДИКА, ЗАСОБИ ВИКЛАДАННЯ ІНФОРМАТИКИ » 3.6 Методика викладання інформатики згідно програми » Розв’язування задач з розділу "Рядкові величини" (Тільки конкретика.)
Сторінка 3 з 3«123
Пошук:


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