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

@ryaba · Регистрация: 12.09.2015

Студворк — интернет-сервис помощи студентам

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

@Puporev · 18.09.2015, 20:08

Строите сотрудников в ряд и просите поднять руку у кого фамилия на заданную букву, считаете.
Ну как вариант пишете здесь точное и полное условие задачи.

@ryaba · 18.09.2015, 20:11 **[ТС]**

Ввести от 1 до 5 фамилий и потом определить сколько фамилий начинается на букву (x)

@Puporev · 18.09.2015, 20:14

Куда ввести, консольное или оконное приложение, если второе,то какие компоненты использовать...
А принцип решения примитив

Delphi

1
2
3

k:=0;
for i:=1 to 5 do
if s[i][1]=b then k:=k+1;

@ryaba · 18.09.2015, 21:14 **[ТС]**

Pascal

 var
 f:array[1..5] of string;
 k,i:integer;
begin
 for i:=1 to 5 do
 readln(f[i]);
 writeln('Список сотрудников отдела:');
 for i:=1 to 5 do
  writeln(i,' ',f[i]);
end.

Нужно определить какое количество фамилий начинается на заданную букву
Типо ввожу фамилии: Петров, Иванов, Кириллов, Игнатьев, Васькин. Ввожу букву "И" и он считает сколько фамилий начинается на эту букву. В данном случае: 2.

@Puporev · 18.09.2015, 21:21

Ну я же написал

Delphi

var b:char;
..................................
write('Введите букву');
readln(b);
k:=0;
for i:=1 to 5 do
if f[i][1]=b then k:=k+1;

@ryaba · 18.09.2015, 21:26 **[ТС]**

Не заметил, извиняюсь, спасибо

Добавлено через 4 минуты

Pascal

 var
 f:array[1..5] of string;
 i,k:integer;
 b:char;
begin
 for i:=1 to 5 do
 readln(f[i]);
 writeln('Список сотрудников отдела:');
 for i:=1 to 5 do
  writeln(i,' ',f[i]);
  writeln('Введите первую букву фамилии');
  readln(b);
  k:=0;
  for i:=1 to 5 do
  if f[i][1]=b then k:=k+1;
end.

Не считает почему-то

@Puporev · 19.09.2015, 07:49

Все считает, но нужно вывести результат, компьютер тупой, сам этого не понимает...

Pascal

1 2	write('Количество сотрудников чьи фамилии начинаются на букву ',b,'=',k) end.

@ryaba 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 6
		1
	Определить сколько в отделе сотрудников, фамилии которых начинаются на заданную букву 18.09.2015, 20:03. Показов 3149. Ответов 7 Метки нет (Все метки) Не хватает времени сделать, помогите, пожалуйста, "Определить сколько в отделе сотрудников, фамилии которых начинаются на заданную букву" 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	18.09.2015, 20:08	2
	Строите сотрудников в ряд и просите поднять руку у кого фамилия на заданную букву, считаете. Ну как вариант пишете здесь точное и полное условие задачи. 0

@ryaba 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 6
	18.09.2015, 20:11 [ТС]	3
	Ввести от 1 до 5 фамилий и потом определить сколько фамилий начинается на букву (x) 0

	19.09.2015, 07:49

Опции темы

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

Решение