Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 0
Регистрация: 08.06.2011
Сообщений: 53
1

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

09.06.2011, 21:46. Показов 1400. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
10.06.2011, 00:55 2
Лучший ответ Сообщение было отмечено Алекс33 как решение

Решение

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
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
type
   sved = record
      nazv: string[10];
      chislo,udal: longint;
      end;
var
   a: array[1..100] of sved;
   i,n,x: byte;
   sr,max: longint;
   filename: string[10];
   f: text;
begin
   clrscr;
   write('введите имя файла: ');
   readln(filename);
   write('введите количество городов: ');
   readln(n);
   assign(f,filename);
   rewrite(f);
   for i:=1 to n do
   with a[i] do
      begin
         write('название: ');
         readln(nazv);
         writeln(f,'название: ',nazv);
         write('число жителей: ');
         readln(chislo);
         inc(sr,chislo);
         writeln(f,'число жителей: ',chislo);
         write('удаленность от Москвы: ');
         readln(udal);
         writeln(f,'удаленность от Москвы: ',udal);
      end;
   close(f);
   sr:= sr div n;
   writeln('среднее число жителей в городах: ',sr);
   max:=a[1].udal;
   x:=1;
   for i:=2 to n do
   with a[i] do
      if udal>max then
         begin
            max:=udal;
            x:=i;
         end;
   writeln('самый отдаленный от Москвы город: ',a[x].nazv);
   readkey
end.
1
Путешественник вселенной
189 / 156 / 119
Регистрация: 01.03.2011
Сообщений: 664
10.06.2011, 02:35 3
Мой вариант или практика практика и ещё раз практика .
Вложения
Тип файла: rar Файл с заданием.rar (679 байт, 19 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2011, 02:35

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

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

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

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


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

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

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