Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 06.11.2016
Сообщений: 114

Распечатайте список фамилий студентов, получающих стипендию

26.02.2017, 15:39. Показов 1921. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пусть в файле фамилий family находятся фамилии студентов(одна запись-одна фамилия),в файле оценок note-в том же порядке оценки студентов(одна запись-массив оценок одного студента). Записи упорядочены по номеру студента. Распечатайте список фамилий студентов, получающих стипендию, то есть сдавших сессию на "хорошо" и "отлично".
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.02.2017, 15:39
Ответы с готовыми решениями:

Вывести список фамилий студентов-отличников
Дан список из 10 студентов, для каждого указаны отметки, полученные ими по трем экзаменам. Вывести список фамилий студентов-отличников....

Вывести список фамилий студентов-отличников
Дан список из 10 студентов, для каждого указаны отметки, полученные ими по трем экзаменам. Вывести список фамилий студентов-отличников.

Выдать список студентов получающих стипендию
выдать список студентов получающих стипендию.всего 4 экзамена. вводим:ФИО, номер группы, курс. есть ли оценки "3" uses...

2
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.02.2017, 16:25
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
var f,g:text;
    n,s:string;
    a,k,p:integer;
begin
assign(f,'family.txt');
reset(f);
assign(g,'note.txt');
reset(g);
writeln('Получают стипендию');
k:=0;
while not eof(f) do
 begin
  readln(f,n);
  p:=0;
  while not eoln(g)and(p=0) do
   begin
    read(g,a);
    if not(a in [4,5])then p:=1;
   end;
  if p=0 then
   begin
    k:=1;
    writeln(n);
   end;
  readln(g,s);
 end;
close(f);
close(g);
if k=0 then write('Таких студентов нет');
end.
0
0 / 0 / 0
Регистрация: 06.11.2016
Сообщений: 114
26.02.2017, 17:19  [ТС]
спасибо больше
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.02.2017, 17:19
Помогаю со студенческими работами здесь

Выдать пронумирований список студентов с указанием фамилий и задолжностей
Нужно срочно написать программу помогите плиз Студенты сдали сессию 5 экзаменов Ввод данных с клавы Фамилия, группа. Выдать...

Вывести фамилии, имена и отчества и средние баллы студентов, не получающих стипендии
1) Вывести фамилии,имена и отчества и средние баллы студентов, не получающих степендию

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

Распечатайте анкетные данные студентов упорядоченный по убыванию года рождения
Распечатайте анкетные данные студентов упорядоченный по убыванию года рождения.

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru