Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Описать функцию Min2(A,B) вещественного типа, находящую минимальное из двух вещественных чисел A и B. https://www.cyberforum.ru/ turbo-pascal/ thread909983.html Описать функцию Min2(A,B) вещественного типа, находящую минимальное из двух вещественных чисел A и B. С помощью этой функции найти минимальные1\|максимальные2 из пар чисел A и B, A и C, A и D, если даны числа A, B, C, D.	Turbo Pascal Дано число k и файл, содержащий ненулевые целые числа. Вывести элемент файла с номером k (элементы файла нумеруются от нуля). Если такой элемент отсут Дано число k и файл, содержащий ненулевые целые числа. Вывести элемент файла с номером k (элементы файла нумеруются от нуля). Если такой элемент отсутствует, то вывести 0
Turbo Pascal Вывести информацию об абонентах определенной АТС https://www.cyberforum.ru/ turbo-pascal/ thread909959.html Вариант 14 http://petromi.com/get/c6d682179a.png	Turbo Pascal Получить общую стоимость проданных фирмой товаров за два месяца. 1. Фирме принадлежат два магазина. Известна стоимость товаров, про¬данных в каждом магазине за каждый день в июле и августе, которая хранится в двух массивах. Получить общую стоимость проданных фирмой товаров за два месяца. https://www.cyberforum.ru/ turbo-pascal/ thread909944.html
Turbo Pascal Дан массив. Найти сумму элементов массива, значение которых не превышает 20 1. Дан массив. Найти сумму элементов массива, значение которых не превышает 20;	Turbo Pascal Составить программу определения среднего арифметического положительных чисел последовательности https://www.cyberforum.ru/ turbo-pascal/ thread909931.html Дана последовательность N вещественных чисел. Составить программу определения среднего арифметического положительных чисел последовательности (ноль за положительное число) цикл для 17, 20.
Turbo Pascal Создать и распечатать массив случайных чисел в диапазоне от -15 до 20 https://www.cyberforum.ru/ turbo-pascal/ thread909911.html Помогите сделать Создать и распечатать массив случайных чисел в диапазоне от -15 до 20. Создать главное меню и следующие процедуры: a) Выписать номера элементов, больших среднего арифметического всех элементов; b) Поменять местами первый и последний элемент массива; c) Выписать элементы, стоящие на местах, кратных трем; d) Найти количество элементов, являющихся двузначными числами;...	ввести матрицу из целых чисел размерностью 10х10 Turbo Pascal ввести матрицу из целых чисел размерностью 10х10 найти максимальный элемент в тех столбцах,которые не содержат положительных элементов;перестроить строки и столбцы так что бы в левом верхнем углу оказался максимальный положительный элемент матрицы;и удалить строки и столбцы, состоящие только из нулей помогите плиз...в понедельник зачет(((( обязательно с введением в код F:text;
Turbo Pascal Графика: Изобразить на экране двух спортсменов, перекидывающих друг другу мяч Изобразить на экране двух спортсменов, перекидывающих друг другу мяч. При нажатии клавиши управления курсором "влево" мяч летит влево, при нажатии "вправо", вправо. При нажатии клавиши ESC программа заканчивает работу. https://www.cyberforum.ru/ turbo-pascal/ thread909774.html	Turbo Pascal Не хватает ";" https://www.cyberforum.ru/ turbo-pascal/ thread909771.html Где не зватает ";" или end??? Program zad_13; uses crt; var a:array of integer; i,n,num,min:integer; procedure vvod; begin clrscr; writeln ('‚ўҐ¤ЁвҐ ¬*ббЁў');
Арифметические действия с элементами массива, поиск, обмен, удаление, выделение элементов Turbo Pascal Создать и распечатать массив дробных чисел, вводимых с клавиатуры. Создать главное меню и следующие процедуры: a) Найти сумму целых элементов; b) Найти максимальный из всех отрицательных элементов; c) Выписать элементы, меньшие среднего арифметического всех элементов; d) Поменять местами наибольший и наименьший элемент массива; e) Удалить минимальный элемент массива; f) Выделить красным...	Turbo Pascal Не работает программа в Windows х64 Компилятор стоит на XP PRO x86, прога которую сделал на таком компиляторе не запускается на вин 7 ПРО х64, хотя режим совместимости в свойствах менял. https://www.cyberforum.ru/ turbo-pascal/ thread909712.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

23.06.2013, 14:11

Вывести список неповторяющихся фамилий - Turbo Pascal - Ответ 4760261

23.06.2013, 14:11. Показов 1705. Ответов 6

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

навскидку

Pascal

uses crt;
var temp,pres,s: string;
    f,g: text;
    k: integer;
 
function Kr(str: string): string;
begin
if (str[length(str)]='я') or (str[length(str)]='й')
   then Kr:=copy(str,1,length(str)-2) else
        if (str[length(str)]='а')
           then Kr:=copy(str,1,length(str)-1)
                else Kr:=str;
end;
 
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
readln(f,s);
pres:=copy(s,1,pos(' ',s)-1);
k:=1;
while not (eof (f)) do
      begin
      readln(f,s);
      temp:=Kr(copy(s,1,pos(' ',s)-1));
      if copy(pres,1,length(temp))=temp then inc(k) else
         begin
         if k=1 then writeln(g,pres);
         pres:=copy(s,1,pos(' ',s));
         k:=1;
         end;
      end;
close(f);
close(g);
end.

сделано в Pabc, но думаю, пойдет и в турбо

Вернуться к обсуждению:
Вывести список неповторяющихся фамилий Turbo Pascal

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.06.2013, 14:11

Готовые ответы и решения:

Список фамилий упорядочить по алфавиту.
Список фамилий упорядочить по алфавиту. помогите решить задачу - очень надо!:) входные данные -...

Список введенных фамилий упорядочить по алфавиту
Нужно список введенных фамилий упорядочить по алфавиту!!!

Упорядочить список фамилий, записанных латинскими буквами
Здравствуйте! Прошу Вашей помощи. Задача: Упорядочить список фамилий, записанных латинскими...

Выдать пронумирований список студентов с указанием фамилий и задолжностей
Нужно срочно написать программу помогите плиз Студенты сдали сессию 5 экзаменов Ввод данных с...

	23.06.2013, 14:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.06.2013, 14:11

Помогаю со студенческими работами здесь

Список фамилий, разделенных запятыми, записан в строке в произвольном порядке
Список фамилий, разделенных запятыми, записан в строке в произвольном порядке. Упорядочить его по...

Создать текстовый файл, в котором находится список из n фамилий и оценок за экзамен
Создать текстовый файл при помощи языка Паскаль в, котором находится список из n фамилий и оценок...

Вывести все слова, состоящие из неповторяющихся символов
Задача: Пусть дан текст, состоящий из слов. Под словом понимается последовательность литер, не...

Напечатать список постов с указанием фамилий дежурных, зарегистрировавших от пяти и выше ДТП
Помогите очень срочно,нужно решить и написать 2 задачи. Вот собственно задания. Одномерные...

Наверх