Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 09.06.2018
Сообщений: 87
1

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

09.06.2018, 21:29. Просмотров 645. Ответов 3
Метки нет (Все метки)

Необходимо ввести в файл фамилии, имени 6 человек. Вывести на экран данные фамилии и имена всех людей, у которых фамилии начинаются с 2 буквы, как и ваша фамилия. С помощью txt файла.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2018, 21:29
Ответы с готовыми решениями:

Вывести на экран имена и фамилии всех людей группы, родившихся в заданном году
Написать программу, которая: а) для группы людей создает записи - имя, фамилия, дата рождения...

Вывести те данные, в которых фамилии начинаются с определённой буквы.
Текстовые (фамилии и имена всех студентов)(20 разных фамилий) Вывести те данные, в которых...

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

Составить программу, которая печатает все фамилии людей из группы Пр, фамилии которых начинаются на букву Лит
Добрый вечер) нужно решить эту задачу, я рекорд воопще не понимаю, помогите пожайлуста) type str =...

3
Эксперт Pascal/Delphi
6367 / 4305 / 4633
Регистрация: 05.06.2014
Сообщений: 21,042
01.07.2018, 10:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  f: text;
  t, s: string;
 
begin
  write('Введите вашу фамилию: ');
  readln(t);
  assign(f, 'fio.txt');
  reset(f);
  writeln('Фамилии, удовлетворяющие запросу: ');
  while not eof(f) do
  begin
    readln(f, s);
    if s[1] = upcase(t[2]) then
      writeln(s);
  end;
  close(f);
end.
Файл fio.txt

Петров Петр
Петрова Катя
Сидоров Сидор
Сидорова Софья
Иванов Иван
Иванова Мария
Васильев Василий
Егоров Егор
Егорова Настя
Васильева Василиса
0
Модератор
62224 / 46519 / 32070
Регистрация: 18.05.2008
Сообщений: 112,452
01.07.2018, 11:00 3
Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
if s[1] = upcase(t[2]) then
Если текст на русском, то upcase не переводит в верхний регистр.
0
Эксперт Pascal/Delphi
6367 / 4305 / 4633
Регистрация: 05.06.2014
Сообщений: 21,042
01.07.2018, 12:18 4
Puporev, а, fpc же. Я проверял на pabc.net. Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.07.2018, 12:18

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

Вывести на экран анкетные данные студентов, фамилии которых начинаются на букву Б
Составить список, содержащий сведения об N студентах. Для каждого учащегося указать: - фамилия; -...

Вывести в текстовый файл фамилии пассажиров, фамилии которых начинаются на заданную букву
Помогите найти ошибку, не работает процедура Info()program lab4; uses crt; type item =...

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

Считать данные из файла и вывести на экран фамилии всех мужчин, вес и рост которых выше введенного значения
help Массив структур содержит информацию про 26 людей: Фамилия; Имя; пол; рост; вес. Считать...


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

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

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