Turbo Pascal

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

Войти

Другие темы раздела
Turbo Pascal Перевести целое десятичное число в систему счисления (от троичной до девятиричной) Программа на входе получает целое десятичное число и основание системы счисления в которой надо это число перевести, выводит переведённое число. (от троичной до девятиричной системы может ввести... https://www.cyberforum.ru/pascalabc/thread1869215.html	Turbo Pascal Определить букву Ученик вводит с клавиатуры букву русского алфавита. Компьютер должен сказать, какая это буква – гласная, согласная звонкая, согласная глухая или другая какая-нибудь (можно и НЕ ЗНАЮ). uses... Наверное, для русского языка правильно будет так:case bukva of 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я' : Write(' Гласная'); 'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'л', 'м', 'н', 'р' :... https://www.cyberforum.ru/ turbo-pascal/ thread2415764.html
Turbo Pascal Вывести все коды символов строки, введённой с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread2416319.html Вывести все коды символов строки, введённой с клавиатуры for i:=1 to length(s) do write(ord(s:4));	Turbo Pascal Пример программы с оператором case Пример программы с оператором case. uses Crt; Var a, k: Integer; begin ClrScr; a:= 3; case a * a + 1 of {в случае если а * а + 1 .. равно} 8, 2, 20: k:= 0; 7, 10: begin k:=... На выходе имеем: Ввести яисло: 1 0 Ввести число: 3 0 Ввести число: 4 0 Это что за программа? Одни нули. А должно печататься: 0 1 3 https://www.cyberforum.ru/ turbo-pascal/ thread2415763.html
Ввести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры Turbo Pascal Вывести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры for i:=100 to 999 do if (i div 100)(i mod 10)=sqr(i div 10 mod 10) then write(i:4); или так for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if ik=j*j then write(i,j,k,' ');	Turbo Pascal Найти и вывести на экран информацию о трёх призерах соревнований (фамилии и результаты) https://www.cyberforum.ru/ turbo-pascal/ thread2416179.html Известны фамилии и результаты 15 спортсменов - бегунов, найти и вывести на экран информацию о трёх призерах соревнований (фамилии и результаты) о спортсмене с худшим результатом, о среднем результате... https://www.cyberforum.ru/turbo-pascal/thread546014.html https://www.cyberforum.ru/pascalabc-net/thread1914559.html https://www.cyberforum.ru/turbo-pascal/thread70131.html
Turbo Pascal Ввести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры Вывести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры использовать while i:=100; while i<=999 do begin if (i div 100)*(i mod 10)=sqr(i div 10 mod 10) then write(i:4); inc(i); end; https://www.cyberforum.ru/ turbo-pascal/ thread2416365.html	Вывести на экран такие трехзначные числа, у которых квадрат 1 цифры равен двузначному числу, составленному из 2 и 3 цифр Turbo Pascal Вывести на экран такие трехзначные числа, у которых квадрат 1 цифры равен двузначному числу, составленному из 2 и 3 цифр нужно чтобы был repeat в программе i:=100; repeat if sqr(i div 100)=i mod 100 then write(i:4); inc(i); until i>999;
Turbo Pascal Задача и план к ней https://www.cyberforum.ru/ turbo-pascal/ thread2416542.html Стоянка для машин иметт длину а м и ширину b м. Машина занимает место х см в длину и х см в ширину. Можно ли расставить на стоянке к машин? Написать план к задаче, и решение по плану	Turbo Pascal Можно ли расставить на стоянке К машин? Стоянка машин имеет длину А метров и ширину B метров. Машина занимает место х сантиметров в длину и х сантиметров в ширину, можно ли расставить на стоянке К машин? if (A100 div x)(B*100 div x)>=K then writeln('YES')else writeln('NO');
Turbo Pascal Определить, сколько цифр будет в числе, полученном после k операций https://www.cyberforum.ru/ turbo-pascal/ thread2416188.html Добрый день. помогите пожалуйста с решением Задано число N. С этим числом проделывают такую операцию: каждую цифру заменяют на квадрат этой цифры. Например 16 -> 136 -> 1936 -> 181936 ... Ввод:1 98 Вывод: 4 Это как? 1 сколько раз в квадрат не вводи, всё равно будет 1… Ввод 2 4 Вывод: 3 Ну давайте попробуем: 1) 2²=4 2) 4²=16 3) 1² 6²=136 4) 1² 3² 6²=1936	Turbo Pascal Тест по Turbo Pascal https://www.cyberforum.ru/ turbo-pascal/ thread2415760.html 1) В программе имеются следующие описания: Type Person = record Fio : string ; Ball : array of 3..5; x : Byte; End; Var a : Person; Первое задание. program Project1; Type Person = record Fio : string ; Ball : array of 3..5; x : Byte; End;

ZX Spectrum-128

6811 / 4568 / 4819

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

Сообщений: 22,438

12.03.2019, 11:55

Программа не компилируется (не запускается) во второй раз (то есть только один раз) - Turbo Pascal - Ответ 13396091

12.03.2019, 11:55. Показов 1312. Ответов 1

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

Ответ

Сообщение от Almughalles

нажать ctrl+f9

Потому что читать надо документацию к DosBox'у. ctrl+f9 - по умолчанию выход из него.

Вернуться к обсуждению:
Программа не компилируется (не запускается) во второй раз (то есть только один раз) Turbo Pascal

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

12.03.2019, 11:55

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

Почему код запускается только один раз?
Всем привет. Кто знает почему этот код запускается только 1 раз? $(function() { $("#button1").click(function() { ...

3D модель фундамента в acad - второй раз программа не запускается
Не знаю, в чем дело. Прога может запуститься один раз (и то не всегда), потом перестает. Что не так, кто подскажет? код прикрепил во...

как сделать, чтобы один раз можно было нажать кнопку, а второй раз уже лайк убирался,
Написал свой php код для кнопки like на сайте, при нажатии на кнопку добавляется +1 лайк, а как сделать, чтобы один раз можно было нажать...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

12.03.2019, 11:55

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

Повторяющиеся числа из первого массива занести во второй массив только один раз
#include <stdio.h> #include <iostream> #include <cstdlib> using namespace std; int main(int argc, char* argv) { int...

Оставить в первом списке элементы, которые входят во второй список только один раз
Есть 2 списка. Оставить в первом только те элементы, которые есть во втором только в одном экземпляре.

Ошибка в коде(программа с вектором выполняется только если вызвать её второй раз)
Сабж: void vInit() { vInputing(); // Ввод вектора vector_Size = names.size(); cout << "Ваш вектор names:...

Есть ли среди элементов массива символы, которые встречаются только один раз
Помогите решить 3. Дан одномерный массив, который содержит не более 60 символов. Ответить на вопрос, есть ли среди них символы,...

Программа, возвращающую список вида: первый элемент — атом, появляющийся в списке один раз, второй - два раза и т.д
Помогите пожалуйста!! Есть список атомов. Написать программу, возвращающую список вида: первый элемент — атом исходного списка,...

Новые блоги и статьи Все статьи Все блоги /
Что нового в C# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .

Наверх