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

@Daty · Регистрация: 30.05.2013

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

Помогите с задачками в паскале )) срочно надо...(((
1) Составите массив из 5 фамилий и выведете их на экран те из них, которые начинаются с определенной буквы, которая вводится с клавиатуры.

@_Developer · 08.06.2013, 11:41

Pascal

var
  ch: char; 
  i: byte;
  str: string;
 
const
  a: array[1..5] of string = ('Иванов', 'Сорокин', 'Козлов', 'Петров', 'Богданович');
 
begin
  write('Введите букву: ');
  readln(ch);
  for i := 1 to 5 do
  begin
    str := a[i];
    if (str[1] = ch) or (str[1] = upcase(ch)) then writeln(a[i]);
  end;
end.

@Daty · 09.06.2013, 15:32 **[ТС]**

Спасибо Вам! =)
А вы бы не могли бы помочь вот с этой еще задачкой?
Опишите множество Alf('а'..'я') и поместите в него гласные буквы. Создайте диалог проверки наличия в множестве согласных букв.

@Daty 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 10
		1
	Составить массив из 5 фамилий и вывести на экран те из них, которые начинаются с определенной буквы 06.06.2013, 22:43. Показов 7383. Ответов 2 Метки нет (Все метки) Помогите с задачками в паскале )) срочно надо...((( 1) Составите массив из 5 фамилий и выведете их на экран те из них, которые начинаются с определенной буквы, которая вводится с клавиатуры. 0

@Daty 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 10
	09.06.2013, 15:32 [ТС]	3
	Спасибо Вам! =) А вы бы не могли бы помочь вот с этой еще задачкой? Опишите множество Alf('а'..'я') и поместите в него гласные буквы. Создайте диалог проверки наличия в множестве согласных букв. 0

Опции темы

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

Решение