Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 12.10.2016
Сообщений: 8
1

Описать запись с именем Country, содержащую следующие поля

10.11.2016, 15:59. Просмотров 2309. Ответов 1
Метки нет (Все метки)


1.Описать запись с именем Country, содержащую следующие поля:
• Название страны;
• количество населения;
• занимаемая площадь;
2.Написать программу, выполняющую следующие действия:
• Ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Country; записи должны быть размещены в алфавитном порядке названий стран;
• Вывод на экран информации о стране, название которой введено с клавиатуры; если таких нет, вывести на экран соответствующее сообщение.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2016, 15:59
Ответы с готовыми решениями:

Описать структуру с именем MARSH, содержащую следующие поля
Описать структуру с именем MARSH, содержащую следующие поля: - название начального пункта...

Описать структуру с именем PERSON, содержащую поля
Описать структуру с именем PERSON, содержащую поля: Name – фамилия и инициалы, FAC – факультет,...

Описать запись с именем STUDENT, содержащую следующие поля: фамилия, имя, отчество, номер группы, успеваемость
Описать запись с именем STUDENT, содержащую следующие поля: фамилия, имя, отчество, номер группы,...

Описать запись с именем TRAIN, содержащую следующие поля:название пункта назначения; номер поезда;время отправления
привет мальчики, помогите решить задачки пожалуйста, сегодня скинули, оказывается без них я не...

1
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
15.11.2016, 06:05 2
Лучший ответ Сообщение было отмечено Renerjed как решение

Решение

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
const n=8;
type country=record
      name:string[30];
      population:longint;
      square:real;
     end;
var
  a:array[1..n] of country;
  s,r:string;
  i,j:integer;
  f:file of country;
begin
  assign(f,'country.dat');
  if not FileExists('country.dat') or (Uppercase(ReadlnChar('Файл country.dat уже существует! перезаписать (Y/N)?'))='Y') then begin
    Rewrite(f);
    writeln('Введите данные по странам:');
    for i:=1 to n do begin
      writeln('Запись #',i);
      a[i].name:=ReadlnString('Название страны:');
      a[i].population:=ReadlnInteger('Население:');
      a[i].square:=ReadlnReal('Занимаемая площадь:');
      write(f,a[i]);
    end;
  end  
  else begin 
    reset(f);
    for i:=1 to 8 do read(f,a[i]);
  end;
  close(f);
    for i:=1 to n-1 do
      for j:=i+1 to n do if a[i].name>a[j].name then Swap(a[i],a[j]);
  writeln('отсортированный список:');
  writeln(format('{0,-40}{1,20}(чел){2,20}(км^2)','Название страны','Население','Занимаемая площадь'));
  for i:=1 to n do writeln(format('{0,-40}{1,20:N}{2,20:F}',a[i].name,a[i].population,a[i].square));
  s:=ReadlnString('Введите название страны:');
  r:='';
  for i:=1 to n do 
    if UpperCase(s)=UpperCase(a[i].name) then r:=r+format('{0,-40}{1,20:N}{2,20:F}',a[i].name,a[i].population,a[i].square)+NewLine;
  if r='' then writeln('Страна "',s,'" не найдена') else writeln(r);
end.
0
Вложения
Тип файла: zip country.zip (306 байт, 2 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2016, 06:05

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

Описать структуру именем ZNAK, содержащую поля: Name, ZOD, DATE
Помогите если вам не сложно Описать структуру именем ZNAK, содержащую поля: Name-фамилия и имя,...

Программа, создающая таблицу имен из раздела констант, содержащую следующие поля: имя, значение, тип, число обращений
программа создающая таблицу имен из раздела констант, содержащую следующие поля: имя, значение,...

Опишите запись с именем типа Data, содержащую информацию о средней температуре в хранилище за 30 дней
13. Опишите запись с именем типа Data, содержащую информацию о сред- ней температуре в хранилище...

Описать запись с именем TRAIN
Пожалуйста, помогите)) Описать запись с именем TRAIN, содержащую следующие поля: название пункта...


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

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

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