Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Совокупность записей объединить в массив, распечатка данных https://www.cyberforum.ru/ pascal/ thread20073.html
Составить список студентов, включающий не менее 10 человек. Для каждого студента указать фамилию, год рождения, курс, оценки в последнюю сессию.Информацию о каждом студенте оформить в программе в...
формула на tan и блок-схема Pascal
помогите исправить ошибки, меня не допускают к сессии 1. какая формула tan в коде? y:= (tan*c-(d*23)/(2*(a)-1)); _____________________________________________________________ 2....
Pascal Люди поиогите срочно нужно написать программу со стрингами без массивов https://www.cyberforum.ru/ pascal/ thread20053.html
Все вхождения первого слова текста заменить последним его словом
Pascal Удалить 6й элемент из заданной цепочки р Помогите решить, задача для зачёта нужна, Удалить 6й элемент из задананной цепочки р, решается через указатели https://www.cyberforum.ru/ pascal/ thread20052.html
Работа со списком - вывести слова согласно условиям Pascal
Вот собственно задание: Туре слово=array of char; список=array of слово; var с:=список; Написать программу, которая будет выводить: а) все слова со списка с, отличные от слова...
Pascal Как сделать проще https://www.cyberforum.ru/ pascal/ thread20037.html
Составьте рекуррентную формулу, используя которую для заданных с клавиатуры значений p,n, и a, вычислите значение Y: Y=(((((a-p)*n-p)*n-p)*n-p)*n-p)*n-p. Есть программа, но написана она, как...
Pascal Помогите решить последнюю задачу, на двумерный массив http://img5.imageshost.ru/imgs/ef048fb2ebaa250400d62868648dad75/0ef96cef47a10866152121bab809caa2.jpg Помогите решить последнюю задачу на дву-мерный массив, чет условие, какое-то странное, не могу... https://www.cyberforum.ru/ pascal/ thread20030.html Помогите дорешать задачу на While, !почти решена! Pascal
http://img5.imageshost.ru/imgs/339de4895b272cf3da74355f4bfac078/d7b382ab0ae0688e6fc651b78a06b905.jpg program anz116; uses crt; var n,x,b,i:integer; s:real; begin clrscr; ...
Pascal Преобразовать вектор из 9 элементов в матрицу 3x3. https://www.cyberforum.ru/ pascal/ thread20005.html
Народ, выручайте! Не силён в Паскале, а очень срочно нужны эти задачи. Плиз!Для всех задач надо составить алгоритм и программу. 1. Преобразовать вектор из 9 элементов в матрицу 3x3. 2. Получить...
Pascal Разобрать строку символов на массив слов https://www.cyberforum.ru/ pascal/ thread20003.html
разобрать строку символов на массив слов(255 символов и 128 слов)
Pascal Вычисление суммы ряда
Доброго Время суток!!! есть условие во вложении и примерный набросок!!!Помогите дальше сделать!!!И С Наступающим ВАС!!! program pr336; uses crt; var x,n,k,i,f,t,u,y:integer; begin clrscr;...
Pascal Заполнить массив случайными числами и вывести на экран отсортированный массив. https://www.cyberforum.ru/ pascal/ thread20001.html
Заполнить массив случайными числами и вывести на экран отсортированный массив. Добавлено через 3 минуты 43 секунды очень срочно!!! Добавлено через 57 минут 37 секунд я не понимаю в...
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.12.2008, 22:25 0

Результаты сдачи сессии - Pascal - Ответ 88725

30.12.2008, 22:25. Показов 1573. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено aleksandrdss как решение

Решение

Вот решение. 3 везде заменишь на 30, ввод оценок сделаешь вручную, а то почти все двоешники.
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
30
31
uses crt;
var s:array[1..30] of string[10];
    a:array [1..30,1..5] of byte;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Spisok studentov:');
for i:=1 to 3 do
readln(s[i]);
writeln;
writeln('Matrica ocenok:');
for i:=1 to 3 do
  begin
    for j:=1 to 5 do
      begin
        a[i,j]:=random(4)+2;
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln('Spisok neuspevayushih:');
for i:=1 to 3 do
  begin
    k:=0;
    for j:=1 to 5 do
    if a[i,j]=2 then k:=k+1;
    if k>0 then writeln(s[i]);
  end;
readln
end.


Вернуться к обсуждению:
Результаты сдачи сессии Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2008, 22:25
Готовые ответы и решения:

Известны результаты сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба экзамена
Известны результаты сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба...

Обработка хода сдачи экзаменационной сессии студентами 1-го курса
написать программу обрабатывающую ход сдачи экзаменационной сессии студентами 1-го курса.В группе...

Описать массви записей, содержащий информацию об итогах сдачи вами сессии в институте
задание:описать массви записей , содержащий информацию об итогах сдачи вами сессии в институте....

Сессия. Результаты сессии, состоящей из трех экзаменов, для группы из n студентов представлены матрицей K(n,3).
Сессия. Результаты сессии, состоящей из трех экзаменов, для группы из n студентов представлены...

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

Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...

Результаты сдачи экзаменационной сессии студентами.
“Результаты сессии -2” Результаты сдачи экзаменационной сессии студентами некоторой группы...

Создать файл, содержащий сведения о результатах сдачи сессии
Создать файл, содержащий сведения о результатах сдачи сессии студентами 1 курса специальности...

Сформировать файл, содержащий информацию о результатах сдачи сессии
Сформировать файл, содержащий информацию о результатах сдачи сессии (3 экзамена) группой студентов....

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