0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
1

Известен вес каждого ученика из двух классов. Определить количество учеников в каждом классе, вес которых больше 50 кг

22.11.2013, 19:18. Показов 1827. Ответов 8
Метки нет (Все метки)

1.Известен вес каждого ученика из двух классов. Определить количество учеников в каждом классе, вес которых больше 50 кг.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2013, 19:18
Ответы с готовыми решениями:

Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом классе.Количество учащихся в каждом классе одинаковое!
Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом...

Известен рост каждого ученика двух классов. Определить средний рост учеников каждого класса. Численность обоих классов одинаковая
Известен рост каждого ученика двух классов. Определить средний рост учеников каждого класса....

для каждого ученика известны Ф.И.О Пол и вес.Ученику имеющему вес 50 кг.положено 0,5 л молока.Разобрать проект,позволяющий
для каждого ученика известны Ф.И.О Пол и вес.Ученику имеющему вес 50 кг.положено 0,5 л...

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

8
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,492
Записей в блоге: 1
23.11.2013, 09:36 2
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
Const nmax=100;
Var A,B:array[1..nmax] of byte;
    i,n,m,k1,k2:byte;
Begin
    write('Введите кол-во учеников в 1 классе: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(51)+25;
      write(A[i]:3);
      if A[i]>50 then inc(k1);
    End;
    writeln;
    write('Введите кол-во учеников во 2 классе: ');readln(m);
    For i:=1 to m do
    Begin
      B[i]:=random(51)+25;
      write(B[i]:3);
      if B[i]>50 then inc(k2);
    End;
    writeln;
    writeln('В 1 классе учеников,чей вес >50 = ',k1);
    writeln('Во 2 классе учеников,чей вес >50 = ',k2);
    readln;
End.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7481 / 4353 / 2771
Регистрация: 22.11.2013
Сообщений: 12,480
Записей в блоге: 1
23.11.2013, 10:05 3
А можно много проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, j, n, m: integer;
  c: array [1..2] of integer;
begin
  Randomize;
  for j := 1 to 2 do begin
    c[j] := 0;
    Write('Учеников в классе ', j, ': '); ReadLn(n);
    for i := 1 to n do begin
      m := Random(51) + 25;
      Write(m:3);
      if m > 50 then inc(c[j]);
    end;
    WriteLn;
  end;
  WriteLn('Учеников с весом >50 кг');
  for j := 1 to 2 do WriteLn(' - в классе ', j, ': ', c[j]);
end.
0
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
23.11.2013, 12:03  [ТС] 4
bormant, CodeR, а что значат []? у меня с ними не получается
0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,492
Записей в блоге: 1
23.11.2013, 14:44 5
Андру, эти скобки нужны для обращения к элементу с индексом i массива A (A[i])
0
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
23.11.2013, 15:39  [ТС] 6
CodeR, у меня не получается из-за этих скобок, не проходит программа, можно как-нибудь без скобок?
0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,492
Записей в блоге: 1
23.11.2013, 15:41 7
Цитата Сообщение от Андру Посмотреть сообщение
CodeR, у меня не получается из-за этих скобок, не проходит программа, можно как-нибудь без скобок?
Пришлите скриншот,а то я вас понять не могу
0
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
23.11.2013, 19:18  [ТС] 8
CodeR, все, получилось, спасибо
еще одна задачка: Составьте программу, выводящую таблицу значений функции y=1/(1+x)^5 в равноотстоящих точках отрезка [a, b]. Число значений в таблице равно n. В случае если точка не определена, выдать об этом сообщение.
буду рад и благодарен, если поможете
0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,492
Записей в блоге: 1
23.11.2013, 19:56 9
Цитата Сообщение от Андру Посмотреть сообщение
еще одна задачка
одна тема=один вопрос

Добавлено через 35 минут
Составьте программу, выводящую таблицу значений функции в равноотстоящих точках отрезка [a, b]. Шаг равен h (a, b, h вводятся с клавиатуры). В слу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2013, 19:56
Помогаю со студенческими работами здесь

Известен вес каждого человека из группы. Верно ли что вес самого тяжолого из них превышает массу самого легкого более чем в 2 раза
Известен вес каждого человека из группы.Верно ли что вес самого тяжолого из них превышает массу...

Известны оценки учеников двух классов. Определить среднюю оценку в каждом классе
4. Известны оценки по физике каждого ученика двух классов. Определить среднюю оценку в каждом...

Определить количество учеников, рост которых больше (меньше) роста ученика с номером N
Рост учеников класса хранится в массиве. Определить количество учеников, рост которых больше...

Для каждого статуса поставщика посчитать суммарный вес, средний вес и количество уникальных заказных товаров
Вот таблицы spool cre_demo.log CONNECT demo/demo@ORCL prompt prompt Creating table ПОСТАВЩИКИ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru