Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти количество и фамилии студентов, имеющих хотя бы одну оценку "удовлетворительно" Целочисленная матрица А порядка 25x 4 содержит сведения о результатах сессии из 4 экзаменов для группы из 25 студентов. Найти количество и фамилии студентов, имеющих хотя бы одну оценку «удовлетворительно». https://www.cyberforum.ru/ pascal/ thread1969216.html Прерывание ошибок в паскале Pascal
Йоу,ребят. Есть одна программа по вычислению корней квадратного уравнения.Нужно сделать так,чтобы при неверно указанных исходных данных (например,букв) программа не прекращала свою работу,а требовала ввести новые,верные данные.Собственно,с этим мне и нужно помочь. write('vvedite kolichestvo testov'); readln(ntest); for test:=1 to ntest do begin write('Test ',test,'.Vvedite koefficienti...
Pascal Составить рекурсивную функцию для вычисления S = 5 + 10 + 15 +…+5*n https://www.cyberforum.ru/ pascal/ thread1969003.html
Составить рекурсивную функцию для вычисления S = 5 + 10 + 15+…+5*n Заранее спасибо!
Pascal Метод трапеций для решения задач Коши https://www.cyberforum.ru/ pascal/ thread1968975.html
помогите с программой.......... uses crt; function F(x:real):real; begin F:=exp(x)/x; end; const n=5; var y,a,b,h,k,s:real; i:integer;
Найти максимальный элемент заданного массива и сформировать новый массив Pascal
1. Для заданного массива чисел (x1, x2, …, x10) определить значение величины z, а также элементы массива (y1, y2, …, y20) Z=max(x_i ),(i=1,2,…,10) yi=e^cos(zi)
Pascal Вычислить сумму и количество элементов массива, больших среднего арифметического https://www.cyberforum.ru/ pascal/ thread1968607.html
Вычислить сумму и количество элементов массива X больших числа a, где a – среднее арифметическое элементов массива X. Элементы массива вычисляются по формуле X_i=√(i-1)∙sin⁡〖(i)〗, где i = 1, 2, …, 50.
Pascal Определение первого положительного элемента в столбце матрицы и его перестановка Написать программу, определяющую первый положительный элемент в столбце матрицы заданной размерности 4*6 и переставить данный элемент в каждом столбце в первую строку соответствующего столбца. Данные матрицы произвольные. Помогите пожалуйста, кто может. https://www.cyberforum.ru/ pascal/ thread1968570.html Сортировки Pascal
Написать программу, реализующую сортировку массива заданными способами.Алгоритм сортировки должен быть оформлен в виде самостоятельной программной единицы – подпрограммы, которая может быть использована многократно.В качестве параметра процедуры использовать размерность массива. 1.Сортировка простыми вставками. 2.Быстрая сортировка (M=16, M – число элементов в подмассиве, для которого подмассив...
Pascal Модуль пользователя Помогите найти ошибку. Нужно создать модуль пользователя, для вычисления суммы n первых чисел фибоначчи (Free Pascal) unit fibo; interface function SumFib(n:byte):longint; function Fib (n: byte):longint; implementation function SumFib(n:byte):longint; function Fib (n: byte):longint; begin https://www.cyberforum.ru/ pascal/ thread1968532.html Pascal Создать структуру с именем TRANSFORM https://www.cyberforum.ru/ pascal/ thread1968475.html
создать структуру с именем TRANSFORM ,содержащие следующие поля: 1)тип трансформатора 2)мощность 3)напряжение высокого уровня 4)напряжение низкого уровня Написать программу выполняющую след.действия:вывод на экран информации о трансформаторах,сооответсвующих по типу(если такого нет,вывести соответсвующее сообщение)
Дано шестнадцать целых чисел выполнить сортировку методом выборки Pascal
Дано шестнадцать целых чисел 22, 36, 6 ,79, 26, 45, 75, 13, 31, 62, 27, 76, 33, 16, 62, 47, выполнить их сортировку, используя метод выборки.
Pascal Найти количество пар соседних элементов массива, в которых одно число положительное, а другое отрицательное https://www.cyberforum.ru/ pascal/ thread1968417.html
Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число положительное, а другое отрицательное. Выведите также сформированный массив и все искомые пары соседних элементов.
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
27.04.2017, 05:14 0

Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично" - Pascal - Ответ 10375924

27.04.2017, 05:14. Показов 3118. Ответов 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
program dz;
var k,n,j,d,r,i:integer;a:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;
    for j:=1 to n do begin
    for i:=1 to length(b[1][j]) do begin
    if b[i][j]='2' then c[i][j]:=2;
    if b[i][j]='3' then c[i][j]:=3;
    if b[i][j]='4' then c[i][j]:=4;
    if b[i][j]='5' then c[i][j]:=5; end;end;
  k:=0;  
  for j:=1 to n do
  d:=0;
  for i:=1 to length(b[1][j]) do begin
  k:=k+c[i][j];
  if k mod r=5 then d:=d+1; end;
  writeln('количество отличников=',d);
  end.
Добавлено через 30 минут
работает но не верно

Добавлено через 46 минут
Фурия, проверяй
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
program dz;
var k,n,j,d,r,i,ci:integer;a,bi:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;  
  for j:=1 to n do begin
  ci:=1; bi:=b[1][j];
  for i:=1 to length(b[1][j]) do begin
    if bi[i]='2' then begin c[ci][j]:=2;ci:=ci+1;end;
    if bi[i]='3' then begin c[ci][j]:=3;ci:=ci+1;end;
    if bi[i]='4' then begin c[ci][j]:=4;ci:=ci+1;end;
    if bi[i]='5' then begin c[ci][j]:=5;ci:=ci+1;end;  
    end;end;
  d:=0; 
  for j:=1 to n do begin
   k:=0;
   for i:=1 to r do k:=k+c[i][j];    
   if k div r=5 then d:=d+1; 
  end;
  writeln('количество отличников=',d);
  end.


Вернуться к обсуждению:
Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично" Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2017, 05:14
Готовые ответы и решения:

Определить кол абитуриентов, сдавших вступительные экзамены только на 5
Всем привет)) По этой задачи на форуме есть много вопросов, но каждый раз там не то=((( Вот...

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

Определить количество абитуриентов, сдавших вступительные экзамены только на «отлично»
Результаты вступительных экзаменов вводятся в виде списка из N строк. В каждой строке записаны...

Работа со строками: Определить количество абитуриентов, сдавших вступительные экзамены только на «отлично»
Результаты вступительных экзаменов вводятся в виде списка из N строк. В каждой строке записаны...

2
27.04.2017, 05:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2017, 05:14
Помогаю со студенческими работами здесь

Определить количество абитуриентов, сдавших вступительные экзамены на «отлично»
Напишите пожалуйста алгоритм. Код я сам) Результаты вступительных экзаменов представлены в виде...

Строки: определить количество абитуриентов, сдавших вступительные экзамены только на "отлично"
Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которого...

Список абитуриентов, сдавших вступительные экзамены только на оценки 4 и 5; N =2
Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте...

Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О. абитуриента, оценки. Определить с
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О....

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

Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит ФИО., адрес, оценки. Определить количеств
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит ФИО., адрес,...

Ведомость абитуриентов, сдавших вступительные экзамены в университет ...
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О., адрес,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru