Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
sunrise7
0 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 17
1

Распечатать список студентов, фамилии которых начинаются с буквы А и их отметки

16.02.2012, 21:40. Просмотров 391. Ответов 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
type arhiv=record
     name:string[20];
     god:word;
     pol:0..1;
     ozenka:byte;
end;
const n=5;
var student:array[1..n] of arhiv;
    i,j,k:integer;
begin
  k:=0;
  for I:=1 to n do with student[I] do
  begin
    writeln;
    write('введите имя студента* ');
    readln(name);
    write('введиет год студента');
    readln(god);
    write('введите пол студента');
    readln(POL);
    write('введите оценку студента');
    readln(ozenka);
    
    end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2012, 21:40
Ответы с готовыми решениями:

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

Распечатать список учеников, фамилии которых начинаются на букву В, с указанием даты их рождения
Не выводит фамилии на букву В, что не так подскажите пожалуйста. program zapisi; Uses crt; ...

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

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

Список абитуриентов, фамилии которых начинаются с Б, и их даты рождения
2) Список абитуриентов, фамилии которых начинаются с Б, и их даты рождения.

1
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
16.02.2012, 22:14 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
27
28
29
30
31
type arhiv=record
     name:string[20];
     god:word;
     pol:0..1;
     ozenka:byte;
end;
const n=5;
var student:array[1..n] of arhiv;
    i,j,k:integer;
begin
  k:=0;
  for I:=1 to n do with student[I] do
  begin
    writeln;
    write('введите имя студента: ');
    readln(name);
    write('введиет год студента: ');
    readln(god);
    write('введите пол студента: ');
    readln(POL);
    write('введите оценку студента: ');
    readln(ozenka);
    writeln;
  end;
    
  for I:=1 to n do
  with student[i] do
  If name[1]='А' then
    writeln(name:10,' ':10,god,' ':10,ozenka);
    
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2012, 22:14

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

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

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


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

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

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