Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2012, 18:54   #1
tower38
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 11
По умолчанию Одномерные массивы

Данные об оценках студентов за экзамен хранятся в виде массива. Со-ставьте блок-схему и программу определения числа студентов, не имеющих оценок 2 и 3. В группе учатся n студентов.

УКАЗАНИЯ И РЕКОМЕНДАЦИИ К РЕШЕНИЮ ЗАДАЧ

Необходимо выполнить ввод оценки одного студента. Значение оценки сравнить с числом 3. При значении больше 3, следует количество сту-ден¬тов, не имеющих оценок 2 и 3, следует увеличить на 1.

Как это будет выглядеть в паскале напишите пожалуйста.
и блок схему пожалуйста

Последний раз редактировалось tower38; 08.01.2012 в 21:09.
tower38 вне форума Ответить с цитированием
Старый 08.01.2012, 19:02   #2
McFrey
Форумчанин
 
Аватар для McFrey
 
Регистрация: 15.10.2011
Сообщений: 306
По умолчанию

Код:
var i,n,x,kol:integer;
begin
writeln('Введите количество учащихся в группе');
readln(n);
writeln('Введите оценку');
for i:=1 to n do
readln(x);
if x>3 then kol:=kol+1;
writeln('Количество учащихся, не имеющих оценку "2"или"3" =' ,kol);
end.
только при чем здесь массив?
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
McFrey вне форума Ответить с цитированием
Старый 08.01.2012, 19:04   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

все верно но
Код:
kol:=0;
for i:=1 to n do begin
readln(x);
if x>3 then kol:=kol+1;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 08.01.2012, 19:09   #4
McFrey
Форумчанин
 
Аватар для McFrey
 
Регистрация: 15.10.2011
Сообщений: 306
По умолчанию

пардон, забыл, хорошо что Паскаль обнуляет переменные самостоятельно)
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
McFrey вне форума Ответить с цитированием
Старый 08.01.2012, 20:21   #5
tower38
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 11
По умолчанию напишите

какая будет блок схема нарисуйте кто может

напишите как оно будет выглядеть от начала до конца в паскале слаб сижу набираю не получается

Последний раз редактировалось tower38; 08.01.2012 в 21:08.
tower38 вне форума Ответить с цитированием
Старый 08.01.2012, 23:15   #6
Vova_P
 
Регистрация: 07.11.2011
Сообщений: 4
По умолчанию

Что тут рисовать?

Если оценка строго выше 3, ТО прибавляем к кол-ву студентов еще одного, если нет,ТО переходим к следующему. Цикл повторяем n раз.

Блок-схему дольше создавать в редакторе чем в голове. Подумай сам, много книжек есть по элементарному программированию. Если не ошибаюсь это уровень средней школы. От Паскаля тут только собственно сам язык, остальное - логика.

Последний раз редактировалось Vova_P; 08.01.2012 в 23:19.
Vova_P вне форума Ответить с цитированием
Старый 09.01.2012, 10:22   #7
tower38
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 11
По умолчанию

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

и схему кому не сложно нарисуйте на листочке сфотографируйте и выложите сюда пожалуйста
tower38 вне форума Ответить с цитированием
Старый 09.01.2012, 10:30   #8
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

А вы что будете делать?

К тому же мне кажется, что в одном из сообщений этой темы и так написано "как это будет выглядеть в паскале" и никакими не урывками.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 09.01.2012, 11:24   #9
tower38
Пользователь
 
Регистрация: 08.01.2012
Сообщений: 11
По умолчанию

я бы рад сделать но у меня не получается вот поэтому и просто прошу кто захочет тот поможет
tower38 вне форума Ответить с цитированием
Старый 09.01.2012, 11:30   #10
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Дык готовый код же выложили, чему тут не получаться.

А зачем вы хотите это сделать? Ведь как написали выше
Цитата:
Если не ошибаюсь это уровень средней школы. От Паскаля тут только собственно сам язык, остальное - логика.
А судя по стилю условия задачи это уже не школа. Имеет ли смысл продолжать если не хотите решать даже такую простую задачу?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы (C++) PriZRak_vk Помощь студентам 9 05.12.2011 23:40
Одномерные массивы Conte Помощь студентам 4 01.12.2011 08:58
C++. Одномерные массивы. bpystep Помощь студентам 8 18.07.2011 22:41
ОДНОМЕРНЫЕ МАССИВЫ piznec Паскаль, Turbo Pascal, PascalABC.NET 4 18.12.2010 21:20
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12