Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
5 / 5 / 4
Регистрация: 07.11.2012
Сообщений: 77
1

Сформировать два файла. В один из них поместить

01.12.2012, 16:46. Просмотров 1176. Ответов 1
Метки нет (Все метки)

Сформировать два файла. В один из них поместить фамилии пяти ваших знакомых, а в другой — номера их телефонов. Составить программу, которая по фамилии вашего знакомого определяет номер его телефона. не знаю принципа решения.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2012, 16:46
Ответы с готовыми решениями:

Сформировать два файла: в один поместить положительные значения исходного файла, в другой - отрицательные
Нужна помощь в отредактировании программы Из файла, содержащего как положительные, так и...

Даны два текстовых файла. Один из них надо вставить в другой, чередуя абзацы
Даны два текстовых файла. Один из них надо вставить в другой чередуя абзацы

Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один записать всех
Тема: Файлы Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два...

Даны два одномерных массива целых чисел. Сформировать из них два новых по правилу
Помогите пожалуйста с задачей:help: :) Даны два одномерных массива целых чисел (массив А,...

1
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.12.2012, 18:11 2
Лучший ответ Сообщение было отмечено sanek77736 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var f,t: text;
    s,sf,st: string;
    k: integer;
    
begin
assign(f,'D:\familii.txt');                           //ассоциируем файлы с переменными
assign(t,'D:\telefony.txt');
write('Укажите фамилию: '); readln(s);               //запрашиваем строку-фамилию
reset(f); reset(t);                                  //открываем файлы для чтения
while not (eof(f)) do                                //пока не кончится файл
      begin
      readln(f,sf);                                  //считываем из файла фамилий строку
      readln(t,st);                                  //считываем из файла телефонов строку
      if sf=s then                                   //если фамилия равна заданной
         begin
         inc(k);                                      //увеличиваем количество найденных
         writeln(st);                                //выводим телефон
         end;
      end;
if k>0 then writeln('По запросу "',s,'" всего найдено ',k)
   else writeln('По запросу "',s,'" ничего не найдено ');
close(f); close(t);
end.
1
Вложения
Тип файла: txt telefony.txt (44 байт, 28 просмотров)
Тип файла: txt familii.txt (33 байт, 27 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2012, 18:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как на один PictureBox поместить два снимка?
Всем доброго времени суток! На форме пикчуребокс. Как поместить на него два или более снимков,...

Переставляя строки и столбцы матрицы, поместить наибольший элемент (один из них) в левый верхний угол
Пожалуйста помогите!! очень срочна нужна помощь, cоставьте программу, упорядочивающую по уменьшению...

Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал
Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один...

Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал
Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.