Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Определить, сколько раз в строке встречается заданное слово. https://www.cyberforum.ru/ pascal/ thread140709.html
Определить, сколько раз в строке встречается заданное слово. 		Pascal В текстовом файле заменить символы псевдографике.
В данном текстовом файле заменить символы псевдографики на подходящие символы,коды которых от 32 до 127.
Pascal Преобразовать строку, удалив каждый символ * и повторив каждый символ, отличный от *. Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. https://www.cyberforum.ru/ pascal/ thread140706.html Pascal Написать, какие буквы и сколько раз встречаются в тексте Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в этом тексте. Ответ должен приводиться в грамматически правильной... https://www.cyberforum.ru/ pascal/ thread140704.html
Вывести на экран длину наибольшей последовательности цифр, идущих подряд Pascal
Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. Помогите. 		Pascal Написать программу, которая выводит таблицу квадратов первых пяти целых продолжительных нечетных чисел Помогите написать программу: Написать программу, которая выводит таблицу квадратов первых пяти целых продолжительных нечетных чисел, вводимых с клавиатуры. https://www.cyberforum.ru/ pascal/ thread140702.html
Pascal паскаль файлы Помогите пожалуйста найти ошибку в программе!!Очень срочно нужно( Прога формирует файл содержащий список студентов в виде:№ имя фамилия отчество курс факультет условия приема экз.оценки.Ошибка именно... https://www.cyberforum.ru/ pascal/ thread140700.html Pascal Заменить встроке S все вхождения строки S1 настроку S2
переведите прогу пожалуйста с C++ на Pascal сам текст задачи таков.Даны строки S,S1 и S2. Заменить встроке S все вхождения строки S1 настроку S2. #include <iostream> #include <string> using...
Pascal Определить,являются ли 2 слова дружественными. https://www.cyberforum.ru/ pascal/ thread140695.html
Два слова назовем дружественными,если из букв одного можно составить другое и из букв второго составить первое.Даны два слова.Будут ли они дружественными? 		Pascal Стрроковые функции помогите сделать Даны строки S и S0.Найти количество вхождений строки S0 в строку S. https://www.cyberforum.ru/ pascal/ thread140692.html
процедуры Pascal
создать программу где при вводе определенного автора на экране будет выводится книги написанные им..используя процедуры и функции 		Pascal Циклическое высчитывание сумм и произведений, с последующим добавлением функции. Имеются 2 программы: program lab3s; uses CRT; var i,m,n:integer; var ch,k,l:real; s:char; f:boolean; begin clrscr; writeln; https://www.cyberforum.ru/ pascal/ thread140682.html
180 / 179 / 163
Регистрация: 30.04.2010
Сообщений: 260
04.06.2010, 11:37 0

Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев. - Pascal - Ответ 778997

04.06.2010, 11:37. Показов 2909. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

uses crt;
var
a:array[1..100] of string;
n,i,j:integer;
odn:array[1..100] of integer;
begin
clrscr;
write('Vvedite kolvo uchenikov '); readln(n);
for i:=1 to n do
 begin
  write('Vvedite familiyu i initiali uchenika #',i,' ');
  {naprimer Ivanov A. A.}
  readln(a[i]);
 end;
for i:=1 to n do
 begin
 odn[i]:=0;
  for j:=1 to n do
   begin
   {5 simbolov v konce familii videlyaem na initiali
    naprimer vmesto Ivanov A. A. proveryem Ivanov}
    if i<>j then
     begin
      if copy(a[i],1,length(a[i])-5)=copy(a[j],1,length(a[j])-5) then
       odn[i]:=odn[i]+1;
     end;
   end;
 end;
writeln;
for i:=1 to n do
 begin
  write('Familiya: ',a[i]);
  write('  odnofamilci:',odn[i]);
  writeln;
 end;
readln
end.


Вернуться к обсуждению:
Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев. Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.06.2010, 11:37
Готовые ответы и решения:

Напечатать список класса с указанием для каждого ученика количество его однофамильцев
В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список класса...

Напечатать список класса с указанием для каждого ученика количество его однофамильцев
1)В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список...

Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев
В строковом массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список класса...

Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев
В символьном массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.06.2010, 11:37
Помогаю со студенческими работами здесь

Требуется напечатать список класса с указанием для каждого ученика количества его однофамильцев
В символьном массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список...

Напечатать список класса с указанием для каждого ученика количества его однофамильцев
В универе дали задание написать прогу(далее текст задания) В строковом массиве хранятся фамилии...

Напечатать список класса с указанием для каждого ученика количества его однофамильцев
В символьном массиве хранятся фамилии и инициалы учеников класса. Требуется напечатать список...

Напечатать список класса с указанием для каждого ученика количества его однофамильцев
Помогите решить задачу: В символьном массиве хранятся фамилии и инициалы учеников класса....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru