0 / 0 / 0
Регистрация: 05.06.2012
Сообщений: 16
1

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

15.06.2012, 08:11. Показов 945. Ответов 2
Метки нет (Все метки)

Создать файл, элементами которого являются сведения о городах: Название, число жителей, Удаленность от Москвы. Вывести название самого удаленного от Москвы города и среднее число жителей в городах.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 08:11
Ответы с готовыми решениями:

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

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

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

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

2
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,214
Записей в блоге: 1
15.06.2012, 08:29 2
Лучший ответ Сообщение было отмечено Deswood как решение

Решение

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
35
36
37
Type City=Record
     Name:string[15];
     Jitel:longint;
     Udal:integer;
     End;
Var f:file of City;
    st:City;
    i,n,max:integer;
    sr:real;
    s:string[15];
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.Udal);
      write(f,st);
     End;
    Reset(f);
    sr:=0;max:=0;s:='';
    While not Eof(f) do
     Begin
      read(f,st);
      if st.Udal>max then
       Begin
        max:=st.Udal;
        s:=st.Name;
       End;
      sr:=sr+st.Jitel;
     End;
    writeln('Самый отдалённый город от Москвы: ',s);
    write('Среднее кол-во жителей по городам: ',sr/n);
    readln;
End.
0
0 / 0 / 0
Регистрация: 05.06.2012
Сообщений: 16
20.06.2012, 09:10  [ТС] 3
А не могли бы вы оформит в виде бд ( 1 ввод. 2 просмотр. 3 добавление. 4поиск. 5 выход)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 09:10

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

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

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

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


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

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

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