Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить количество продукта E, выпускаемого в среднем одним заводом отрасли, и его среднюю стоимость https://www.cyberforum.ru/ turbo-pascal/ thread715283.html
Продукт Завод Продукт А Продукт В Продукт С Продукт D Продукт Е Завод №1 275 10 543 6 434 14 897 7 765 12
В какой диапазон попадает число Turbo Pascal
помогите написать программу, господа программисты. Даны 3 диапазона (1..5), (7..11), (13..25) В какой диапазон попадает число N.
Составить массив из пятнадцати записей следующей структуры: Turbo Pascal
ПОМОГИТЕ КТО НИ БУДЬ!!!!!! • номер аудитории; • корпус (задать перечисляемый тип); • вместимость; • назначение (задать перечисляемый тип: лекционная, лаборатория, общая). Вывести информацию,...
Turbo Pascal Найти разность максимального и максимального элементов в массивах Написать программу и блок схему : Найти разность максимального и максимального элементов в массивах С(14) и Т(8). https://www.cyberforum.ru/ turbo-pascal/ thread715242.html
Turbo Pascal Двумерные массивы https://www.cyberforum.ru/ turbo-pascal/ thread715224.html
Ввести двумерный массив A. Каждый элемент, стоящий в массиве на позиции с четной суммой индексов заменить остатком от деления этого элемента на 7. Массив вывести до и после преобразования.
Ввести двумерный массив A[5x2]. Определить в нём сумму модулей отрицательных элементов Turbo Pascal
Ввести двумерный массив A.Определить в нём сумму модулей отрицательных элементов.
Найти все простые числа в промежутке от 1 до n. Turbo Pascal
Найти все простые числа в промежутке от 1 до n.
Turbo Pascal Генерация подмножеств заданной размерности Уважаемые,я хотел бы обратиться к вам с просьбой: помочь решить данную задачу по Pascal... На одном из занятий на дали код программы который выводит все какие только возможны... https://www.cyberforum.ru/ turbo-pascal/ thread715197.html
Turbo Pascal По заданному номеру месяца m вывести на печать название времени года. https://www.cyberforum.ru/ turbo-pascal/ thread715196.html
По заданному номеру месяца m вывести на печать название времени года.
Turbo Pascal Выяснить, принадлежит ли число, введенное с клавиатуры, интервалу Составить программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (1; 5). https://www.cyberforum.ru/ turbo-pascal/ thread715181.html
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.12.2012, 18:11 0

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

01.12.2012, 18:11. Просмотров 1254. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один...

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