Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
#1

Составить программу, которая выводит список студентов 2 курса, которые проживают в городе Чебоксары - PascalABC.NET

16.06.2014, 19:36. Просмотров 554. Ответов 3
Метки нет (Все метки)

ФИО Дата рождения Год поступления Курс Место проживания
Семенов А.М. 12.11.95 2010 2 Чебоксары
….
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2014, 19:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу, которая выводит список студентов 2 курса, которые проживают в городе Чебоксары (PascalABC.NET):

Составить программу, которая выводит сумму цифр, которые содержатся в заданной строке
пример: ввод:yfunvb4knk8; вивод:12;

Найти студентов 2-го курса, которые имеют средний бал 4
Создать программу, которая создает базу данных согласно варианту. Группа: N...

Запись Студент - Определить список студентов заданного курса
Структура элемента массива студент: фамилия, имя, отчество, пол, возраст, №...

Написать программу, которая печатает список студентов, желающих прослушать дисциплину Х
Написать программу, которая печатает список студентов, желающих прослушать...

Составить программу, которая по дате выводит знак Зодиака
Составить программу, которая по дате выводит знак Зодиака

3
_Developer
application developer
121 / 87 / 89
Регистрация: 30.12.2012
Сообщений: 511
18.06.2014, 15:49 #2
Лучший ответ Сообщение было отмечено Dimaalex11 как решение

Решение

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
uses
  System;
 
type
  rec = record
    fio: string[90];
    birtday: string[20];
    year: word;
    course: byte;
    locations: string[100];
  end;
 
var
  arr: array of rec;
 
begin
  write('Введите количество записей: ');
  var a := ReadlnInteger;
  SetLength(arr, a);
  for var i := 0 to arr.Length - 1 do
  begin
    writeln('СТУДЕНТ ' + (i + 1).ToString() + '-----------------------------');
    write('Введите ФИО: '); readln(arr[i].fio);
    write('Введите дату рождения: '); readln(arr[i].birtday);
    write('Введите год поступления: '); readln(arr[i].year);
    write('Введите курс: '); readln(arr[i].course);
    write('Введите место проживания: '); readln(arr[i].locations);
  end;
  writeln;
  writeln('Результаты поиска:');
  for var i := 0 to arr.Length - 1 do
    if (arr[i].course = 2) and (arr[i].locations = 'Чебоксары') then
      write(arr[i].fio, ' ', arr[i].birtday, ' ', arr[i].year, ' ', 
      arr[i].course, ' ', arr[i].locations);
end.
1
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
18.06.2014, 20:03  [ТС] #3
а как сделать, чтобы Результаты работы программы записывались в файл Out.txt. ?
0
_Developer
application developer
121 / 87 / 89
Регистрация: 30.12.2012
Сообщений: 511
18.06.2014, 20:11 #4
Лучший ответ Сообщение было отмечено Dimaalex11 как решение

Решение

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
type
  rec = record
    fio: string[90];
    birtday: string[20];
    year: word;
    course: byte;
    locations: string[100];
  end;
 
var
  arr: array of rec;
  f: text;
 
begin
  write('Введите количество записей: ');
  var a := ReadlnInteger;
  SetLength(arr, a);
  for var i := 0 to arr.Length - 1 do
  begin
    writeln('СТУДЕНТ ' + (i + 1).ToString() + '-----------------------------');
    write('Введите ФИО: '); readln(arr[i].fio);
    write('Введите дату рождения: '); readln(arr[i].birtday);
    write('Введите год поступления: '); readln(arr[i].year);
    write('Введите курс: '); readln(arr[i].course);
    write('Введите место проживания: '); readln(arr[i].locations);
  end;
  writeln;
  assign(f, 'result.txt');
  rewrite(f);
  writeln('Результаты поиска:');
  for var i := 0 to arr.Length - 1 do
    if (arr[i].course = 2) and (arr[i].locations = 'Чебоксары') then
    begin
      write(arr[i].fio, ' ', arr[i].birtday, ' ', arr[i].year, ' ', 
      arr[i].course, ' ', arr[i].locations);
      write(f, arr[i].fio, ' ', arr[i].birtday, ' ', arr[i].year, ' ', 
      arr[i].course, ' ', arr[i].locations);
    end;
  close(f);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2014, 20:11
Привет! Вот еще темы с решениями:

Составить программу, которая выводит на монитор числа, делящиеся на 3
Составить программу, которая с помощью цикла выводит на монитор числа,...

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

Составить программу, которая выводит строку одинаковых символов
3. Составить программу, которая выводит строку одинаковых символов. Длина...

составить программу которая выводит количество символов в фразе
У меня вот такая проблема:мне нужно составить программу которая выводит...


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

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

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