Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 29
1

Вывести фамилии и имена студентов, чьи имена начинаются на букву "б"

07.12.2012, 22:49. Просмотров 1921. Ответов 2
Метки нет (Все метки)

известны фамилии,адреса и телефоны 25 человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3.
рассмотрите два случая:
а) телефон задан в виде 7-значного числа;
б) телефон задан в виде аналогично следующему: 268-50-59

Добавлено через 1 минуту
а это пример из другой задачи, по такому же принципу надо,но что-то не получается

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

Листинг программы:
Delphi
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
  Type{Объявление типа запись}
TStudent = record
Imya: string[20];{Поле имя}
Fam: string;{Поле фамилия}
Ocn: integer;{Поле оценка}
end;
 
var
  Form1: TForm1;
  Student: TStudent;{Объявление переменной типа запись}
kol:integer;
srarifm:real;
 
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Student do
begin
imya:=edit1.text;
Fam:=edit2.text;
ocn:=strtoint(edit3.text);
 srarifm:=srarifm+ocn;
 kol:=kol+1;
 if imya[1]= 'Б' then memo1.lines.add(fam+ ' ' +imya);
  end;
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 srarifm:=srarifm/kol;
label4.caption:= 'средний балл'+' '+floattostrf(srarifm, fffixed,5,2)+' у '+inttostr(kol)+' человек';
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2012, 22:49
Ответы с готовыми решениями:

Вывести всех студентов, чьи имена начинаются с буквы "А"
Сформировать стек, содержащий данные по студентам в следующем виде: "Фамилия Имя Группа ГР RS", где...

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

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

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

2
Эксперт WindowsАвтор FAQ
17550 / 7394 / 880
Регистрация: 25.12.2011
Сообщений: 11,193
Записей в блоге: 16
07.12.2012, 23:13 2
Вам код на Delphi или Visual Basic нужен?
0
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 29
08.12.2012, 13:00  [ТС] 3
на Visual Basic
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2012, 13:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"
Очередь (FIFO) Все студенты, чьи фамилии начинаются с буквы "Б" program lab3; type...

Вывести на экран данные фамилии и имена всех людей, у которых фамилии начинаются с 2 буквы, как и ваша фамилия
Необходимо ввести в файл фамилии, имени 6 человек. Вывести на экран данные фамилии и имена всех...

Имена и домашние адреса студентов, сдавших экзамен по математике на "4" и "5"
Помогите пожалуйста с программой, не пойму как делать Добавлено через 1 час 56 минут Вот код с...

В списке, содержащем фамилии, имена и отчества студентов группы, заменить имена и отчества на инициалы
В списке, содержащем фамилии, имена и отчества студентов группы, заменить имена и отчества на...


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

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

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