Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
hell4eg
0 / 0 / 0
Регистрация: 25.01.2013
Сообщений: 1
#1

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки - Pascal

28.01.2013, 22:57. Просмотров 582. Ответов 1
Метки нет (Все метки)

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки на 4 в противном случае найти его средний балл
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2013, 22:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки (Pascal):

Определить количество дней, в которых оценки меньше средней оценки по классу
в массиве записаны оценки по информатике 22 учеников класса. Определить...

Напечатать фамилии студентов и название предметов, по которым они получили неудовлетворительные оценки
Добрый вечер всем! у меня было задание ... вот: Составить программу, которая...

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

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

Расположить оценки студента в заданном порядке
Имеется n итоговых оценок студента. Расположите эти оценки в следующем порядке:...

Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок двойки
3. Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
29.01.2013, 09:40 #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
Var A:array[1..100] of integer;
    i,n:byte;
    sr:real;
    f:boolean;
Begin
    Randomize;
    write('Кол-во оценок студента: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(4)+2;
      write(A[i]:2);
    End;
    f:=true;
    For i:=1 to n do
     if A[i]<4 then f:=false;
    writeln;
    if f then 
    Begin
      For i:=1 to n do
       sr:=sr+A[i];
      writeln('Средний балл = ',sr/n:0:2);
    End
    else
    For i:=1 to n do
    Begin
      if A[i]<4 then A[i]:=4;
      write(A[i]:2);
    End;
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2013, 09:40
Привет! Вот еще темы с решениями:

Для каждой оценки программа должна вычислить процент от общего количества оценок.
Написать программу, которая обрабатывает результаты единого экзамена (случай-...

Определите, является ли студент неуспевающим
имеется n итоговых оценок студента. Определите, является ли студент...

Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4)
Имеется n итоговых оценок студента. Определите, является ли студент...

Имеется n итоговых оценок студента. Определите, является ли студент отличником (все оценки не ниже 9)
Имеется n итоговых оценок студента. Определите, является ли студент отличником...


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

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

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