Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal замена одного фрагмента строки другим составить программу замены одного фрагмента строки другим. буду очень признательна!)))))))))))) https://www.cyberforum.ru/ pascal/ thread72938.html определить самою большую цифру числа и ее позицию в нем Pascal
дано натуральное число N. определить самою большую цифру этого числа и ее позицию в нем! помогите, пожалуйста!!!! не допускают к зачету!!!!
Pascal программа построения Строфоиды Здравствуйте граждане,все никак не могу сообразить что делать с этой задачей, Написать программу, которая выводит на экран линию, заданную в параметрическом виде X=f(t),Y=g(t). Кроме графика... https://www.cyberforum.ru/ pascal/ thread72934.html Pascal подсчитать число сдвоенных символов. В некотором тексте(например,когда отладка завершена,компьютер,несомненно,решает какую-то задачу).Нужно подсчитать число сдвоенных символов. Как написать эту программу?помогите пож-та :)) https://www.cyberforum.ru/ pascal/ thread72930.html
Pascal Строфоида
Добрый день,не могу разобраться с этим заданием Написать программу, которая выводит на экран линию, заданную в параметрическом виде X=f(t),Y=g(t). Кроме графика вывести на экран оси координат и...
Pascal База данных из записей https://www.cyberforum.ru/ pascal/ thread72927.html
дано такое задание База данных должна содержать не менее трех записей с 5 полями Необходимо-1)создать с клавиатуры 2)вывести на экран 3)добавить одну запись 4)удалить одну запись 5)сортировать...
Pascal Сортировка масива М*N. https://www.cyberforum.ru/ pascal/ thread72925.html
Наведите пример сортировки массива розмерностью М*N пожалуйста. Сел сам розбираться, но что-то не выходит...
Перевести число, записанное римскими... Pascal
Перевести число, записанное римскими цифрами, в десятичную систему счисления, и наоборот. Проверить правильность записи римского числа..
Pascal вывести заданную в константе информацию об учениках, program zeck; uses CRT; type Tmarks=record fis,matan,progr,inger,inf:1..5; s:real; end; student=record fam:string; https://www.cyberforum.ru/ pascal/ thread72918.html Pascal По блок-схеме составить программу https://www.cyberforum.ru/ pascal/ thread72917.html
Люди добрые, помогите найти ошибку! Вообщем мне по блох-схеме надо составить программу! Прогу написал, но где то, видимо, напартачил с begin & end -ми! Вот блок схема: А вот сам код программы:...
Вычитание и умножение двух дробей Pascal
Напишите программу с использованием процедур для выполнения арифметических действий с обычными дробями: вычитание и умножение двух дробей. Результат получить в сокращенной форме.
Pascal Масиви. Процедуры и функции. Записи. Прошу помочь выполнить три задачи на три темы : №1 Заменить в матрице М*М рядки в соответствии с правилом 1>3, 2>4 и т.д. ; №2 ; №3 Ввести масив записей, который имеет ведомости про... https://www.cyberforum.ru/ pascal/ thread72912.html
58 / 57 / 5
Регистрация: 01.12.2009
Сообщений: 177
10.12.2009, 22:15 0

Разработать программу, которая читает c клавиатуры данные о лицах ...прог. record - Pascal - Ответ 407500

10.12.2009, 22:15. Показов 2764. Ответов 1
Метки (Все метки)

Ответ

Delphi
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
type
Person=record
namesurname:string;
day:1..31;
month: 1..12;
year:integer
end;
listpersons=array [1..50] of Person;
 
var
  a:listpersons;
  i,z:integer;
begin
  for i:= 1 to 50 do
  begin
    with a[i] do
      begin
        write('Имя фамилия: '); readln(namesurname);
        write('День: '); readln(day);
        write('Месяц: '); readln(month);
        write('Год: '); readln(year);
      end;
      end;
      writeln('Введите Z месяц');
readln(z);
for i:=1 to 50 do
 begin
        with a[i] do
      begin
           if month=z then writeln (namesurname:20,' ', day:2,'.', month:2,'.', year:4);
      end;
 end;
readln
end.
доделайте еще б и в ребят.

Вернуться к обсуждению:
Разработать программу, которая читает c клавиатуры данные о лицах ...прог. record Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2009, 22:15
Готовые ответы и решения:

Разработать программу, которая вводит с клавиатуры данные о каждом студенте
Порядок выполнения работы 1. Составить список учебной группы, содержащей 15 студентов. 2. Указать...

Написать программу, которая читает с клавиатуры строки
Написать программу, которая читает с клавиатуры строки (максимальный размер строк-50 символов)....

Считать с клавиатуры данные об n лицах и записать их в файл
Друзья! Никак не могу понять, отчего в файл записываются лишь фамилия и имя... type data_rojd =...

Разработать программу, которая читает с файла MS Excel информацию о рейсах авиакомпании «Перелет»
Разработать программу, которая читает с файла MS Excel ( информацию о рейсах авиакомпании...

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

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

Разработать программу, которая читает текстовой файл и некоторую букву и выводит слова файла
Разработать программу, которая читает текстовой файл и некоторую букву и выводит слова файла,...

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

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

Составить программу, которая читает построчно текст другой программы (ввести с клавиатуры) на языке C (10 строк)
строки написать в паскале программу которая читает построчно текст другой программы (ввести с...

Разработать программу, которая читает файл, содержащий текст, определяет, сколько раз встречается в нем самое
Разработать программу, которая читает файл, содержащий текст, определяет, сколько раз встречается в...

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