Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Существует ли просто Pascal? https://www.cyberforum.ru/ pascal/ thread1840965.html
Есть Turbo Pascal, Free Pascal и т. д., а существует ли просто Pascal?
Вывести номера тех недель, когда средняя температура всех дней этой недели была ниже 0 Pascal
Приводится среднесуточная температура воздуха за несколько недель, каждая неделя имеет 7 дней. Вывести номера тех недель, когда средняя температура всех дней этой недели была ниже 0. решение желательно по проще
Pascal Найти произведение двух матриц https://www.cyberforum.ru/ pascal/ thread1840619.html
Ребят, помогите, нужна программа, которая находит произведение двух матриц
Pascal Составить блок схему к готовому коду Помогите пожалуйста написать блок схему для этой задачи var ar: Array Of ShortInt; i, j, k, n, m, jMax: Byte; temp: ShortInt; flag: Boolean; begin repeat Write('n(1..128)='); ReadLn(n); https://www.cyberforum.ru/ pascal/ thread1840618.html
Блок-схема Pascal
Помогите написать для этой задачи блок-схему const n = 10; var i, count: integer; x: array of real; a, b: real; begin
Pascal Как связана высота прыжка с площадью поперечного сечения парашюта, чтобы скорость приземления была безопасной https://www.cyberforum.ru/ pascal/ thread1840567.html
Изучить, как связана высота прыжка с площадью поперечного сечения парашюта, чтобы скорость приземления была безопасной? Я так понимаю эта задача о парашютисте. Задача о безопасности парашютиста. Пусть парашютист прыгает с высоты h м. Определить необходимый радиус парашюта, другими словами, нам нужно подобрать коэффициент сопротивления k2, при котором имеем безопасное приземление.
Pascal Вывести строку, в которой встречается подстрока https://www.cyberforum.ru/ pascal/ thread1840303.html
Добрый вечер, никак не могу решить задание (проходит только 2 теста из 5). uses sysutils; function XUpperCase(s:string):string; var temp:string; i:integer; begin
Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в чем разница, за что браться (я новичок). В интернете нет полноценного обзора всех 4х версий, а только по типу: "В чем разница между турбо паскаль и фри паскаль", будто существует только 2 версии паскаля. Пожалуйста, разъясните этот вопрос или скиньте ссылку на...
Pascal Программа с числами Нужно написать программу в Pascal: 1)Дано четырехзначное число. Вывести число, полученное при перестановке цифр сотен и единиц исходного числа 2) Определить максимальное четное число из трех введенных Спасибо) https://www.cyberforum.ru/ pascal/ thread1839760.html Pascal Сколько лошадей и быков купил чиновник https://www.cyberforum.ru/ pascal/ thread1839745.html
Задача Л.Эйлера. Некий чиновник купил лошадей и быков на сумму 1770 талеров. За каждую лошадь он уплатил по 31 талеру, а за каждого быка по 21 талеру. Сколько лошадей и быков купил чиновник? Используйте прием параметризации, чтобы легче было модифицировать программу при изменении рыночных цен и финансовых возможностей чиновника.
Pascal Найдите все трехзначные числа, сумма цифр которых равна произведению цифр
Найдите все трехзначные числа, сумма цифр которых равна произведению цифр
Pascal Определить наименьший элемент и его порядковый номер в главной диагонали матрицы Введите с клавиатуры массив D4. Определите наименьший элемент и его порядковый номер в главной диагонали массива. N - вводится с клавиатуры. 0 < N < 30. Помогите написать программу на Паскале, очень прошу. https://www.cyberforum.ru/ pascal/ thread1839702.html
0 / 0 / 0
Регистрация: 07.11.2013
Сообщений: 16
0

Входной и выходной файл. Исправить код программы - Pascal - Ответ 9720813

02.11.2016, 21:50. Показов 1181. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Имя входного файла: b.in
Имя выходного файла: b.out
Два сотрудника подали своему начальнику заявление на отпуск. Первый попросил отпустить его с А1 по В1 день (дни отсчитываются с начала года), второй - с А2 по В2 день. Считаем что А1<B1 и А2<B2. Однако дело требует, чтобы один из сотрудников находился на работе. Мало того, при смене отдыхающих необходимо не менее 3 дней их совместной работы - для передачи дел. Напишите программу, принимающую четыре указанных выше параметра, и печатающую заключение о том, удовлетворяют ли заявления требованиям начальника.
Формат входного файла: входной файл содержит четыре целых числа по 2 на каждой строке. А1, В1 на первой строке и А2, В2 на второй строке (А1,А2,В1,В2<365). Формат выходного файла: выходной файл содержит ответ ""да" или "нет"

Вот что у меня вышло
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b:text;
 
A1,B1,A2,B2: integer;
begin
assign (a,'a.in'); reset(a);
assign (b,'a.out');rewrite(b);
readln(a);
procedure
var S: string;
begin
if B2>B1 then begin
if A2-A1>3 then S:='Да' else S:='нет';
end;
writeln(S);
end;
end.
Заранее спасибо

Вернуться к обсуждению:
Входной и выходной файл. Исправить код программы Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2016, 21:50
Готовые ответы и решения:

Входной/Выходной файл
выдает ошибку &quot;ошибка ввода вывода 103 файл не открыт&quot; вот код program pr; var a,c:text;...

Сделать входной и выходной файл
нужно зделать из этой задачи входные файлы и выходные помоите плиз var Form1: TForm1; ...

дан входной текстовый файл. Вывести в выходной файл строку с максимальным количеством слов
Дан входной текстовый файл (одна строка – одно предложение). Вывести в выходной файл строку...

Сформируйте выходной файл, вставив в первый входной файл содержимое второго входного файла с указанной позиции
Помогите решить задачу. Даны два входных текстовых файла. Сформируйте выходной файл, вставив в...

1
02.11.2016, 21:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2016, 21:50
Помогаю со студенческими работами здесь

Дан входной текстовый файл. Заполните Выходной файл только теми строками, в которых ровно k символов ch
Дан входной текстовый файл. Заполните Выходной файл только теми строками, в которых ровно k...

Как в abc pascal сделать входной и выходной файл?
Например входной input.txt выходной output.txt program poizvedenie; var n,l,s:integer; begin...

Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки входного файла, содержащие в качестве фрагмента стро
Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru