Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Процедура для нахождения просроченного товара - исправить синтаксические ошибки // процедура для нахождения просроченного товара procedure ptovar (const Base:TBaseMass; const NumOfRec: byte); var i,j,k:byte; prostovar:string; begin if NumOfRec <> 0 then writeln; writeln ('введите сегодняшнию дату'); readln(prostovar); for i:= 1 to NumOfRec do https://www.cyberforum.ru/ pascalabc-net/ thread1475650.html PascalABC.NET Вычисление суммы квадратов чисел от 1 до N (с комментариями)
С помощью цикла «пока» или цикла «до» написать программу вычисления суммы S квадратов чисел от 1 до N.
PascalABC.NET Вывести сумму чисел, которые делятся на 3 с остатком 2 https://www.cyberforum.ru/ pascalabc-net/ thread1475375.html
program qwe; var i,k,n: integer; begin repeat if i mod 3 = 2 then inc(k,3); n:=i+k; write(n); until i<1000; end.
PascalABC.NET Заполнить матрицу по спирали Дано натуральное число N(1<=N<=10). Заполнить матрицу порядка NxN целыми числами порядка 0, 1, 2, 3,..., N^2 - 1 в соответствии со схемой расположения определенной на рисунке. Важное замечание! Заполнение матрицы необходимо организовать таким способом: найти соотношение между элементом К и его индексами , т.е функцию вида F(K, N)= <i, j>, которая по номеру К элемента в змейке возвращает его... https://www.cyberforum.ru/ pascalabc-net/ thread1475098.html
PascalABC.NET Графическое отображение домино. Составить цепочку из 7 фишек (нужны комментарии)
Откомментируйте процедуру MakeChain, пожалуйста. Вот формулировка задания:Графическое отображение домино.Нужно составить цепочку из 7 фишек. Вводится 7 пар чисел(например, 1 2 2 3 3 4 ...
PascalABC.NET Найти произведение элементов последовательности Пусть a0=a1=1; ai=ai-2+(ai-1/2i-1), i=2,3... найти произведение a0*a1*....a14 https://www.cyberforum.ru/ pascalabc-net/ thread1474858.html
PascalABC.NET Вычислить выражение через процедуры с параметрами, либо без параметров Даны действительные числа a,b,c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc,1,15)) https://www.cyberforum.ru/ pascalabc-net/ thread1474852.html PascalABC.NET Получить цифры, составляющие сумму заданных чисел
Помогите пожалуйста решить данную задачу с оператором выбора case. Даны цифры двух десятичных целых чисел: трехзначного а3а2а1 и двухзначного b2b1, где а1 и b1 - число единиц; а2 и b2 - число десятков; а3 - число сотен. Получить цифры, составляющие сумму этих чисел (известно, что это число трехзначное). Число-уменьшаемое, число-вычитаемое и число-разность не определять.
PascalABC.NET Отыскать среди пар элементов одномерного массива z(x) те пары, разность между элементами которых наибольшая https://www.cyberforum.ru/ pascalabc-net/ thread1474725.html
Здравствуйте, уважаемые программисты! У меня вопрос. Нужно составить программу отыскивающую среди пар элементов одномерного массива z(x) те пары, разность между элементами которых есть величина наибольшая для данного массива. Я составил программу, но она выводит в результате только наибольшую разность. program p16_1; Var z:array of real; n:integer; x:real; Begin for n:=1 to 10 do ...
PascalABC.NET Найти сумму элементов массива, расположенных между первым и последним отрицательными элементами Задание:В одномерном массиве, состоящем из N вещественных чисел вычислить: 1) Сумму элементов массива с нечетными номерами. 2) Сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сжать массив,удалив из него все элементы,модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями. p.s Только можно если что код по... https://www.cyberforum.ru/ pascalabc-net/ thread1474460.html
PascalABC.NET Определить, сколько среди данных чисел равно нулю
Определить, сколько среди данных чисел равно нулю. В условии задачи дана произвольная последовательность чисел. Эти числа должны сообщаться программе как параметры командной строки. Результат должен: 1) Выводиться на экран в понятном виде. 2) В таком же виде печататься в файл result.txt. Работать должна через far
PascalABC.NET Как обратиться к полю наследника класса Создал наследника класса PictureABC, обладающего уникальными полями. В процессе работы потребовалось найти этот объект и обратиться к его уникальному полю. PictureABCHeir = class(PictureABC) private uniqueVar: Integer; public constructor Create //... end; https://www.cyberforum.ru/ pascalabc-net/ thread1474338.html
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.06.2015, 08:33 0

Изменить код, чтобы год рождения тоже выводился в упорядоченный массив - PascalABC.NET - Ответ 7751966

12.06.2015, 08:33. Показов 437. Ответов 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
38
39
40
41
42
43
44
45
46
47
uses crt;
type
  tzap = record        {Описание типа для одной записи списка}
    Fio: string[15];
    uch: byte;
    adres: string[10];
    god:word;
  end;
var
  Spis: array[1..100]of tzap;    {Описание списка}
  N, i, j: word;
  x: tzap;
 
begin
  Write(' Введите число записей в списке N = ');
  Readln(N);
  Writeln('Введите список по полям - каждое поле с новой строки');
  for i := 1 to N do
  with Spis[i] do
   begin
    Write(' ФИО - 15 символов  ');
    Readln(Fio);
    Write(' Домашний адрес - 10 символов  ');
    Readln(adres);
    Write(' Номер участка - 1-255  ');
    Readln(uch);
    Write(' Год рождения - от 1910 до 2000  ');
    Readln(god);
   end;
 //Упорядоченный список
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if spis[i].god>spis[j].god then
  begin
   x:=spis[i];
   spis[i]:=spis[j];
   spis[j]:=x;
  end; 
 Writeln(' Упорядоченный массив');
 for i := 1 to n do 
  begin
   write('Гражданин № ',i);
   with Spis[i] do
   writeln(fio,' ',adres,' ',uch,' ',god);
  end; 
 readkey;
end.


Вернуться к обсуждению:
Изменить код, чтобы год рождения тоже выводился в упорядоченный массив PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2015, 08:33
Готовые ответы и решения:

Как изменить код чтобы выводился номер дня с начала года?
Насколько я поняла, 24-29 определяет количество дней от текущей даты до введённой. Как можно...

Как изменить код чтобы результат программы выводился отделным текстовым файлом?
n = 15; atext: array of char = ('0','1','2','3','4','5','6','7','8','9'); acode: array of...

Изменить код, чтобы в начале программы выводился запрос для ввода размера стека
Нужно изменить пример так, чтобы в начале работы программы выводился запрос для ввода размера...

Изменить запрос, чтобы еще выводился код абонемента, для которого указана максимальная цена
Помогите пожалуйста!!!!SELECT Абонементы.Код_зала, Max(Абонементы.Цена) AS МАХ,...

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

Ввести день, месяц, год рождения. чтобы определился знак вашего зодиака по дате рождения. Неправильно работает программа
Создайте консольное приложение. Напишите программу, с помощью которой можно будет наглядно ввести...

Нужно изменить программу, нужно тоже самое, только чтобы код программы был другим
unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1...

Составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код
составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код

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

Изменить программу, чтобы выводился весь файл, а не только первая строка
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; struct a { int id; char service; } ; ...

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

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