Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 19.02.2015
Сообщений: 7
1

Напишите программу, которая заполняет с клавиатуры массив 3x5 фамилиями, именами и отчествами

19.02.2015, 17:37. Показов 3461. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста! Заранее спасибо)
Напишите программу, которая заполняет с клавиатуры массив 3x5 фамилиями, именами и отчествами (фамилии размещаются в первой строке, имена — во второй, отчества — в третьей). Определите, есть ли в списке однофамильцы и выведите на экран их имена и отчества.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2015, 17:37
Ответы с готовыми решениями:

Напишите программу, которая заполняет массив из 15 элементов. Данные вводятся с клавиатуры.
1. Напишите программу, которая заполняет массив из 15 элементов. Данные вводятся с клавиатуры.

Напишите программу, которая заполняет клавиатуры массив А(3,3) словами разного размера и заменяет в нем максимальное по длине слово каждого столбца
Напишите программу, которая заполняет клавиатуры массив А(3,3) словами разного размера и заменяет в...

Напишите программу, которая заполняет массив из 10 элементов с клавиатуры и находит сумму элементов
Напишите программу , которая заполняет массив из 10 элементов с клавиатуры и находит сумму...

Напишите программу, которая заполняет с клавиатуры массив словами разного размера и заменяет слова, оканчивающиеся на букву "я"
Напишите программу, которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет...

1
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
20.02.2015, 09:04 2
Лучший ответ Сообщение было отмечено Александр174 как решение

Решение

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
var
  a:array[1..3,1..5] of string[15];
  i,j,k:integer;
  ok,ok1:boolean;
begin
  writeln('Заполните массив');
  for i:=1 to 3 do begin
    for j:=1 to 5 do begin
      case i of
        1:write('Фамилия ',j,':');
        2:write('Имя ',j,':');
        3:write('Отчество ',j,':');
      end;
      readln(a[i,j]);
    end;
  end;
  writeln('Однофамильцы:');
  ok1:=false;
  for i:=1 to 5 do begin
    ok:=false;
    for j:=i+1 to 5 do
      if (a[1,j]<>'') and (a[1,j]=a[1,i]) then begin
        for k:=1 to 3 do write(a[k,j]:17);writeln;
        a[1,j]:='';
        ok1:=true;ok:=true;
      end;
    if ok then begin for k:=1 to 3 do write(a[k,i]:17);writeln;end;
  end;
  if not ok1 then writeln('не найдены');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2015, 09:04

Напишите программу, которая заполняет массив квадратами натуральных чисел от 1 до N
Входные данные Входная строка содержит размер массива N . Гарантируется, что 0 &lt; N ≤ 10000 .

Напишите программу, которая заполняет массив квадратами натуральных чисел от 1 до N
Напишите программу, которая заполняет массив квадратами натуральных чисел от 1 до N . Входные...

Напишите программу, которая заполняет массив случайными целыми числами
Напишите программу, которая заполняет массив случайными целыми числами, вводит с клавиатуры целое...

Напишите программу, которая заполняет массив первыми N натуральными числами и выводит его
Напишите программу, которая заполняет массив первыми N натуральными числами и выводит его. Входные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru