Доброжелательный пушистик
73 / 42 / 28
Регистрация: 07.06.2012
Сообщений: 252
1

Создать файл, элементами которого являются сведения о городах: название, численность населения, территория

19.06.2012, 22:18. Показов 617. Ответов 6
Метки нет (Все метки)

ваще не знаю как это делать((хелп((с файлами беда..

Создать файл,элементами которого являются сведения о городах:название,численность населения,территория.Вывести на экран численность населения для заданного названия.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2012, 22:18
Ответы с готовыми решениями:

Создать файл, элементами которого являются сведения о городах
Создать файл, элементами которого являются сведения о городах: Название, число жителей, Удаленность...

Создать файл, элементами которого являются сведения о городах
8.7 Создать файл, элементами которого являются сведения о городах: название, число жителей,...

Создание и обработка файлов. Создать файл, элементами которого являются сведения о ягодах: название, месяц цветения и месяц сбора
Помогите пожалуйста Создать файл, элементами которого являются сведения о ягодах: название, месяц...

Создать файл, элементами которого являются сведения о деревьях
Создать файл, элементами которого являются сведения о деревьях: наименование, место...

6
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,214
Записей в блоге: 1
20.06.2012, 10:10 2
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
25
26
27
28
29
30
31
32
33
34
Type City=Record
     Name:string[15];
     Jitel:longint;
     Terr:integer;
     End;
Var f:file of City;
    st:City;
    i,n:integer;
    s:string[15];
    b:boolean;
Begin
    write('Введите кол-во городов для ввода: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do 
     Begin
      writeln('Введите информацию о ',i,'-ом городе');
      write('Название города: ');readln(st.Name);
      write('Число жителей: ');readln(st.Jitel);
      write('Территория: ');readln(st.Terr);
      write(f,st);
     End;
    Reset(f);
    write('Введите название города: ');readln(s);
    b:=true;
    While (not Eof(f))and(b) do
     Begin
      read(f,st);
      if st.Name=s then b:=false;
     End;
    if not b then writeln('Численость населения города ',s,' = ',st.Jitel)
     else writeln('Такого города нету');
    Close(f);
    readln;
End.
0
Доброжелательный пушистик
73 / 42 / 28
Регистрация: 07.06.2012
Сообщений: 252
20.06.2012, 10:57  [ТС] 3
Это в виде базы?а то мне в виде базы надо..:-(
0
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,214
Записей в блоге: 1
20.06.2012, 10:59 4
Ну вся введенная информация сохраняется в файле потом в этом файле ищется город введённый и если нашли выводим кол-во населения
1
Доброжелательный пушистик
73 / 42 / 28
Регистрация: 07.06.2012
Сообщений: 252
20.06.2012, 11:09  [ТС] 5
Ладно,посмотрю..если что допишу меню,спасибо!

Добавлено через 7 минут
Так и знал)норм программа..но надо в виде базы( меню вначале а там выбираешь что делать.через CASE короче
0
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,214
Записей в блоге: 1
20.06.2012, 11:11 6
Так сразу надо это указывать!А теперь попробуйте сами сделать меню, это не так трудно, в процедуры засунете ввод,вывод,добавление потом вызывать будете...
0
Доброжелательный пушистик
73 / 42 / 28
Регистрация: 07.06.2012
Сообщений: 252
20.06.2012, 11:15  [ТС] 7
Да я сделаю,спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 11:15

Исправить задачу (написать прогу, которая запрашивает численность населения Земли и численность населения США)
Задача: написать прогу, которая запрашивает численность населения Земли и численность населения...

Создать файл F, элементами которого являются целочисленные массивы
Создать файл F, элементами которого являются целочисленные массивы a1a2…a5. Для каждого массива...

Создать на диске типизированный файл, элементами которого являются целые числа
Создать на диске D типизированный файл d:Petia элементами которого являются целые числа, вводимые с...

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


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

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

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