Определить сколько «2» и « 5» в данной последовательности

@miss_ · Регистрация: 14.12.2013

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

что не так?
Задание:
Дана последовательность ненулевых вещественных чисел, за которой следует 0 (0 – признак конца последовательности). Последовательность является оценками студентов группы по одной дисциплине. Определить сколько «2» и « 5».

Программа:

Pascal

      Program v3;
var
i,n,k,m,a:integer;
begin
i:=1;
m:=1;
n:=0;
k:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Readln(a);
While (a<>0) do
begin
if a=2 then n:=i;
i:=i+1;
end;
Writeln('количество двоек=',n);
While (a<>0) do
begin
if a=5 then k:=m;
m:=m+1;
end;
Writeln('количество пятерок=',k);
end.

@Svager · 14.12.2013, 16:35

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

что не так?
Задание:
Дана последовательность ненулевых вещественных чисел, за которой следует 0 (0 – признак конца последовательности). Последовательность является оценками студентов группы по одной дисциплине. Определить сколько «2» и « 5».

Программа:

Pascal

      Program v3;
var
i,n,k,m,a:integer;
begin
i:=1;
m:=1;
n:=0;
k:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Readln(a);
While (a<>0) do
begin
if a=2 then n:=i;
i:=i+1;
end;
Writeln('количество двоек=',n);
While (a<>0) do
begin
if a=5 then k:=m;
m:=m+1;
end;
Writeln('количество пятерок=',k);
end.

а сколько оценок ? последовательность ?

@miss_ · 14.12.2013, 16:39 **[ТС]**

Pascal

1 2	Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.'); Readln(a);

вводится последовательность
или нельзя так?

@Svager · 14.12.2013, 16:41

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

Pascal

1 2	Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.'); Readln(a);

вводится последовательность
или нельзя так?

я понял, но можно сделать не так как вы...сколько вы хотите вводить оценок ?

@miss_ · 14.12.2013, 16:48 **[ТС]**

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

@Svager · 14.12.2013, 16:56

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

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

ну вы же не можете вводить бесконечно , предел какой-то есть же..

Добавлено через 29 секунд

Pascal

uses crt;
const n=15;
var a:array[1..n] of integer;
i,k1,k2:integer;
BEGIN
clrscr;
writeln('Введите 15 оценок , последний 0 :');
 
 for i:=1 to n do
  read(a[i]);
  writeln;
  writeln('Оценки студентов : ');
  for i:=1 to n do
   write(a[i]:4);
 
   k1:=0;k2:=0;
   for i:=1 to n do
    if a[i]=2 then
     inc(k1)
      else
       if a[i]=5 then
        inc(k2);
 
      writeln;
      writeln;
      if k1=0 then
       writeln('Двоек нету... ')
        else
         writeln('Двоек равно :',k1);
         writeln;
          if k2=0 then
           writeln('Пятерок нету...')
            else
             writeln('Пятерок равно :',k2);
readkey;
END.

@miss_ · 14.12.2013, 17:01 **[ТС]**

спасибо,постараюсь разобраться,просто мне нужно без массива))

@Svager · 14.12.2013, 19:04

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

спасибо,постараюсь разобраться,просто мне нужно без массива))

ну что ?

@miss_ · 14.12.2013, 19:35 **[ТС]**

Program v2;
var
K1,K2,a:integer;
begin
Writeln('Введите оценки:');
Read(a);
k1:=0;k2:=0;
while a<>0 do
begin
if a=2 then
k1:=K1+1;
if a=5 then
K2:=K2+1;
end;
writeln;
writeln;
if k1=0 then
writeln('Двоек нету... ')
else
writeln('Двоек :',k1);
writeln;
if k2=0 then
writeln('Пятерок нету...')
else
writeln('Пятерок :',k2);
readln;
END.

все равно что-то не то(

Добавлено через 2 минуты
все,Ура!я разобралась!!

спасибо))

@miss_ 8 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 91
	14.12.2013, 16:48 [ТС]	5
	пусть 15 оценок просто нас просят,что бы мы вводили сами последовательность 0

@miss_ 8 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 91
	14.12.2013, 17:01 [ТС]	7
	спасибо,постараюсь разобраться,просто мне нужно без массива)) 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	14.12.2013, 19:04	8
	Сообщение от miss_ спасибо,постараюсь разобраться,просто мне нужно без массива)) ну что ? 0

@miss_ 8 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 91
	14.12.2013, 19:35 [ТС]	9
	Program v2; var K1,K2,a:integer; begin Writeln('Введите оценки:'); Read(a); k1:=0;k2:=0; while a<>0 do begin if a=2 then k1:=K1+1; if a=5 then K2:=K2+1; end; writeln; writeln; if k1=0 then writeln('Двоек нету... ') else writeln('Двоек :',k1); writeln; if k2=0 then writeln('Пятерок нету...') else writeln('Пятерок :',k2); readln; END. все равно что-то не то( Добавлено через 2 минуты все,Ура!я разобралась!!спасибо)) 0