Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Задайте строковый массив. Найдите и выведите на экран те элементы, которые имеют длину слова, равную пяти https://www.cyberforum.ru/ turbo-pascal/ thread1378549.html
Здравствуйте! Помогите пожалуйста с написанием программы! Задайте строковый массив. Найдите и выведите на экран те элементы, которые имеют длину слова, равную пяти. 		Для заданной квадратной матрицы сформировать одномерный массив из элементов диагоналей, параллельных главной Turbo Pascal
Для заданной квадратной матрицы сформировать одномерный массив из элементов диагоналей, параллельных главной. Найти след матрицы, суммируя элементы одномерного массива.
Turbo Pascal Для заданной квадратной матрицы найти минимум среди максимальных по модулю элементов диагоналей Для заданной квадратной матрицы найти минимум среди максимальных по модулю элементов диагоналей, параллельных побочной диагонали матрицы и расположенных выше нее. https://www.cyberforum.ru/ turbo-pascal/ thread1378430.html Turbo Pascal Упорядочить элементы матрицы методом просеивания https://www.cyberforum.ru/ turbo-pascal/ thread1378317.html
Дана действительная матрица А размерности nxn. Каждый столбец содержит хотя бы один положительный элемент. Если максимальный элемент матрицы не превосходит удвоенного среднего арифметического элементов, расположенных над главной диагональю, то упорядочить элементы каждого столбца матрицы по возрастанию методом просеивания. В противном случае матрицу оставить без изменения.
Turbo Pascal Нелинейное уравнение методом половинного деления
Решить следующее нелинейное уравнение f(x)=cth(x+2)+(x+3)-8=0 методом половинного деления на отрезке x є 1 c точностью e = 0,00000001 Определите какое количество обращений к вычислению f (x) потребовалось для нахождения кореня уравнения с заданной точностью. 		Turbo Pascal Составить одномерный массив Помогите пожалуйста как можно быстрее составить одномерный массив. Одномерный массив размерности 17 заполнить случайными числами из диапазона . Вывесите сформулированный массив на экран. Переместить нулевые элементы массива в начало, сдвинув остальные элементы вправо. Вывести массив на экран. https://www.cyberforum.ru/ turbo-pascal/ thread1378216.html
Turbo Pascal Вычислить функцию https://www.cyberforum.ru/ turbo-pascal/ thread1378153.html
X-вводится с клавиатуры y=\left(\frac{1}{2\pi x} \right)^{\frac{1}{2}}\,\sqrt{\frac{\ln (\sin x)}{\sin 2x+\cos x}} 		Turbo Pascal Сформировать массив записей (не менее 5), содержащий данные по студентам
Задача такая:Сформировать массив записей (не менее 5), содержащий данные по студентам в следующем виде: «Фамилия Имя Группа ГР RS», где ГР – год рождения, RS – средний рейтинг (данные можно считывать из предварительно набранного текстового файла). Осуществить сортировку массива методом выбора. Писал на Турбо Паскале для Виндовс,при компиляции выдает ошибку 105 ,ругается на Writeln.Помогите...
Turbo Pascal Найти среднее арифметическое чисел помогите написать найти - среднее арифметическое чисел x, у, с - сумма чисел х,у,с - произведение чисел x, у, с программа должна содержать: - одну процедуру с параметрами/ом https://www.cyberforum.ru/ turbo-pascal/ thread1377946.html Turbo Pascal Сложить все положительные элементы до первого нулевого элемента и найти их число https://www.cyberforum.ru/ turbo-pascal/ thread1377943.html
сложить все положительные элементы до первого нулевого элемента и найти их число. дан массив А(10)
Turbo Pascal В случайно заполненной матрице найти сумму и количество одноцифровых чисел
В матрице NxM заполненной случайно найти сумму и количество элементов, которые являются одноцифровыми числами. 		Turbo Pascal В одномерном массиве найти наибольший элемент и поменять его местами с последним элементом https://www.cyberforum.ru/ turbo-pascal/ thread1377917.html
В одномерном массиве из 15 вещественных чисел найти наибольший элемент и поменять его местами с последним элементом.
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
20.02.2015, 09:04 0

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

20.02.2015, 09:04. Показов 4752. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Александр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.


Вернуться к обсуждению:
Напишите программу, которая заполняет с клавиатуры массив 3x5 фамилиями, именами и отчествами Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.02.2015, 09:04
Готовые ответы и решения:

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

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

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

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

1
20.02.2015, 09:04
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 натуральными числами и выводит его. Входные...

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