С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 28.09.2018
Сообщений: 2
1

Дан фрагмент программы

28.09.2018, 15:34. Показов 1107. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан фрагмент программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
Const n=5;
Type 
  Страна=(Россия,США, Франция, Германия, Китай, Гондурас) 
  Персона=Record 
        ФИО:  string [40];
         Родина: страна;
         Проживает: страна; 
End;
 
Var
   Список: array [1..n] of персона;
Вывести список всех граждан, проживающих на своей родине.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.09.2018, 15:34
Ответы с готовыми решениями:

Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы
Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы....

Дан фрагмент программы. Определить что будет выдано на печать
Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы....

Дан фрагмент, переписать на язык паскаль
k:=9; y:=0; нц для i от k до 3 шаг -2 y:=y+k-4; кц Извините за глупый вопрос, помогите...

Сколько раз выполняется фрагмент программы?
Сколько раз выполняется фрагмент программы?: For i:=-1 to 1 Do k :=k*i;

4
Модератор
9644 / 6251 / 2426
Регистрация: 21.01.2014
Сообщений: 26,668
Записей в блоге: 3
28.09.2018, 16:01 2
Хм-м... Turbo Pascal позволяет типы и переменные на кириллице? Вот уж сомневаюсь...
0
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
28.09.2018, 16:29 3
Можно так.
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
uses crt;
const n=5;
type country=(rus,usa,frn,ger,chin,gond);
     person=record
            fio:string[40];
            rod:country;
            prz:country;
            end;
const nazv:array[0..n] of string=('Россия','США','Франция','Германия','Китай','Гондурас');
var sp:array[1..n] of person;
    i,k:byte;
begin
randomize;
writeln('Введите сведения о персонах');
for i:=1 to n do
with sp[i] do
 begin
  write('Введите ФИО: ');readln(fio);
  rod:=country(random(n+1));
  prz:=country(random(n+1));
 end;
writeln('Список персон');
k:=0;
for i:=1 to n do
 begin
  writeln(sp[i].fio,' ',nazv[ord(sp[i].rod)],' ',nazv[ord(sp[i].prz)]);
  if  sp[i].rod=sp[i].prz then inc(k);
 end;
writeln;
writeln('Количество проживающих на родине=',k);
readln
end.
Добавлено через 1 минуту
Цитата Сообщение от D1973 Посмотреть сообщение
Turbo Pascal позволяет типы и переменные на кириллице?
Это просто часто задания в таком виде дают.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7795 / 4618 / 2831
Регистрация: 22.11.2013
Сообщений: 13,117
Записей в блоге: 1
28.09.2018, 17:15 4
А если
Pascal
9
const nazv: array [country] of string=('Россия','США','Франция','Германия','Китай','Гондурас');
то не придется использовать Ord для индекса.

Кроме того, n двусмысленная получилась -- не то количество персон (по условию), не то количество стран (строки 19-20).
Pascal
19
20
  rod:=country(random(High(country)+1));
  prz:=country(random(High(country)+1));
Добавлено через 2 минуты
И раз уж используется with ... do, то и в 24-28 ему самое место:
Pascal
24
25
26
27
for i:=1 to n do with sp[i] do begin
  WriteLn(fio,' ',nazv[rod],' ',nazv[prz]);
  if rod=prz then Inc(k);
end;
0
Модератор
9644 / 6251 / 2426
Регистрация: 21.01.2014
Сообщений: 26,668
Записей в блоге: 3
28.09.2018, 17:21 5
Цитата Сообщение от Puporev Посмотреть сообщение
Это просто часто задания в таком виде дают.
Знать буду...
0
28.09.2018, 17:21
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.09.2018, 17:21
Помогаю со студенческими работами здесь

Написать фрагмент программы для вывода последовательности чисел
написать фрагмент программы для вывода последовательности чисел вида 1_2_3 4_5_6 7_8_9 ...._n

Дан фрагмент программы,обрабатывающий массив из 10 элементов...
Дан фрагмент программы,обрабатывающий массив из 10 элементов: N=10; S:=0; FOR I:=1 TO N DO...

Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая присваивает параметр типа ассортимент
Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая по информации из...

Напишите фрагмент программы
Пожалуйста, напишите фрагмент программы: 1) y = a * b (a + b) 2) y = a * b / a + b Заранее...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru