Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Матричный метод решения систем линейных уравнений https://www.cyberforum.ru/ turbo-pascal/ thread223201.html Помогите с программой на решение систем линейных уровнений матричным методом! Буду очень благодарень PS: С НОВЫМ ГОДОМ!	Turbo Pascal Отр_Т Здравствуйте всем. Как вывести матрицу RandomОМ в разброс с отрицательными и положительными числами Program Matrix2; Uses Crt; label a1; const n=3; m=5; var a:array of byte; s1:array of integer; {novuy massiv} i,j,s:integer;
Turbo Pascal Програмка на указатели! И вот ещё одна нехорошая программа: Используя 1н просмотр текстового файла , вывести все его строки в порядке увеличения содержания в них цифр (строки должны содержать цифры). Добавлено через 3 минуты И вот ещё одна нехорошая программа: Используя 1н просмотр текстового файла , вывести все его строки в порядке увеличения содержания в них цифр (строки должны содержать цифры). Во время... https://www.cyberforum.ru/ turbo-pascal/ thread223162.html	Turbo Pascal Програмулина на тему файл https://www.cyberforum.ru/ turbo-pascal/ thread223159.html type Tima = record hour: 0..23; min,sec: 0..59; end; Fita = file of tima; Программа, содержащая логическую функцию Equt (var a,b: Fita) Проверяет на равенство файлы типа Fita Хз как её строить.. но вот есть небольшая заготовка: Program PavlovSravnenie; uses crt; Type Tima = record hour:0..23; min,sec:0..59; end;
Turbo Pascal Ctrl+Break в DOSBOX Здравствуйте, всех с праздником! На 7ке 64 bit запускаю TP через DOSBOX (0.74), разумеется, при написании программ допускаю ошибки. Из-за того что DOSBOX использует функциональные клавиши не работает сочетание Ctrl+Break. Можно ли перенастроить клавиши либо в самом паскале либо в DOSBOX для более удобной работы?	Turbo Pascal Разработать программу "Заявка на авиабилеты" https://www.cyberforum.ru/ turbo-pascal/ thread223135.html Привет)))) Помогите Составить программу в Turbo Pascal, которая содержит текущую информацию о заявках на авиабилеты. Каждая заявка содержат: 3 пункт назначения; 3 номер рейса; 3 фамилию и инициалы пассажира; 3 желаемую дату вылета; Программа должна обеспечивать: 3 хранение всех заявок в виде двоичного дерева; 3 добавление и удаление заявок; 3 по заданному номеру рейса и дате вылета вывод...
Turbo Pascal Записать в стек 5 целых двузначных числа и вывести рядом их суму https://www.cyberforum.ru/ turbo-pascal/ thread223131.html Помогите))) пожалуйста)))	Turbo Pascal Для заданных натуральных n и a1,...an определить количество членов являющихся нечетными числами Для заданных натуральных n и a1,...an определить количество членов являющихся нечетными числами и одновременно имеющих четные номера.
Turbo Pascal Значение множеств;рисование фигуры.. https://www.cyberforum.ru/ turbo-pascal/ thread223123.html Всех с НГ. Прошу прощения если не правильно задаю вопросы. Мне поставили задачи по информатике (1-й курс), которые я должен выполнить в Тurbo Pascal 7.0. Специально для решения поставленных задач приобрел книгу (Турбо Паскаль 7.0). Алексеев Е.Р., Чеснокова О. В., Москва 2009 г.) К сожалению, если начинать с нуля, даже с книгой и наличием интернета пока задачи не решил. Ребята, прошу...	Turbo Pascal Разбор слова на символы и их запись в массив например дано слово 'любовь' нужно засунуть это слово по символам в массив var hz:array of string;я ато решил посмеятся над игрописанием и думаю вообще программистами и написать примитивную игру висилица правда она будет хуже чем вреале:( но надо срочно пока все мысли не пропали и желание писать https://www.cyberforum.ru/ turbo-pascal/ thread223104.html
Turbo Pascal Учебники Какие посоветуете учебники для изучения Turbo Pascal? Или какие-нибудь сайты?	Turbo Pascal Кортеж, имеющий наименьшее количество отрицательных компонентов, домножить на значение R Дано целое число M, вещественное число X, вещественные кортежи A,B , C кортеж, имеющий наименьшее кол-во отрицательных компонентов (такой кортеж только 1), домножить на значение R, где R = X для кортежа A,R=sqr(x) для кортежа B и R = X/10 для кортежа C. Написал вот такую прогу: program PavLab6; uses crt; const m=10; var i,s: integer; x,r,min:real; a,b:array of real; c:array of real;... https://www.cyberforum.ru/ turbo-pascal/ thread223058.html

Dimson_KZ

1 / 1 / 0

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

Сообщений: 61

Простенькие блоксхемы! - Turbo Pascal - Ответ 1254113

02.01.2011, 11:40. Показов 555. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Помогите написать блоксхемы на 2 маленькие программы!

Pascal

var s: string;
    i, n, z: integer;
begin
readln (s);
n:=length(s);
for i:=1 to n do
 if s[i] = ',' then z := i;
Writeln (z);
Readln;
end.

Поиск последней запятой!

Pascal

var s: string;
    i, fst,lst: integer;
begin
readln (s);
fst:=pos(',',s);
for i:=length(s) downto 1 do
if s[i]=',' then
lst:=i;
writeln (lst);
end.

Поиск 1вой запятой!

Вернуться к обсуждению:
Простенькие блоксхемы! Turbo Pascal

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

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

Programming

Эксперт

9485 / 562 / 19

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

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

Блог

02.01.2011, 11:40

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

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

Блоксхемы оч оч нада!=((
Пожалуста ПОЖАЛУСТО! можете ктонить зделать блоксхемы на 2 этих программы 1 НОК двух чисел uses...

Решите простенькие задания
Ввод входных данных: может быть организован только из текстового файла. Вывод результатов: только...

Простенькие задачки на цикл с параметром
Народ...эт новое для мя.я студент "учитель информатики" и буду вести практику....мне какие нибудь...

	02.01.2011, 11:40

cpp_developer

Эксперт

20123 / 5690 / 417

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

Сообщений: 12,546

Блог

02.01.2011, 11:40

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

напишите блоксхемы
program V16_N1; uses crt; var i,j,k:integer; x,z:real; begin clrscr; writeln('‚ўҐ¤ЁвҐ i,j,k:...

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

Блоксхемы
Найти квадратное большее из 2 чисел а и в и вывести в печать n=1если а наибольшее или n=2 если...

Составить блоксхемы
1.Дана символьная строка. Слово - последовательность символов между пробелами,не содержащее пробелы...

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

Наверх