KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

В общем, е****й информатик препадающий ворд, от нас требудет е***ь паскать.
Но мы даже в нем не разу не работали
Кто может помочь? в массиве 100 тел (М:Ж) 30 за мужем и надо найти средний возраст женшин, я тут нашел пару кодов
Спойлер:


Program ;
var V,V1,m19:array[1..100] of integer;

i,j,nmax,nmin,max,min,summa,i19:integer;

sr:real;
begin

for i:= 100

begin


writeln('vvedite vozrast ',i,'-oi sotrudnici');


readln(V);

end;

min:=V;

nmin:=1;

for i:=1 to 100 do


if V

begin



min:=V;



nmin:=i;


end;

max:=V;

nmax:=1;

for i:=1 to 100 do


if V>max then


begin



max:=V;



nmax:=i;


end;

writeln('Самая молодая сотрудница ',min);

writeln('Самая старая сотрудница ',max);

summa:=0;

for i:=1 to 100 do


summa:=summa+V;

sr:=summa/100;

writeln('средний возраст сотрудниц равен ',sr:5:2);

j:=1;

for i:=1 to 100 do

begin


if(V>19)then


begin




V1[j]:=V;




inc(j);


end;

end;
end.



Спойлер: "Cod #2"


const
n = 100;

var
a, b: array [1..n] of integer;
summ, count, i: integer;
avg: real;
{count - количество женшин

summ - общий возраст женшин

avg - средний возраст женшин}
p: char;
{p - пол}

begin
randomize;

writeln('Генерируем сотрудников');
for i := 1 to n do
begin

a := random(1976, 1997);

b := random(0, 1); {0 - М, 1 - Ж}
end;

writeln('Выводим сотрудников');
for i := 1 to n do
begin

if b = 0 then

p := 'Ж'

else

p := 'М';



writeln(i:4, ') Год рождения: ', a, ', Возраст: ', 2015 - a, ', Пол: ', p);
end;
writeln;

writeln('Определяем средний возраст женшин');
summ := 0;
count := 0;
for i := 1 to n do
begin

if b = 0 then

begin

count := count + 1;

summ := summ + 2015 - a;

end;
end;

if count = 0 then

writeln('В компании нету женшин')
else
begin

avg := summ / count;

writeln('Средний возраст = ', avg:4:2);
end;

end.

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

иф тело = женщина зен
бегин

тело-женщин=тело-женщин+1;

сумма-возрастов-женщин=сумма-возрастов-тел-женщин + возраст-текущего-тела-женщины;
енд;
сумма-возрастов-женщин/тело-женщин

FriON

Пользователь

Регистрация: 03.12.2013

Сообщения: 5721

Рейтинг: 6659

FriON

Регистрация: 03.12.2013

Сообщения: 5721

Рейтинг: 6659

Как сделать свою тему популярной:
1)Добавьте в неё число "6.86"

Space Rooster

Пользователь

Регистрация: 29.10.2015

Сообщения: 292

Рейтинг: 539

Space Rooster

Регистрация: 29.10.2015

Сообщения: 292

Рейтинг: 539

KeliChan сказал(а):
Но мы даже в нем не разу не работали
Нажмите, чтобы раскрыть...

А что там сложного-то? Я его в школе учил от делать нечего и сдавал экзамен, хотя тоже "мы даже в нем не разу не работали" и нам его никто не преподавал.

scmajestic

Пользователь

Регистрация: 06.03.2013

Сообщения: 1105

Рейтинг: 156

scmajestic

Регистрация: 06.03.2013

Сообщения: 1105

Рейтинг: 156

ответ 6.86 :d2ghush:

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

Pink_Gamecock сказал(а):
А что там сложного-то? Я его в школе учил от делать нечего и сдавал экзамен, хотя тоже "мы даже в нем не разу не работали" и нам его никто не преподавал.
Нажмите, чтобы раскрыть...

Сложно правильно записать, в теории я посчитал(выше отписал) но как это все правильно уместить в коде, а сдавать завтра

unspect

Пользователь

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

unspect

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

KeliChan сказал(а):
надо найти средний возраст женшин
Нажмите, чтобы раскрыть...

Найти средний возраст = 100 строк кода. Как?

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

unspect сказал(а):
Найти средний возраст = 100 строк кода. Как?
Нажмите, чтобы раскрыть...

И я не знаю, как это записать
Но дано массив А из 100 элементов содержащий года рождения
Массив Б 100 членов (М/Ж)

unspect

Пользователь

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

unspect

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

KeliChan сказал(а):
И я не знаю, как это записать
Но дано массив А из 100 элементов содержащий года рождения
Массив Б 100 членов (М/Ж)
Нажмите, чтобы раскрыть...

Во втором коде уже всё написано, включая генерацию данных.

valeratime

Пользователь

Регистрация: 28.07.2013

Сообщения: 225

Рейтинг: 18

valeratime

Регистрация: 28.07.2013

Сообщения: 225

Рейтинг: 18

Молодец нашел,мы все поддерживаем тебя,консилиум программистов дота2ру желает тебя всего наилучшего

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

unspect сказал(а):
Во втором коде уже всё написано, включая генерацию данных.
Нажмите, чтобы раскрыть...


Что это? разве не ошибка?

unspect

Пользователь

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

unspect

Регистрация: 11.08.2015

Сообщения: 1576

Рейтинг: 940

KeliChan сказал(а):

Что это? разве не ошибка?
Нажмите, чтобы раскрыть...

Нет это форматирование вывода. 4 цифры, 2 после запятой. Типа "Средний возраст = 35.18"

_che_

Пользователь

Регистрация: 09.07.2014

Сообщения: 952

Рейтинг: 348

_che_

Регистрация: 09.07.2014

Сообщения: 952

Рейтинг: 348

Скажи своему преподу: "ТНН. Задача бессмысленна"

some_nickname

Пользователь

Регистрация: 07.05.2013

Сообщения: 97

Рейтинг: 126

some_nickname

Регистрация: 07.05.2013

Сообщения: 97

Рейтинг: 126

преподавать паскаль в 2015...

BenjaminBot

Пользователь

Регистрация: 13.10.2015

Сообщения: 328

Рейтинг: 159

BenjaminBot

Регистрация: 13.10.2015

Сообщения: 328

Рейтинг: 159

Чот не могу вникнуть в формат входных данных. Судя по неспособности излагать мысли и находить среднее арифметическое, у ТСа задержки в развитии.

alab12345

Пользователь

Регистрация: 08.07.2013

Сообщения: 317

Рейтинг: 254

alab12345

Регистрация: 08.07.2013

Сообщения: 317

Рейтинг: 254

Чет впервые увидел паскаль за 4 года и чуть не блеванул, а до этого писал на нем 7 лет.

Midnight

Пользователь

Регистрация: 07.05.2014

Сообщения: 2565

Рейтинг: 5452

Midnight

Регистрация: 07.05.2014

Сообщения: 2565

Рейтинг: 5452

FriON сказал(а):
Как сделать свою тему популярной:
1)Добавьте в неё число "6.86"
Нажмите, чтобы раскрыть...

А этот чел батя маркетинга.

Мутрин

Пользователь

Регистрация: 06.10.2014

Сообщения: 4

Рейтинг: 1

Мутрин

Регистрация: 06.10.2014

Сообщения: 4

Рейтинг: 1

ну собсна проходишь по первому массиву, где написан пол, и если там Ж то к сумме возрастов прибавляешь возраст(i такое же как и в 1ом массиве) а к кол-ву женщин 1 и потом делишь сумму на кол-во женщин.

Take your best shot!

Пользователь

Регистрация: 21.12.2014

Сообщения: 5814

Рейтинг: 1540

Take your best shot!

Регистрация: 21.12.2014

Сообщения: 5814

Рейтинг: 1540

program example1;
uses crt;
var
a,b:array [1..100] of integer; //1 массив отвечает за возрат, 2 - за пол
c,i:integer;// с -общий возраст, i-номер элемента в массиве
z:real; //средний возраст
begin
c:=0;
z:=0;
for i:=1 to 100 do begin

a:= random (18,100); // возраст женщин

b:= random (0,1); // 0-женщины, 1-мужчины
end;
for i:=1 to 100 do
if (b=0)then c:=c+a;// нахождение возраста всех женщин
z:=c/100;
write ('средний возраст ', z);
end.

как-то так у меня вышло, но я дцп, так что не судите строго.

valeratime

Пользователь

Регистрация: 28.07.2013

Сообщения: 225

Рейтинг: 18

valeratime

Регистрация: 28.07.2013

Сообщения: 225

Рейтинг: 18

alab12345 сказал(а):
Чет впервые увидел паскаль за 4 года и чуть не блеванул, а до этого писал на нем 7 лет.
Нажмите, чтобы раскрыть...

Эйфель не видел?

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

const n=100; m=2;
var ppl: array [1..n, 1..m] of integer;
i,j: integer;
ov, kv: real;

begin
kv :=0;
ov :=0;
for i:=1 to n do
begin
for j:=1 to m do
ppl[i,j]:=random(0, 1);
ppl[i,j]:=random(18, 60);
end;

for i:=1 to n do
begin
for j:=1 to m do
if ppl[i,1]=1 then
begin
kv:=kv+1;
ov:=ov + ppl[i,2];
end
end;
writeln('Средний возраст:',ov/kv)
end.

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

У меня так получилось, хз правильно или нет

SewAwOw

Пользователь

Регистрация: 18.07.2014

Сообщения: 895

Рейтинг: 198

SewAwOw

Регистрация: 18.07.2014

Сообщения: 895

Рейтинг: 198

паскаль сложный язык?

Take your best shot!

Пользователь

Регистрация: 21.12.2014

Сообщения: 5814

Рейтинг: 1540

Take your best shot!

Регистрация: 21.12.2014

Сообщения: 5814

Рейтинг: 1540

SewAwOw сказал(а):
паскаль сложный язык?
Нажмите, чтобы раскрыть...

Нет.

KeliChan

Пользователь

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

KeliChan

Регистрация: 08.09.2014

Сообщения: 408

Рейтинг: 55

SewAwOw сказал(а):
паскаль сложный язык?
Нажмите, чтобы раскрыть...

Для тех кто узнает что сдавать надо уже завтра, да сложный