Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 1
Регистрация: 19.11.2011
Сообщений: 12
1

Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько - оба языка

20.11.2011, 21:16. Показов 1483. Ответов 2
Метки нет (Все метки)

Сформировать список студентов группы со следующими сведениями: Фамилия, имя, отчество, знает ли языки программирования Turbo Pascal, Cи (если да, где обучался и сколько лет). Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько - оба языка

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
program p12_1;
uses crt;
type
student=record
               fam:string[15];
               name:string[15];
               otch:string[15];
               den:byte;
               mes:byte;
               god:word;
end;
var
a:array[1..15]of student;
m,g,i,n:integer;
begin
n:=15;
write('Введите количество студентов(не более 15):');
readln(n);
for i:=1 to n do
begin
write('Введите фамилию ',i,' студента: ');
readln(a[i].fam);
write('Введите имя ',i,' студента: ');
readln(a[i].name);
write('Введите отчество ',i,' студента: ');
readln(a[i].otch);
write('Введите день рождения: ');
readln(a[i].den);
write('Введите месяц рождения: ');
readln(a[i].mes);
write('Введите год рождения: ');
readln(a[i].god);
end;
write('Введите месяц для поиска: ');
readln(m);
write('Введите год для поиска: ');
readln(g);
writeln('          Найденные записи:');
for i:=1 to n do
if (m=a[i].mes)and(g=a[i].god) then
begin
  write('Имя студента: ');
  writeln(a[i].fam,' ',a[i].name,' ',a[i].otch);
  write('Дата рождения: ');
  writeln(a[i].den,'.',a[i].mes,'.',a[i].god);
  writeln;
end;
readln;
end.
программа должна быть вроде этой,только я не пойму,что надо сделать для моей задачи,помогите пожалуйста
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2011, 21:16
Ответы с готовыми решениями:

Подсчитать сколько раз среди данных символов встречается символ + и сколько раз - символ * в отдельности
1. Дана последовательность из n символов. Подсчитать сколько раз среди данных символов встречается...

Подсчитать, сколько раз среди данных символов встречается символ +, и сколько раз символ *
Даны натуральное число n, символы s1, …, sn. Подсчитать: а) сколько раз среди данных символов...

Сколько слов в строке имеет четное количество символов, а сколько - нечетное.
в турбопаскале . условие:Введите строку из нескольких слов. Определите, сколько слов в строке...

Определить,сколько было введено латинских букв и сколько остальных символов
Вводятся символы до тех пор,пока какой-либо из них не повторится дважды.Определить,сколько было...

2
31 / 31 / 11
Регистрация: 03.02.2011
Сообщений: 182
20.11.2011, 22:11 2
Pascal
1
a:array[1..15]of student;
В паскале появился тип параметров "студенты" это что-то новенькое...
0
0 / 0 / 1
Регистрация: 19.11.2011
Сообщений: 12
21.11.2011, 16:14  [ТС] 3
Huskar, это инновации в прграммировании
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2011, 16:14

Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве
Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве Желательно полная программа...

Дано слово, проверить сколько четных цифр в этом слове; дано слово подсчитать сколько цифр.
Помогите пожалуйста решить две задачи: ------------------------------------------ 1) Дано слово,...

Определить, сколько раз заданные два слова встречаются в тексте и сколько из них - непосредственно друг за другом
Приветствую, форумчане. Всех с праздником и заслуженными выходными) Требуется помощь в нескольких...

Turbo Pascal, Найти мин. значение матрицы, подсчитать сколько раз оно встречается в этой матрице
Ввести матрицу, найти минимальное значение и подсчитать сколько раз оно встречается в данной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.