Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal двумерных массивов Составить блок-схему алгоритма и программу для решения задачи с использованием двумерных массивов. При программировании заданий предполагается использование различных операторов цикла для обработки массивов. Дан массив А{5,5}. Построить массив В(5) по следующему правилу: B(I) присвоить I, если в I-той строке массива есть хотя бы один отрицательный элемент, в противном случае B(I) присвоить... https://www.cyberforum.ru/ turbo-pascal/ thread267248.html	Расстояние между к-й и 1-й строками матрицы Turbo Pascal Расстояние между к-й и 1-й строками матрицы.... к завтрашнему дню,помогите пожалуйста...
Turbo Pascal Составить функцию для вычисления корней квадратного уравнения ax2+bx+c=0. Составить функцию для вычисления корней квадратного уравнения ax2+bx+c=0. Цифра 2 это степень. Помогите с задачей плиз https://www.cyberforum.ru/ turbo-pascal/ thread267242.html	Turbo Pascal Вывести номер наименьшего из элементов https://www.cyberforum.ru/ turbo-pascal/ thread267237.html Три числа вводим с клавиатуры, номер наименьшего выводим. Нахождение наименьшего значения офк сделал, но фраза "Вывести НОМЕР наименьшего элемента" ввела меня в ступор :( Как это реализовать? Код не нужен, просто алгоритма или подсказки будет достаточно ~~
в пробном егэ. прошу помочь. запутался совсем (новичок) Turbo Pascal во входном файле data.dat 60 строк, которые содержат информацию о курсе акций. формат каждой из строк следующий: сначала записано время в формате чч:мм (на запись часов и на запись минут отводится строго по два символа, разделенных двоеточием), затем через пробел записано значение курса акций - число с точностью до 2-х цифр после десятичной точки. данная информация отсортирована по значению курса...	Turbo Pascal Составить программу!!! 26. Составить программу нахождения произведения нечетных элементов одномерного массива целых чисел. Для подсчета произведения использовать функцию пользователя. https://www.cyberforum.ru/ turbo-pascal/ thread267230.html
Turbo Pascal Составить программу 25. Составить программу, которая вычисляет количество и сумму элементов, кратных 5 для введенного с клавиатуры одномерного массива целых чисел. Для подсчета суммы использовать функцию пользователя. https://www.cyberforum.ru/ turbo-pascal/ thread267228.html	Ошибка в программе "Палиндроме" Turbo Pascal Здравствуйте. У меня такая проблемка: Написал программу, которая определяет является ли введенная пользователем строка палиндромом, вот код Program one; uses crt; var s1,s2,s3:string; y,x,i:byte; begin ClrScr; writeln('Enter S1'); Readln(S1);
Turbo Pascal Двумерный массив, исправить https://www.cyberforum.ru/ turbo-pascal/ thread267221.html Задача. Даны числа a1..a64. Сгенерировать их в диапозоне 1-64 и по закону равномерного распределения разместить их в двумерном массиве 8 на 8, по такой схеме ---<---- I--->--- ---<---I и т.д.	Turbo Pascal Найти самые элементы каждой строки матрицы Y (8,8) и поместить их на главную диагональ Найти крупнейшие элементы каждой строки матрицы Y (8,8) и поместить их на главную диагональ, а диагональные элементы-на места наибольших. через массив... нужно срочно) Зделайте великие программисты,пожалуйста:) https://www.cyberforum.ru/ turbo-pascal/ thread267218.html
Turbo Pascal Составить программу вывода на экран положительных чисел, кратных 3 до тех пор, пока сумма не превысит 1000. Помогите.Составить программу вывода на экран положительных чисел, кратных 3 до тех пор, пока сумма не превысит 1000.	Turbo Pascal Нахождение минимального и максимального числа Есть задачка, знаю как ее делать, но вот одну часть мне никак не понять. Допустим есть 3 числа, s1,s2,s3. как найти из них максимальное и минимальное? максимальное принять за коэффициент b, минимальное за a, среднее за c. Подскажите,пожалуйста Добавлено через 1 час 10 минут Вопрос еще не решен, помогите,пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread267202.html

Puporev

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

64305 / 47602 / 32742

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

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

31.03.2011, 08:00

Исправить программу - Turbo Pascal - Ответ 1505515

31.03.2011, 08:00. Показов 604. Ответов 5

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

Ответ

Pascal

procedure  sozd_faila;
var c:char;
begin
assign(t,'База.txt');
rewrite(t);
clrscr;
writeln('Введите данные о студентах, окончание ввода Esc:');
repeat
   writeln('Студент ',i);
   with s do
   begin
    write(' Группа: ');
    readln(gruppa);
    write('Фамилия: ');
    readln(fio.f);
    write('Имя: ');
    readln(fio.i);
    write('Отчество: ');
    readln(fio.o);
    write('День рождения: ');
    readln(data.d);
    write('месяц: ');
    readln(data.m);
    write('Год: ');
    readln(data.g);
    write('Место жительства:');
    readln(adrres.yl);
    write(t,s);
    writeln('Студент был успешно добавлен в базу данных');
    writeln;
   end;
c:=readkey;
until c=#27;
close(t);
end;

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

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

31.03.2011, 08:00

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

Исправить программу
Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А, где...

Исправить программу
Необходимо было реализовать следующее: В одномерном массиве, состоящем из n вещественных...

Исправить программу
Program kj; Var s: String; i: Byte; Begin Write('Введите строку: '); Readln(s); For...

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

	31.03.2011, 08:00

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

31.03.2011, 08:00

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

Исправить программу
Помогите скажите почему не работает и где что надо испрявить!!! Спасибо/ и как тут round...

Исправить программу
Кому не сложно помогите исправить программу - неправильно выводит вектор удовлетворяющий условию...

Исправить программу
Дана степень числа А. Найти её показатель. Не въехал что к чему, написал вот это : var...

Исправить программу
Помогите сделать программу через procedure.Программа работает, только нужно написать через...

Исправить программу
Помогите пожалуйста исправить программу.... Переделайте программу что бы она была не в цикле...

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

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

Наверх