0 / 0 / 0
Регистрация: 18.11.2010
Сообщений: 9
1

Написал программу ,но надо дописать чтобы программа вычисляла проценты

19.11.2010, 13:50. Показов 1080. Ответов 1
Метки нет (Все метки)

Даны результаты сдачи экзамена по информатике группы из 15 сту-дентов. Подсчитать количество студентов, не сдавших экзамен, в численном и в процентном соотношении.

Вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program tabul9ci9;
label 1;
type INF=array[1..15] of integer;
var
stud:INF;
i,p:integer;
begin
p:=0;
for i:=1 to 15 do
begin
1: writeln('vvedite ocenky ',i,'-go studenta');
readln(stud[i]);
if (stud[i]<1) or (stud[i]>5
if stud[i]<3 tаen p:=p+1;
end;
writeln(' ne zdali ekzamen ',p:2,' studentov');
end.
Кто знает напишите пожалуйста строчку чтобы программа выводила результаты сдачи экзамена еще и в процентном соотношении.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2010, 13:50
Ответы с готовыми решениями:

Надо дописать программу, чтобы картинка двигалась
Вот есть заготовка её надо просто дописать изменять в ней ничего нельзя! Помогите...

Подскажите мне пожалуйста я не понял как полностью сделать программу, чтобы вычисляла значение функции?
Т.е. помимо этого я не понял как сделать так, чтобы ещё надо было вводить x,y и вывод ответа....

Написал программу на С++, надо переделать на С (пару строк!)
Здравствуйте, пользователи форума! Я начал изучать программирование с языка С++, минуя С. Мне нужно...

надо дописать программу
Вот есть заготовка её надо просто дописать изменять в ней ничего нельзя! Помогите...

1
Почетный модератор
64073 / 47484 / 32734
Регистрация: 18.05.2008
Сообщений: 115,185
19.11.2010, 15:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program tabul9ci9;
const N=15;
var stud:array[1..n] of integer;
    i,k:integer;
    p:real;
begin
k:=0;
for i:=1 to 15 do
 begin
  repeat
  write('vvedite ocenky (1..5) ',i,'-go studenta ');
  readln(stud[i]);
  until stud[i] in [1..5];
  if stud[i]<3 then k:=k+1;
 end;
p:=100*k/n;
writeln(' ne zdali ekzamen ',k,' studentov, eto ',p:0:2,'%');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2010, 15:31

Что надо дописать в этой программе, чтобы получить правильный ответ?
У Васи сегодня день рождения, и он пригласил много друзей. Для них Вася выставил в ряд n бутылок с...

Написал программу по лабе на gpss. Можете сказать, она работает как надо? (Имитационное моделирование)
GENERATE(Exponential(1,0,0.25)) QUEUE main TRANSFER 0.05,tran_1,to_exit tran_1 TRANSFER...

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

Какую строчку кода надо дописать, чтобы вывелось хоть что нибудь в консоль?
Добрый день, уважаемые форумчане! Помогите вывести результат программы в консоль. // Дописать...


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

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

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