Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Типизированный файл содержит информацию https://www.cyberforum.ru/ turbo-pascal/ thread2326849.html Типизированный файл содержит информацию о файлах: имя файла, размер, дату создания. Создать текстовый файл-отчёт, содержащий список всех файлов с расширением «txt”, упорядоченный по имени. В качестве вспомогательной структуры данных использовать линейный список.	Сколькими способами можно покрасить некоторые шарики в желтый цвет (при соблюдении определенного условия)? Turbo Pascal Зеник и Маричка любят искать халяву. Вот она. В Зеника есть N синих шариков, на i-том шарике записано число Ai. Зенику интересно сколькома способами он сможет покрасить некоторые шарики в желтый цвет так, чтобы все числа, записаные на желтых шариках, были строго меньше за числа на синих шариках. Учтите, что Зеник должен покрасить хотя бы один шарик в желтый цвет(но все шарики он покрасить...
Turbo Pascal Pascal. Нужно сравнить 100 чисел https://www.cyberforum.ru/ turbo-pascal/ thread2326511.html Пытался создать программу по сравнению 100 чисел, но в итоге сравнивал не само число а его порядковый номер.	Turbo Pascal Вычислить с точностью Eps. Вычислить с точностью Eps - приближенное значения функции (е^x-e^(-x))/2 по формуле: S = x + (x^3/3!)+(x^5/5!)+... , используя формулу для вычисления члена ряда, - точное значение функции (е^x-e^(-x))/2, - абсолютную и относительную ошибки приближенного значения. https://www.cyberforum.ru/ turbo-pascal/ thread2326484.html
Поможет или нет? Turbo Pascal К Тойлет-мену очень часто обращаются за помощью разные люди. Но могучий гигант всем помочь не сможет. Именно потому, когда ему приходит какое-то SMS он согласится помочь тогда, когда найдется хотя бы K вхождений строки 'TOILET', КОТОРЫЕ НЕ ПЕРЕСЕКАЮТСЯ. За введеным сообщением S, выведите 'YES', если Тойлет-мен согласится помочь, если это не так - выведите 'NO'. Входные данные В первой строке...	Turbo Pascal Робот Недавно родители подарили Пете робота, которого можно программировать. Сначала робот находится в точке(0;0). Петя вводит роботу набор команд, которые тот исполняет от первой к последней. Существует два типа комманд: 1.U - перейти на 1 вверх (с точки (x,y) в точку (x,y+1)). 2.R - перейти на 1 вправо (с точки (x,y) в точку (х+1,у)). Петя запрограммировал робота последовательностью команд... https://www.cyberforum.ru/ turbo-pascal/ thread2326118.html
Turbo Pascal Блок-схема к этой задаче https://www.cyberforum.ru/ turbo-pascal/ thread2326063.html program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i, minLen, B,A, c : integer; s : string; begin readLn(s);	Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа Turbo Pascal Даны вещественные числа a и b (a<b). Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа, равномерно распределенные на отрезке . Найти в матрице строку с минимальным элементом и поменять её местами с первой строкой.
Turbo Pascal Определить, можно ли построить треугольник с заданными длинами сторон По трем введении вещественным числам выяснить, можно ли построить треугольник с такими длинами сторон, и если можно то какой это треугольник: равносторонний, равнобедренный,прямоугольный или общего вида. https://www.cyberforum.ru/ turbo-pascal/ thread2325832.html	Turbo Pascal Напечатать таблицу истинности для логической функции https://www.cyberforum.ru/ turbo-pascal/ thread2325831.html Напечатать таблицу истинности для логической функции. (A<>B<>C)↑neA. Где ↑ дизъюнкция.
Перевод из си в паскаль Turbo Pascal #include <stdio.h> #include <stdlib.h> int main(int argc, char ** argv) { const int size = 100; int array = (int) malloc(sizeof(int) * size); int i; int left = 1; int right = 100;	Turbo Pascal Сортировка по убыванию из файла с выводом в другой файл https://www.cyberforum.ru/ turbo-pascal/ thread2325771.html Требуется написать программу, с использованием 2 мерного массива, без процедур. Исходные данные: Дан список владельцев телефонов (10 человек) в виде ФАМИЛИЯ(15симв) ТЕЛЕФОН(9симв) Данные в одной строке отделяются друг от друга пробелами. Отсортировать этот список в порядке убывания номеров телефонов , используя метод вставок.

Puporev

Почетный модератор

64303 / 47600 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

28.09.2018, 16:29

Дан фрагмент программы - Turbo Pascal - Ответ 12930201

28.09.2018, 16:29. Показов 1108. Ответов 4

Метки (Все метки)

Ответ

Можно так.

Pascal

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 позволяет типы и переменные на кириллице?

Это просто часто задания в таком виде дают.

Вернуться к обсуждению:
Дан фрагмент программы Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

28.09.2018, 16:29

Готовые ответы и решения:

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

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

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

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

	28.09.2018, 16:29

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

28.09.2018, 16:29

Помогаю со студенческими работами здесь

Написать фрагмент программы для вывода последовательности чисел
написать фрагмент программы для вывода последовательности чисел вида 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 Заранее...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? 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-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх