Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
fyrieel
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 33
1

Выбрать студентов, имеющих хотя бы одну задолженность

14.12.2010, 06:54. Просмотров 991. Ответов 1
Метки нет (Все метки)

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


2)Составить программу, которую организуюют вот данных о спортйменах: ФИО спарцменов,команда ,место в команде ,зарплата и записывает их в масиве записи,а затем выводит фамилии копитанов команд .
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2010, 06:54
Ответы с готовыми решениями:

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

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

Выбрать студентов, имеющих хотя бы 1 задолженность. Напечатать их фамилии и количество не сданных экзаменов
Создать файл, содержащий фамилии студентов и их экзаменационные оценки по 3 предметам. Выбрать...

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

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

1
Quiet Snow
4480 / 1334 / 378
Регистрация: 25.04.2010
Сообщений: 3,491
14.12.2010, 18:32 2
Лучший ответ Сообщение было отмечено fyrieel как решение

Решение

1.
PureBasic
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
DEFINT A-Z
  '  То что запишем в файл
DATA "Petrov", 4, 3, 5
DATA "Sidorov", 3, 3, 2
DATA "Evseev", 4, 3, 4
DATA "Kotov", 2, 4, 2
DATA "Utkin", 5, 5, 5
DATA "Vasechkin", 2, 2, 2
  '  Студентов
CONST StudNum = 6
  '  Очистка экрана и запрос
CLS : PRINT "Rewrite file ?   [ Y ] - yes / [ N ] - no / [ Esc ] - Exit"
  '  Цикл опроса клавиатуры
 DO: kb$ = INKEY$
   '  Нажали "Y" - перезаписываем файл
   IF UCASE$(kb$) = "Y" THEN
   ON ERROR GOTO ErrEv: ' Сьавим обработчик ошибок
   KILL "Students.txt"  ' Удаляем старый файл если он был
   ON ERROR GOTO 0      ' Снимаем обработчик
   ' Создаем файл для записи
   OPEN "O", #1, "Students.txt"
    '  Цикл по студентам
   RESTORE
   FOR I = 1 TO StudNum
     READ Name$           ' Читаем из DATA
     PRINT #1, Name$      ' Пишем в файл
         '  Цикл по оценкам
        FOR k = 1 TO 3
         READ ocenk       ' Читаем из DATA
          IF k = 3 THEN
           PRINT #1, ocenk  ' Пишем в файл с пер. строки.
          ELSE
           PRINT #1, ocenk; ' Пишем в файл
          END IF
        NEXT
   NEXT
   ' Закроем файл
   CLOSE #1
   EXIT DO
   ELSEIF kb$ = CHR$(27) THEN END    '  Выход по ESC
   END IF
  LOOP UNTIL UCASE$(kb$) = "N"
 
   ' Откроем файл для чтения
   OPEN "I", #1, "Students.txt"
    '  Цикл по студентам
   FOR I = 1 TO StudNum
      INPUT #1, Name$       ' Читаем из файла
        Nezdano = 0
         '  Цикл по оценкам
        FOR k = 1 TO 3
            ' Читаем из файла
         INPUT #1, ocenk
         IF ocenk < 3 THEN Nezdano = Nezdano + 1
        NEXT
        IF Nezdano > 0 THEN
        PRINT Name$; " ne zdal"; Nezdano; " ekzamena"
        END IF
   NEXT
   ' Закроем файл
   CLOSE #1
END
ErrEv: RESUME NEXT
Файл STUDENTS.TXT
Код
Petrov
 4  3  5 
Sidorov
 3  3  2 
Evseev
 4  3  4 
Kotov
 2  4  2 
Utkin
 5  5  5 
Vasechkin
 2  2  2
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2010, 18:32

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

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

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

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


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

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

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