задача на файлы.паскаль - Форум
Пятница, 09.12.2016, 16:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задача на файлы.паскаль
задача на файлы.паскаль
RoxyДата: Понедельник, 22.02.2010, 19:54 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
даны два текстовых файла.записать в третий только те строки,которые есть и в первом и во втором файлах.нужно до пятницы.
 
ignorerДата: Понедельник, 22.02.2010, 23:09 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Code
var t1, t2, t : text;
     s1, s2 : array [1..100]of string;
     i1, i2, n1, n2 : integer;
begin
  cls;
  assign(t1, 'in1.txt');
  assign(t2, 'in2.txt');
  reset(t1);
  reset(t2);
   repeat
    inc(i1);
    read(t1, s1[i1]);
   until eoln(t1);
   repeat
    inc(i2);
    read(t2, s2[i2]);
   until eoln(t2);
  close(t1);
  close(t2);
  n1:=i1; n2:=i2;
  assign(t, 'out.txt');
  rewrite(t);
   for i1:=1 to n1 do
    for i2:=1 to n2 do
     if s1[i1]=s2[i2] then writeln(t, s1[i1]);
end.

ток ты протестируй, ибо я не проверял.
 
RoxyДата: Вторник, 23.02.2010, 13:45 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
не работает(((
 
ignorerДата: Вторник, 23.02.2010, 14:31 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
блин, заработался просто, поэтому такую хрень не заметил. вот должно быть правильное решение. входные файлы - in1.txt И in2.txt, выходной out.txt
Code
var t1, t2, t : text;
      s1, s2 : array [1..100]of string;
      i1, i2, n1, n2 : integer;
begin
  cls;
  assign(t1, 'in1.txt');
  assign(t2, 'in2.txt');
  reset(t1);
  reset(t2);
   repeat
    inc(i1);
    readln(t1, s1[i1]);
   until eof(t1);
   repeat
    inc(i2);
    readln(t2, s2[i2]);
   until eof(t2);
  close(t1);
  close(t2);
  n1:=i1; n2:=i2;
  assign(t, 'out.txt');
  rewrite(t);
   for i1:=1 to n1 do
    for i2:=1 to n2 do
     if s1[i1]=s2[i2] then writeln(t, s1[i1]);
  close(t);
end.
 
salbertДата: Понедельник, 08.03.2010, 15:36 | Сообщение # 5
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
решу задачи за 20 рублей(salbert09@mail.ru)
 
BaniДата: Среда, 10.03.2010, 16:34 | Сообщение # 6
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
помогите пожалуйста решить вот такую задачку:
Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля:
1. Фамилия, имя, отчество.
2. Год рождения.
3. Год окончания школы.
4. Оценки в аттестате.
5. Признак - нуждается ли в общежитии.
6. Оценки вступительных экзаменов.
Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.
I. Удалить из внешнего файла все записи, удовлетворяющие условию, Абитуриентам, имеющим отличный аттестат и получившим все оценки 5, и распечатать информацию, оставшуюся в файле.
II. Добавить 2 записи в начало внешнего файла и распечатать записи полученного файла Список абитуриентов, сдавших вступительные экзамены на оценки 4 и 5.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задача на файлы.паскаль
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016