Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
Dimank
0 / 0 / 0
Регистрация: 01.04.2010
Сообщений: 10
1

Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см

29.04.2010, 19:22. Просмотров 2678. Ответов 2
Метки нет (Все метки)

В таблице хранятся следующие данные об учениках: фамилия, имя , отчество, рост, масса. Вычислит средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см.
Вывести результат в файл!
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 19:22
Ответы с готовыми решениями:

Записи. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см
В таблице хранятся следующие данные об учениках: фамилия, имя , отчество, рост, масса. Вычислит...

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

Записи. Определить сколько учеников могут заниматься в баскетбольной секции (рост > 170)
Определить сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен...

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

2
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
29.04.2010, 19:50 2
Лучший ответ Сообщение было отмечено Dimank как решение

Решение

Dimank, подобная программа уже писалась, забейте в поиске.
А для работы с файлом необходимо добавить:

Pascal
1
2
3
4
5
6
var a: file of {имя записи}
begin
assign(a,'file.bin');
for i:=1 to n do
write(a,{элемент массива записи});
end.
0
Snoopy
1914 / 1064 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
29.04.2010, 19:51 3
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const n=4;
type rec=record
      fname,lname,tname:string;
      rost,ves:integer;
     end;
var x:array[1..n] of rec;
    i,k,min,max:integer;
    sr:real;
    f:text;
begin
ClrScr;
for i:=1 to n do
 begin
  Write(' Fname: ');
  Readln(x[i].fname);
  Write(' Lname: ');
  Readln(x[i].lname);
  Write(' Tname: ');
  Readln(x[i].tname);
  Write(' Rost: ');
  Readln(x[i].rost);
  Write(' Ves: ');
  Readln(x[i].ves);
 end;
Writeln;
sr:=0;
k:=0;
for i:=1 to n do
 begin
  if x[i].rost>=170 then
   inc(k);
  sr:=sr+x[i].rost;
 end;
sr:=sr/n;
Writeln('--------------------------------------------------');
Writeln('||  Lname  |  Fname  |  Tname  |  Rost  |  Ves  ||');
Writeln('--------------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].fname:9,'|',x[i].lname:9,'|',x[i].tname:9,'|',x[i].rost:8,
          '|',x[i].ves:7,'||');
Writeln('--------------------------------------------------');
Assign(f,'f.txt');
Rewrite(f);
Writeln(f,'Sr rost: ',sr:0:1);
Writeln(f,'Kol: ',k);
max:=x[1].rost;
min:=x[1].rost;
for i:=2 to n do
 begin
  if x[i].rost>max then
   max:=x[i].rost;
  if x[i].rost<min then
   min:=x[i].rost;
 end;
Writeln(f,'Visoky: ',max);
Writeln(f,'Mlenkiy: ',min);
close(f);
Writeln('Press Enter: ');
Readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 19:51

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

Сколько студентов могут заниматься в баскетбольной секции
В таблице хранятся следующие данные о студентах: фамилия, имя, отчество, рост, масса. Вычислить...

Известен рост 30 учеников школы, сколько из них имеет рост больше 170 см
Известен рост 30 учеников школы. Сколько из них имеет рост больше 170см? Можно ли сформировать...

Сколько из учеников имеет рост больше 170 см
Известен рост 30 учеников школы. сколько из них имеет рост больше 170см? может ли сформироватса...

Определить число студентов, которые могут заниматься в баскетбольной секции
Организовать ввод, хранение в массиве, вывод на экран данных о сту¬дентах: фамилия, имя, отчество,...


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

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

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