ЭтоТочноЯ
1

Создать файл, содержащий сведения о сдаче студентами сессии

24.04.2013, 14:55. Показов 1664. Ответов 1
Метки нет (Все метки)

Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам, признак участия в общественной работе: «1» — активное участие, «О» — неучастие. 10 записей
Написать программу зачислениястипендии. Студент, получивший все оценки «5» и активно участвующий в общественной работе, зачисляется на повышенную стипендию (доплата 50 %), не активно участвует — доплата 25 %. Студенты, получившие «4» и «5», зачисляются на обычную стипендию. Студент, получивший одну оценку «3», но активно занимающийся общественной работой, также зачисляется на стипендию, в противном случае зачисление не производится. Индекс группы вводится с клавиатуры

Добавлено через 2 часа 20 минут
Люди, ну хоть ссылку киньте, где почитать как пишутся такие программки. За образец решения хотя бы похожей задачи- отдельное сердечное спасибо. Вижу этот текст в разных ветках, на всех языках есть текст программы, а не бейске нет- перечитала весь форум. Помогите ссылками, кто чем может
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2013, 14:55
Ответы с готовыми решениями:

Создать файл, содержащий сведения о сдаче студентами сессии
Помогите ПОЖАЛУЙСТА кратко описать в данной программе: используемые алгоритмы, организацию структур...

Создать файл, содержащий сведения о сдаче студентами сессии
1) Создать файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы,...

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

Создать типизированный файл, содержащий сведения о сдаче студентами сессии
Создать типизированный файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит...

1
4947 / 1621 / 407
Регистрация: 25.04.2010
Сообщений: 4,464
Записей в блоге: 1
25.04.2013, 01:40 2
Лучший ответ Сообщение было отмечено как решение

Решение

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

QBasic/QuickBASIC
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
DECLARE FUNCTION Opros% (Tip%)
DECLARE SUB Podshet (Ocenk%, Sbros%)
  '  Тип данных
TYPE Student
    GroupIndex AS STRING * 8
    Family AS STRING * 15
    Ex1 AS INTEGER
    Ex2 AS INTEGER
    Ex3 AS INTEGER
    Ex4 AS INTEGER
    Ex5 AS INTEGER
    Rabota AS INTEGER
END TYPE
  '  Переменные
DIM St(1 TO 10) AS Student                '  Массив студентов
DIM ExamName$(1 TO 5), R AS STRING        '  Имена экзаменов
DIM StipType AS INTEGER, StipName$(3)     '  Тип стипендии и описание
DIM SHARED NizheTroiki%, Troek%, Pyaterk% '  Кол-во оценок
  '  Почистим экран получим разделитель
CLS : R = STRING$(80, 196)
  '  Определим предметы
  ExamName$(1) = "Mat. analiz"
  ExamName$(2) = "Linaynaya Algebra"
  ExamName$(3) = "Filosofia"
  ExamName$(4) = "Fizich. kultura"
  ExamName$(5) = "Teorya veroyatnostei"
  '  И описание стипендий
  StipName$(0) = "Net stipendii"
  StipName$(1) = "Obychnaya stipendya"
  StipName$(2) = StipName$(1) + " + Doplata 25%"
  StipName$(3) = StipName$(1) + " + Doplata 50%"
 
  '  Ввод кол-ва студентов
INPUT "Kol-vo studentov: ", n
 
  '  Ввод данных с клавиатуры
FOR i = 1 TO n
PRINT R
   PRINT i; "."
   INPUT "Index gruppi     : ", St(i).GroupIndex
   INPUT "Familya studenta : ", St(i).Family
   LOCATE , , 1
     PRINT "Ocenka za "; ExamName$(1), "    [ 1 - 5 ]...";
     St(i).Ex1 = Opros(1)
     PRINT "Ocenka za "; ExamName$(2), "    [ 1 - 5 ]...";
     St(i).Ex2 = Opros(1)
     PRINT "Ocenka za "; ExamName$(3), "    [ 1 - 5 ]...";
     St(i).Ex3 = Opros(1)
     PRINT "Ocenka za "; ExamName$(4), "    [ 1 - 5 ]...";
     St(i).Ex4 = Opros(1)
     PRINT "Ocenka za "; ExamName$(5), "    [ 1 - 5 ]...";
     St(i).Ex5 = Opros(1)
     PRINT "Uchastie v obshestvennoj rabote  [ 1 ] - Da   [ 0 ] - Net...";
     St(i).Rabota = Opros(2)
   LOCATE , , 0
NEXT
  '  Вычислим и напечатаем результаты
PRINT R; "Rezultaty ..."; CHR$(10); R
 
FOR i = 1 TO n
   ' Посчитаем кол-во троек, пятёрок и оценок ниже тройки
   Podshet St(i).Ex1, 1
   Podshet St(i).Ex2, 0
   Podshet St(i).Ex3, 0
   Podshet St(i).Ex4, 0
   Podshet St(i).Ex5, 0
 
   ' Проверим какую стипендию получать студенту
   IF Pyaterk% = 5 THEN
     IF St(i).Rabota = 1 THEN StipType = 3 ELSE StipType = 2
   ELSEIF NizheTroiki% = 0 AND Troek% = 0 THEN
     StipType = 1
   ELSEIF NizheTroiki% = 0 AND Troek% = 1 THEN
     IF St(i).Rabota = 1 THEN StipType = 1 ELSE StipType = 0
   ELSE : StipType = 0
   END IF
   PRINT St(i).Family, StipName$(StipType)
NEXT
 
FUNCTION Opros% (Tip%)
DIM Zn%
 DO: Kb$ = INKEY$
    IF Kb$ <> "" THEN
      Cod% = ASC(RIGHT$(Kb$, 1))
      SELECT CASE Tip%
        CASE 1: IF Cod% > 48 AND Cod% < 54 THEN Zn% = Cod% - 48: EXIT DO
        CASE 2: IF Cod% > 47 AND Cod% < 50 THEN Zn% = Cod% - 48: EXIT DO
      END SELECT
    END IF
 LOOP UNTIL Kb$ = CHR$(27)
 PRINT Zn%
 Opros% = Zn%
END FUNCTION
 
SUB Podshet (Ocenk%, Sbros%)
 IF Sbros% THEN NizheTroiki% = 0: Troek% = 0: Pyaterk% = 0
 IF Ocenk% < 3 THEN NizheTroiki% = NizheTroiki% + 1
 IF Ocenk% = 3 THEN Troek% = Troek% + 1
 IF Ocenk% = 5 THEN Pyaterk% = Pyaterk% + 1
END SUB
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2013, 01:40
Помогаю со студенческими работами здесь

Создать файл содержащий сведения о сдаче студентами первого курса сессии
Создать файл содержащий сведения о сдаче студентами первого курса сессии. структура записи индекс...

Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии
Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи -...

Создать файл, содержащий сведения о сдаче студентами группы "ПО-21" сессии. Написать программу зачисления студентов груп
А. Создать файл, содержащий сведения о сдаче студентами группы &quot;ПО-21&quot; сессии. Структура записи:...

Создать файл, содержащий сведения о сдаче студентами сесси
А можеш эту задачку посмотрет ьоже с файлами?:. Создать файл, содержащий сведения о сдаче...


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

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

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