Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2015, 17:21   #1
sasharom97
 
Регистрация: 24.11.2015
Сообщений: 9
По умолчанию составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства

Определена запись:
Код:
Record
	name:array [1..m] of char; {название государства}
	sqr : real; {площадь территории}
	peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов}
	end;
Используя предложенную структуру записи, составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства, удовлетворяющего требованиям, указанным в варианте и соответствующие характеристики.
Россия, Молдова, Армения. Получить список государств в порядке возрастания плотности населения.

Последний раз редактировалось Stilet; 06.12.2015 в 17:29.
sasharom97 вне форума Ответить с цитированием
Старый 06.12.2015, 17:29   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Твои попытки имеются? Их можно увидеть?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.12.2015, 20:19   #3
sasharom97
 
Регистрация: 24.11.2015
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Твои попытки имеются? Их можно увидеть?
вот так?

Код:
program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop:word;
         sch:word;
         hosp:word;
         inst:word;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
    G[1].name:='Молдова'; G[2].name:='Армения '; G[3].name:='Россия';
    G[1].peop:=20;G[2].peop:=40;G[3].peop:=140;
    G[1].S:=20;G[2].S:=60;G[3].S:=500;
    G[1].sch:=200;G[2].sch:=100;G[3].sch:=5000;
    G[1].hosp:=100;G[2].hosp:=60;G[3].hosp:=3000;
    G[1].inst:=20;G[2].inst:=20;G[3].inst:=2000;

    for i:=1 to 2 do begin
    for j:=1 to 2 do
    if G[j].Peop/G[j].S<G[j+1].Peop/G[j+1].S
    then begin
    x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
    end;end;
    for i:=1 to 3 do
    Writeln(G[i].name);
    readln;
    end.

Последний раз редактировалось Stilet; 06.12.2015 в 21:04.
sasharom97 вне форума Ответить с цитированием
Старый 06.12.2015, 21:11   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Так. Только давай малость подмарафетим:
Код:
program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop, sch,hosp,inst:integer;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
  for i:=1 to m do begin 
    write('название государства'); readln(G[i].name);
    write('площадь территории'); readln(G[i].S);
    write('численность населения'); readln(G[i].peop);
    write('число школ'); readln(G[i].sch);
    write('больниц'); readln(G[i].hosp);
    write('вузов'); readln(G[i].inst);
 end;

    for i:=1 to m do     for j:=1 to m do
       if (G[j].Peop/G[j].S) < (G[j+1].Peop/G[j+1].S)    then begin
           x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
      end;

    for i:=1 to 3 do With G[i] do
      Writeln(name:30,S:10:2,Peop:10,sch;10,hosp:10,inst:10);
    readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.12.2015, 22:42   #5
sasharom97
 
Регистрация: 24.11.2015
Сообщений: 9
По умолчанию

Спасибо большое).
sasharom97 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу для Паскаль 9 класс: составить программу которая печатает таблицу умножения и сложения натуральных чисел goodula Помощь студентам 0 23.01.2014 17:39
VBA Составить программу, которая печатает true Stinray Помощь студентам 0 23.05.2013 18:43
Составить программу, которая печатает true, если точка с координатами (х,у) принадлежит заштрихованной области, и false в противно package_herbs Паскаль, Turbo Pascal, PascalABC.NET 10 31.03.2013 22:52
17 Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричн OTLi4HO Общие вопросы C/C++ 1 16.01.2009 13:59
программа, которая запрашивает дату рождения и печатает название соответствующего знака Зодиака Алёночка2008 Помощь студентам 4 14.11.2008 10:49