Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/30: Рейтинг темы: голосов - 30, средняя оценка - 4.60
4 / 4 / 1
Регистрация: 11.02.2010
Сообщений: 74
1

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все остальные оценки — 5.

24.04.2010, 22:20. Просмотров 5645. Ответов 3
Метки нет (Все метки)


Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все остальные оценки — 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2010, 22:20
Ответы с готовыми решениями:

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Подскажите пожалуйста, где здесь ошибка??? program laba_12_zad_3; type student=record...

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 3, остальные 4 и 5.
Помогите с заданием.. Распечатать анкетные данные студентов, получивших за все время обучения...

Распечатать фамилии и даты рождения студентов, не получивших ни одной оценки 3 за все время обучения
Распечатать фамилии и даты рождения студентов, не получивших ни одной оценки 3 за все время...

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все остальные оценки - 5
Добрый вечер уважаемые, интересует такой вопрос по поводу Python а именно вот такое задание ...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
23 / 23 / 22
Регистрация: 04.04.2010
Сообщений: 36
24.04.2010, 22:56 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
25
26
27
28
29
30
31
32
33
program adiga;
uses crt;
type spisok=record
fio,ocenki:string;
end;
var
i,n,p:integer;
a:array[1..100] of spisok;
c,k,l:array[1..100] of integer;
begin
clrscr;
write('Введите количество студентов: '); read(n);
for i:=1 to n do
begin
write('Введите Ф.И.О ',i,' студента: '); read(a[i].fio);
write('Введите его оценки: '); read(a[i].ocenki);
end;
for i:=1 to n do
begin
c[i]:=length(a[i].ocenki);
end;
for i:=1 to n do
for p:=1 to c[i] do
if a[i].ocenki[p]='4' then
inc(k[i]);
for i:=1 to n do
for p:=1 to c[i] do
if a[i].ocenki[p]='5' then
inc(l[i]);
for i:=1 to n do
if (k[i]=1) and (l[i]+k[i]=c[i]) then
writeln(a[i].fio);
end.
1
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 8
17.05.2011, 21:05 3
А какое решение задачи этой задачи? Распечатать анкетные данные студентов, получивших за все время обучения две "4" и три "5"?
0
3064 / 724 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
18.05.2011, 04:50 4
JIyKa, Лучше напишите что-нибудь сами, потому что решение ZevsDT далеко до хотя бы "хорошего".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2011, 04:50

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

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Составить список учебной группы, включающей 25 человек. Для каждого учащегося указать дату...

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

Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2
Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2. си Исходные...

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


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

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

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