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

@Альбина С. · Регистрация: 08.12.2011

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

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

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

Листинг программы:

Delphi

  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.

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

Следующий ответ

Другие темы раздела
VB Удаление выбранного элемента в ComboBox https://www.cyberforum.ru/ visual-basic/ thread723311.html как удалить выбранный элемент? если написать combo1.removeitem 0 удалит первый, 1 второй и тд мне нужно чтоб удаляло выбранный.	Заполнить порядковыми номерами квадратную матрицу змейкой по диагонали VB Заполнить порядковыминомерами квадратную матрицу N´N змейкой по диагонали, то есть в следующейпоследовательности индексов: 1,1; 1,2; 2,1; 3,1; 2,2; 1,3; … N,N
Перетаскивание объекта по форме и "прилипание" его к другому объекту VB вот если взять такой код Private Sub Image3_DragDrop(Source As Control, x As Single, y As Single) 'приклейка Image3.Picture = Source.Picture End Sub Private Sub Image4_MouseDown(button As...	VB При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными. BASIC + блок схема Помогите https://www.cyberforum.ru/ visual-basic/ thread723100.html
VB Как сохранить изображение, нарисованное в графическом редакторе https://www.cyberforum.ru/ visual-basic/ thread722978.html Пожалуйста помогите! Создаю графический редактор. Я не могу сделать кнопку сохранить,она никак не хочет работать!:( Private Type POINTAPI X As Integer Y As Integer End Type Private Poly() As...	Открыть одну форму, при этом закрыв другую VB Здравствуйте! Как создать кнопку, при нажатии на которую окно переключаетса на другое?
VB Создание блок схемы по коду Собственно имеется код: Sub Ket() Dim a () n=Cells (4,2).Vallue Redim a(n) For i=1 To n a(i)=Cells (i+6,1).Vallue Next i k=0 For i=1 To n	VB Создание кода по блок схеме Прощу помощи в создании кода VB по данной ниже блок схеме. Код чем проще тем лучше, если можно с комментариями. Заранее благодарю. От меня спасибо + хорошая карма:D https://www.cyberforum.ru/ visual-basic/ thread722813.html
VB Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом https://www.cyberforum.ru/ visual-basic/ thread722296.html Дан текст на русском языке и некоторые два слова. Определить, сколько раз они входят в текст и сколько раз они входят непосредственно друг за другом. (Рационально) Добавлено через 27 секунд На...	VB Проверить, пересекаются ли треугольники На плоскости заданы два треугольника декартовыми координатами своих вершин. Проверьте пересекаются ли эти треугольники. Координаты вершин треугольников обозначаються : x1,y1; x2,y2; x3,y3; x4,y4;... https://www.cyberforum.ru/ visual-basic/ thread722227.html