Вывести всю информацию о студентах сдавших все экзамены на 4 и 5

@kate55 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

Помогите.Срочно надо.
известны следующие данные о стедентах:фамилия ,имя,отчество,номер группы и три оценки(по матанализу,по алгебре,по программированию).вывести всю информацию о студентах сдавших все экзамены на 4 и 5 а также качество успеваемости(процент таких студентов.

Добавлено через 6 минут
я не знаю как выдать, чтобы не было студентов с тройками и двойками.

@SuPeR XaKer · 03.02.2011, 21:45

я не знаю как выдать, чтобы не было студентов с тройками и двойками.

Так покажи как заполняешь как выводишь.

@Puporev · 04.02.2011, 10:24

Pascal

uses crt;
const max=30;
type TStud=record
           fm,im,ot:string[15];
           gr:integer;
           mt,alg,prg:2..5;
           end;
var sp:array[1..max] of Tstud;
    n,i,j,k,p:integer;
    pr:real;
begin
textbackground(0);
textcolor(15);
clrscr;
repeat
write('Количество студентов до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with sp[i] do
   begin
    write(' Фамилия: ');readln(fm);
    write(' Имя: ');readln(im);
    write(' Отчество: ');readln(ot);
    write(' Номер группы: ');readln(gr);
    writeln(' Оценка (2..5) по :');
    repeat
    write(' матанализ: ');readln(mt);
    until mt in [2..5];
    repeat
    write(' алгебра: ');readln(alg);
    until alg in [2..5];
    repeat
    write(' программирование: ');readln(prg);
    until prg in [2..5];
   end;
 end;
clrscr;
writeln('Список группы:':45);
writeln('-----------------------------------------------------------------------');
writeln('|    Фамилия   |  Имя   |   Отчество  |Группа|Мат.ан.|Алгебра|Програм.|');
writeln('-----------------------------------------------------------------------');
for i:=1 to n do
with sp[i] do
 begin
   gotoXY(1,whereY); write('| ',fm);
   gotoXY(16,whereY);write('| ',im);
   gotoXY(25,whereY);write('| ',ot);
   gotoXY(39,whereY);write('|',gr:6);
   gotoXY(46,whereY);write('|',mt:4);
   gotoXY(54,whereY);write('|',alg:5);
   gotoXY(62,whereY);write('|',prg:5);
   gotoXY(71,whereY);writeln('|');
  end;
writeln('-----------------------------------------------------------------------');
write('Press Enter...');
readln;
clrscr;
writeln('Сдали все экзамены на 4 и 5:':50);
k:=0;
writeln('-----------------------------------------------------------------------');
writeln('|    Фамилия   |  Имя   |   Отчество  |Группа|Мат.ан.|Алгебра|Програм.|');
writeln('-----------------------------------------------------------------------');
for i:=1 to n do
with sp[i] do
if(mt in [4,5])and(alg in [4,5])and(prg in [4,5])then
 begin
  k:=k+1;
  gotoXY(1,whereY); write('| ',fm);
  gotoXY(16,whereY);write('| ',im);
  gotoXY(25,whereY);write('| ',ot);
  gotoXY(39,whereY);write('|',gr:6);
  gotoXY(46,whereY);write('|',mt:4);
  gotoXY(54,whereY);write('|',alg:5);
  gotoXY(62,whereY);write('|',prg:5);
  gotoXY(71,whereY);writeln('|');
 end;
writeln('-----------------------------------------------------------------------');
if k=0 then writeln('Таких студентов нет.')
else writeln('Качество успеваемости=',k*100/n:0:1,'%');
write('Press Enter...');
readln
end.

@kate55 · 07.02.2011, 18:41 **[ТС]**

Pascal

program z_1;
uses crt;
const n1=30;
type Tip_zap=record
           fam,im,ot:string[15];
           gr:integer;
           mt,alg,prg:2..5;
           end;
var sp:array[1..n1] of Tip_zap;
    n,i,j,k,p:integer;
    pr:real;
begin
clrscr;
repeat
write('введите Количество студентов ');
readln(n);
until (n>=1) and (n<=n1);
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with sp[i] do
   begin
    write(' Фамилия: ');
    readln(fam);
       write(' Имя: ');
       readln(im);
           write(' Отчество: ');
           readln(ot);
              write(' Номер группы: ');
              readln(gr);
       writeln(' Оценка (2..5) по :');
    repeat
    write(' матанализ: ');
    readln(mt);
    until (mt>=2) and (mt<=5);
    repeat
    write(' алгебра: ');
    readln(alg);
    until (alg>=2) and (alg<=5);
    repeat
    write(' программирование: ');
    readln(prg);
    until (prg>=2) and (prg<=5);
   end;
  end;
writeln('Сдали все экзамены на 4 и 5:':50);
k:=0;
writeln('fam':10,'im':10,'otch':10,'gr':4,'mat':4,'alg':4,'prg':4);
for i:=1 to n do  begin
    if ((sp[i].mt=4) or (sp[i].mt=5)) and ((sp[i].alg=4)or (sp[i].alg=5)) and ((sp[i].prg=4)or (sp[i].prg=5)) then
 begin
  k:=k+1;
  writeln(sp[k].fam:10,sp[k].im:10,sp[k].ot:10,sp[k].gr:4,sp[k].mt:4,sp[k].alg:4,sp[k].prg:4);
 end;
 end;
if k=0 then writeln('Таких студентов нет.')
else writeln('Качество успеваемости=',(k*100/n):0:1,'%');
readln
end.

Что не праильно?

@Puporev · 07.02.2011, 18:53

Сообщение от kate55

Что не праильно?

Так Вам виднее, дали нормальную программу, так не нужно ее калечить, а разбираться в Вашем бреде никто не будет...

@kate55 · 07.02.2011, 19:02 **[ТС]**

Нет.Спасибо.та программа конечно правильная.но мне нужно без

Pascal

gotoXY(1,whereY); write('| ',fm);
   gotoXY(16,whereY);write('| ',im);
   gotoXY(25,whereY);write('| ',ot);
   gotoXY(39,whereY);write('|',gr:6);
   gotoXY(46,whereY);write('|',mt:4);
   gotoXY(54,whereY);write('|',alg:5);
   gotoXY(62,whereY);write('|',prg:5);
   gotoXY(71,whereY);writeln('|');

я немного переделала.
но теперь она работает когда 2 студента.для большего количества выводит опять с тройками

@Puporev · 07.02.2011, 19:06

Сообщение от kate55

но мне нужно без

Так и делайте...
неужели так трудно правильно списать это?

Сообщение от Puporev

if(mt in [4,5])and(alg in [4,5])and(prg in [4,5])then

@kate55 · 07.02.2011, 19:14 **[ТС]**

все?только это?

Добавлено через 5 минут
спасибо))блин.всю голову сломала!ну ничего бувает!

@Puporev · 07.02.2011, 19:28

Вот что вы пишете?

Pascal

for i:=1 to n do  begin//счетчик по i
    if ((sp[i].mt=4) or (sp[i].mt=5)) and ((sp[i].alg=4)or (sp[i].alg=5)) and ((sp[i].prg=4)or (sp[i].prg=5)) then
 begin
  k:=k+1;//здесь просто k:=1; нам не нужно считать, просто зафиксировать что есть такие и к не 0
  writeln(sp[k].fam:10,sp[k]//почему здесь k? нужно же sp[i], к просто фиксирует есть ли такие студенты

Добавлено через 11 минут
Я уже забыл суть задачи, все-таки там нужно оставить k:=k+1, это же для процента....

@kate55 · 07.02.2011, 21:30 **[ТС]**

да.я уже исправила.

@kate55 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 12
		1
	Вывести всю информацию о студентах сдавших все экзамены на 4 и 5 03.02.2011, 21:28. Показов 4387. Ответов 9 Метки нет (Все метки) Помогите.Срочно надо. известны следующие данные о стедентах:фамилия ,имя,отчество,номер группы и три оценки(по матанализу,по алгебре,по программированию).вывести всю информацию о студентах сдавших все экзамены на 4 и 5 а также качество успеваемости(процент таких студентов. Добавлено через 6 минут я не знаю как выдать, чтобы не было студентов с тройками и двойками. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	03.02.2011, 21:45	2
	я не знаю как выдать, чтобы не было студентов с тройками и двойками. Так покажи как заполняешь как выводишь. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2011, 18:53	5
	Сообщение от kate55 Что не праильно? Так Вам виднее, дали нормальную программу, так не нужно ее калечить, а разбираться в Вашем бреде никто не будет... 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2011, 19:06	7
	Сообщение от kate55 но мне нужно без Так и делайте... неужели так трудно правильно списать это? Сообщение от Puporev if(mt in [4,5])and(alg in [4,5])and(prg in [4,5])then 0

@kate55 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 12
	07.02.2011, 19:14 [ТС]	8
	все?только это? Добавлено через 5 минут спасибо))блин.всю голову сломала!ну ничего бувает! 0

@kate55 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 12
	07.02.2011, 21:30 [ТС]	10
	да.я уже исправила. 0

Опции темы

Вывести всю информацию о студентах сдавших все экзамены на 4 и 5

Решение