Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Задано существительное первого склонения, оканчивающееся на "а". Напечатайте это слово во всех падежах https://www.cyberforum.ru/ pascal/ thread30133.html
Ещё раз здраствуйте! 2ве программ на тип строки я делал и понял как делать, а вот с этим не могу разобраться :( Вот программа: Задано существительное первого склонения, оканчивающееся на "а". Напе-чатайте это слово во всех падежах.
Pascal Составить программу сокращения дроби
Здраствуйте! Прошу помощ! Программу надо написать в паскале.... 12.Составить программу сокращения дроби , где M и N натуральные числа... Я просо уже весь мозг переломал... инете, перепробывал много чего но не получается...
Pascal Массивы Дана последовательность натуральных чисел а1,а2...,аn.Создать массив из четных чисел этой последовательности . Если таких чисел нет, то вывесте сообшение об етьом факте. https://www.cyberforum.ru/ pascal/ thread30122.html Pascal Массивы https://www.cyberforum.ru/ pascal/ thread30121.html
Задача. Сформировать массив простых множителей задоного числа.
Зеркальное отображение Pascal
Написать 3 программы с зеральным отображением 1 Одномерную матрицу зекально 2 Любую фразу зеркально 3 Дано одномерную матрицу 9 елементов создать из неё двухмерную 3х3 ЗЫ Желательно написать как моно быстрее а то я щас на КР в школе сижу
Pascal Переменной В присвоить множество полученное из А https://www.cyberforum.ru/ pascal/ thread30097.html
помогите решить пару задачек.... 1.Даны следующие описания переменных var A,B:set of char;x:char; Переменной В присвоить множество полученное из А: а)добавлением элемента х б)удалением элемента х 2.Дана целочисленная матрица размером M*N.Различные строки/столбцы матрицы назовем похожими, если совпадают множества чисел встречающихся в этих строках/столбцах.Найти количество строк/столбцов...
Pascal Файлы Здраствуйте помогите пожалуйста с файлами. Дан файл F элементы которого являются целыми числами.Описать функцию отрицательных (F) подсчитывающую сумму отрицательных элементов в файле (F). https://www.cyberforum.ru/ pascal/ thread30092.html Двумерные массивы, cимволы и строки символов, запись, файлы. Pascal
Вроде с компом дружу))) и с паскалем пона4алу тоже дружила))... воть а теперь блондиню... с этими зада4ками долго му4алась, а в итоге бред какой-то... надеюсь, о4ень сильно на вашу помощь... Заранее бббоооольшоооое спасибо) 1. Дан двумерный массив A . Вывести на экран номер строки, в которой число положительных и отрицательных элементов равно. 2....
Pascal Задача на файлы https://www.cyberforum.ru/ pascal/ thread30089.html
Сформировать файл, содержащий сведения о магазинах округа. Структура записи,название магазина, его номер, адрес, фамилия директора. Выбрать информацию о магазинах расположенных на улице П.Зори. ---------Кто нибудь помогите сделать очень надо------------
Pascal сформировать массив простых множетелей задоного числа сформировать массив простых множетелей задоного числа Добавлено через 3 часа 36 минут 1 секунду помогите пожалуста седня за4ет а я ее ваще не понимаю как сделать=( https://www.cyberforum.ru/ pascal/ thread30086.html
Pascal Прикольный массив
Уважаемые программисты, помогите написать программу, а само задание уже ставит в тупик. CONST N=100; VAR X: ARRAY OF REAL; Упорядочить массив X по не убыванию (т.е. переставить его элементы так , чтобы для всех К выполнялось x(к)<=x(к+1) используя следующий алгоритм сортировки (упорядочения) : сортировка вставками : пусть первые k элементов массива уже упорядочены по не убыванию; берется...
Pascal В квадратной матрице размером М*М, имеющей имя MHM.... https://www.cyberforum.ru/ pascal/ thread30059.html
Доброго времени суток уважаемые программисты! Прошу помочь решить мне следующую задачку..... 1)В квадратной матрице размером М*М, имеющей имя MHM, содержатся целые числа. М-число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с минимальным числом единиц и вывести ее номер на экран. Заранее...
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.04.2009, 21:26 0

Вычислить средний балл группы и распечатать список студентов, имеющих средний балл выше среднего балла группы - Pascal - Ответ 142507

20.04.2009, 21:26. Показов 10010. Ответов 2
Метки (Все метки)

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

Решение

№1.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
program sred_bal;
uses crt;
type Tstud=record{тип запись-студенты}
           fam:string[15];{фамилия}
           ocn:array[1..4]of byte;{4 оценки}
           srb:real;{ср. балл}
           end;
var sp:array[1..50] of Tstud;{массив записей}
    n,i,k,j,t:byte;
    srg:real;{средний по группе}
    c:char;{символ окончания ввода}
begin
clrscr;
writeln('Введите данные о студентах, окончание ввода Esc:');
n:=0;srg:=0;
repeat
n:=n+1;
writeln('Студент',n);
write('  Фамилия: ');readln(sp[n].fam);
writeln('  Оценки:');
sp[n].srb:=0;
for j:=1 to 4 do
  begin
    repeat
    write('     Оценка ',j,'=');
    readln(sp[n].ocn[j]);
    until sp[n].ocn[j] in [2..5];
    sp[n].srb:=sp[n].srb+sp[n].ocn[j]/4;{считаем ср. балл каждого}
  end;
srg:=srg+sp[n].srb;{суммируем их}
c:=readkey;{ожидаем нажатия клавиши}
until c=#27;{если Esc- заканчиваем}
srg:=srg/n;{считаем средний по группе}
clrscr;{очищаем экран и выводим общий список}
writeln('  Общий список студентов':40);
writeln;
writeln('-----------------------------------------------------------------');
writeln('|   Фамилия   |Оценка 1|Оценка 2|Оценка 3|Оценка 4| Средний балл|');
writeln('-----------------------------------------------------------------');
for i:=1 to n do
  begin
    write('| ',sp[i].fam);
    for j:=1 to 4 do
     begin
      gotoXY(15+9*(j-1),whereY);
      write('|    ',sp[i].ocn[j]);
     end;
    gotoXY(51,whereY);
    write('|',sp[i].srb:8:2);
    gotoXY(65,whereY);
    write('|');
    writeln;
  end;
writeln('-----------------------------------------------------------------');
readln;
clrscr;{очищаем экран и выводи со ср. баллом выше среднего}
writeln('Список студентов, чей средний балл выше среднего:');
writeln('(средний балл=':30,srg:0:2,')');
writeln;
writeln('-----------------------------------------------------------------');
writeln('|   Фамилия   |Оценка 1|Оценка 2|Оценка 3|Оценка 4| Средний балл|');
writeln('-----------------------------------------------------------------');
for i:=1 to n do
if sp[i].srb>srg then {если больше, выводим}
  begin
   write('| ',sp[i].fam);
    for j:=1 to 4 do
     begin
      gotoXY(15+9*(j-1),whereY);
      write('|    ',sp[i].ocn[j]);
     end;
    gotoXY(51,whereY);
    write('|',sp[i].srb:8:2);
    gotoXY(65,whereY);
    write('|');
    writeln;
  end;
writeln('-----------------------------------------------------------------');
readln
end.
Добавлено через 3 минуты 36 секунд
Что-то больше на вторую похоже получилось. Надо только переписать строку
if sp[i].srb>srg then {если больше, выводим} так
if abs(sp[i].srb-srg)<0.001 then {если почти равны(вещественные числа строго равны не бывают), выводим}

Добавлено через 12 минут 37 секунд
Первая так будет выглядеть.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program sred_bal_1;
uses crt;
type Tstud=record
           fam:string[15];
           srb:real;
           end;
var sp:array[1..50] of Tstud;
    n,i,k,j,t:byte;
    srg:real;
    c:char;
begin
clrscr;
writeln('Введите данные о студентах, окончание ввода Esc:');
n:=0;srg:=0;
repeat
n:=n+1;
writeln(' Студент',i);
write('   Фамилия: ');readln(sp[n].fam);
write('   Средний балл:');readln(sp[n].srb);
srg:=srg+sp[n].srb;
c:=readkey;
until c=#27;
srg:=srg/n;
clrscr;
writeln('  Общий список студентов');
writeln;
writeln('---------------------------');
writeln('|   Фамилия | Средний балл|');
writeln('---------------------------');
for i:=1 to n  do
  begin
    write('| ',sp[i].fam);
    gotoXY(13,whereY);
    write('|     ',sp[i].srb:0:2);
    gotoXY(27,whereY);
    write('|');
    writeln;
  end;
writeln('---------------------------');
readln;
clrscr;
writeln('  Список студентов, чей средний балл выше среднего:');
writeln('(средний балл=':30,srg:0:2,')');
writeln;
writeln('---------------------------');
writeln('|   Фамилия | Средний балл|');
writeln('---------------------------');
for i:=1 to n  do
if sp[i].srb>srg then
  begin
    write('| ',sp[i].fam);
    gotoXY(13,whereY);
    write('|     ',sp[i].srb:0:2);
    gotoXY(27,whereY);
    write('|');
    writeln;
  end;
writeln('---------------------------');
readln
end.


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

Вычислить средний балл группы и вывести на экран список студентов имеющих средний балл выше среднего балла группы
Написал задачку, а она как то не робит(( Нуждаюсь в опытном совете.... Вот условие задачи:...

Для студентов заданной группы, имеющие средний балл, больший 4.5, вывести фамилию и средний балл
Для студентов заданной группы,имеющие средний балл,больший 4.5,вывести фамилию,имя,отчество и...

Задача на записи.Вычистить средний балл группы и распечатать список студентов, фамилии которых начинаются на букву А
Ввести сведения о восьми студентах :фамилия , год рождения , рейтинг по предметам :алгоритмизация ,...

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

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

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

Средний балл группы
Написать программу в паскале: Создать массив с двух записей на два поля разместить в динамической...

Вывести информацию о студентах, имеющих средний балл выше 3
Файлы: *Файл содержит итоги контрольного срока, каждая запись которого содержит поля: Фамилия...

Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.
Ребят, помогите пожалуйста. Одну задачку сделал вторую не получается, на форуме похожих не...

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