решите пожалуйста задачу(кому не трудно).

@GhOsT_DoG · Регистрация: 31.03.2009

Студворк — интернет-сервис помощи студентам

На Паскаль.
Задан массив записей о членах группы (в группе 25 человек), содержащий анкетные данные членов группы, пол (М и Ж). описать процедуру, определяющую кого больше: М или Ж.
Заранее благодарен.

@NasmAPIk · 31.03.2009, 18:36

Решение:

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
Program Zadacha;
uses crt;
const
 n = 25;
type
 anketa = record
  pol:char;
 end;
var
 i:integer;
 ank:array[1..n] of anketa;
 mg:char;
 
procedure opredelit(var pl:char);
var
 m,g:integer;
begin
m:=0;
g:=0;
for i:=1 to n do begin
  if (ank[i].pol='M') or (ank[i].pol='m') then inc(m);
  if (ank[i].pol='G') or (ank[i].pol='G') then inc(g);
end;
if m>g then pl :='m';
if m<g then pl:='g';
 
end;
begin
 clrscr;
 for i:=1 to n do begin write('Vvedite pol vladelca ',i,' anceti: '); readln(ank[i].pol); end;
 opredelit(mg);
 writeln(mg);
 if mg='m' then writeln('Bolshe mugskih anket') else
       writeln('Bolshe genskih anket');
 readkey;
end.

@GhOsT_DoG · 31.03.2009, 18:51 **[ТС]**

Сообщение от NasmAPIk

Решение:

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
Program Zadacha;
uses crt;
const
 n = 25;
type
 anketa = record
  pol:char;
 end;
var
 i:integer;
 ank:array[1..n] of anketa;
 mg:char;
 
procedure opredelit(var pl:char);
var
 m,g:integer;
begin
m:=0;
g:=0;
for i:=1 to n do begin
  if (ank[i].pol='M') or (ank[i].pol='m') then inc(m);
  if (ank[i].pol='G') or (ank[i].pol='G') then inc(g);
end;
if m>g then pl :='m';
if m<g then pl:='g';
 
end;
begin
 clrscr;
 for i:=1 to n do begin write('Vvedite pol vladelca ',i,' anceti: '); readln(ank[i].pol); end;
 opredelit(mg);
 writeln(mg);
 if mg='m' then writeln('Bolshe mugskih anket') else
       writeln('Bolshe genskih anket');
 readkey;
end.

Большое спасибо вам за ваш труд.

@jorjinho10 · 31.03.2009, 22:00

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

Я сделал первую часть, НО ВОТ СОРТИРОВКА НИКАК НЕ ПОЛУЧАЕТСЯ ((
program Vector;
Const
Nmax=1000;
Type
TVector=array[1..Nmax] of real;
Var
A:TVector;
N:integer;
i,j:integer;
Max,Min:real;
Begin
write('N=');readln(N);
if ((N>=1) and (N<=1000)) then
Begin
for i:=1 to N do
Begin
write ('A[',i,']=');readln(a[i]);
end;
Max:=A[1];
Min:=A[1];
for i:=2 to N do
Begin
if (A[i]>Max) then
Max:=A[i];
if (A[i]<Min) then
Min:=A[i];end;
writeln('Max=',Max:4:2);
writeln('Min=',Min:4:2);
end;readln;end.

Если попал не в ту тему то ЗАРАНЕЕ ИЗВИНЯЮСЬ!!!

@Солнышко · 31.03.2009, 23:54

ребят, помогите пожалуйста!!!! очень нужно!!!
1. Составить программу, которая печатает таблицу перевода из килограммов в фунты(1фунт=0,410 кг) для значений от 1 до 10 кг с шагом 1 кг
2.Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.
3.Даны 2 точки с координатами(x1,y1) (x2,y2).Определить, какая из них ближе к началу координат.
Буду очень очень благодарна!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!! !! )))))))))))))) Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@GhOsT_DoG 1 / 1 / 0 Регистрация: 31.03.2009 Сообщений: 11

	решите пожалуйста задачу(кому не трудно). 31.03.2009, 17:57. Показов 920. Ответов 4 Метки нет (Все метки) На Паскаль. Задан массив записей о членах группы (в группе 25 человек), содержащий анкетные данные членов группы, пол (М и Ж). описать процедуру, определяющую кого больше: М или Ж. Заранее благодарен. 0

@jorjinho10 1 / 1 / 0 Регистрация: 31.03.2009 Сообщений: 35
	31.03.2009, 22:00
	ребята, не знаете как решить такую задачку? В заданном векторе найти его минимальный и максимальный элементы.Выполните сортировку элементов вектора,стоящих между минимальным и максимальным по возростанию, если минимальный элемент стоит в векторе левее максимального, и по убыванию если максимальный левее минимального. Я сделал первую часть, НО ВОТ СОРТИРОВКА НИКАК НЕ ПОЛУЧАЕТСЯ (( program Vector; Const Nmax=1000; Type TVector=array[1..Nmax] of real; Var A:TVector; N:integer; i,j:integer; Max,Min:real; Begin write('N=');readln(N); if ((N>=1) and (N<=1000)) then Begin for i:=1 to N do Begin write ('A[',i,']=');readln(a[i]); end; Max:=A[1]; Min:=A[1]; for i:=2 to N do Begin if (A[i]>Max) then Max:=A[i]; if (A[i]<Min) then Min:=A[i];end; writeln('Max=',Max:4:2); writeln('Min=',Min:4:2); end;readln;end. Если попал не в ту тему то ЗАРАНЕЕ ИЗВИНЯЮСЬ!!! 0

@Солнышко 0 / 0 / 0 Регистрация: 31.03.2009 Сообщений: 16
	31.03.2009, 23:54
	ребят, помогите пожалуйста!!!! очень нужно!!! 1. Составить программу, которая печатает таблицу перевода из килограммов в фунты(1фунт=0,410 кг) для значений от 1 до 10 кг с шагом 1 кг 2.Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. 3.Даны 2 точки с координатами(x1,y1) (x2,y2).Определить, какая из них ближе к началу координат. Буду очень очень благодарна!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!! !! )))))))))))))) Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!! 0