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

Вывести учеников, которые не получили ни одной тройки за последнюю четверть

25.12.2012, 21:02. Просмотров 908. Ответов 1
Метки нет (Все метки)

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
Uses crt;
Type
book=Record
fam: String;
oc1: Byte;
oc2: Byte;
oc3: Byte;
klass: String;
end;
Var
x: Array [1..20] of book;
i,n: Byte;
BEGIN
Clrscr;
Writeln('Кол-во учеников не более 20 : '); Readln(n);
For i:=1 to n do
begin
  Write('Введите фамилию ученика: '); Readln(x[i].fam);
  Write('Введите 1 оценку: '); Readln(x[i].oc1);
  Write('Введите 2 оценку: '); Readln(x[i].oc2);
  Write('Введите 3 оценку: '); Readln(x[i].oc3);
  Write('В каком классе он учится? '); Readln(x[i].klass);
end;
Writeln;
Writeln('Ученики, которые не получили ни одной тройки за последнюю четверть:');
For i:=1 to n do
If (x[i].oc1<>3) and (x[i].oc2<>3) and (x[i].oc3<>3) Then
Writeln(x[i].fam,'>>>',x[i].klass);
Readln
END.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 21:02
Ответы с готовыми решениями:

Распечатать фамилии учеников, которые не получили ни одной 3-ки за последнюю четверть
Распечатать фамилии тех учеников, которые не получили ни одной 3-ки за последнюю четверть. В каких...

Распечатать фамилию тех учеников которые не получили ни одной тройки за последнюю четверть
Решите пожалуйста программу на паскале:распечатать фамилию тех учеников которые не получили ни...

Записи.Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть
Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В...

Записи: Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть
2. Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В...

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

1
Charles Kludge
Клюг
7647 / 3162 / 383
Регистрация: 03.05.2011
Сообщений: 8,381
05.01.2013, 14:46 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

C
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
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
typedef unsigned char byte;
struct book {
char fam[50];
byte oc1;
byte oc2;
byte oc3;
char klass[10];
} book;
struct book *x;
byte i,n;
void main(int argc, const char* argv[])
{
//clrscr;
printf("%s","Кол-во учеников не более 20 : "); scanf("%ui",&n);
x = malloc(sizeof(book)*n);
memset(x,0,sizeof(book)*n);
for( i = 0; i < n; i++)
{
printf("%s","Введите фамилию ученика: "); scanf("%s",x[i].fam);
printf("%s","Введите 1 оценку: "); scanf("%ui",&x[i].oc1);
printf("%s","Введите 2 оценку: "); scanf("%ui",&x[i].oc2);
printf("%s","Введите 3 оценку: "); scanf("%ui",&x[i].oc3);
printf("%s","В каком классе он учится? "); scanf("%s",x[i].klass);
}
puts("Ученики, которые не получили ни одной тройки за последнюю четверть:");
for( i = 0; i < n; i++) {
if ((x[i].oc1!=3) && (x[i].oc2!=3) && (x[i].oc3!=3)) 
printf("%s >>> %s\n\r", x[i].fam, x[i].klass);
};
getch();
free(x);
};
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2013, 14:46

Распечатать (вывести на экран) фамилии тех учеников, которые не получили ни одной тройки
Разработать программу: - записи подготовленных данных хранятся во внешнем файле с именем...

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

Распечатать фамилии тех учеников, которые не получили ни одной тройки. С++
Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В...


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

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

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