Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Для матрицы размером NxM вывести на экран все ее седловые точки Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце, или наоборот. https://www.cyberforum.ru/ pascalabc/ thread356222.html	Pascal ABC Формулы принадлежности(Pascal ABC) Подскажите формулы принадлежности точки к квадрату,треугольнику,кругу. И в чём особенности написание программ подобного рода. И ещё как вычислять принадлежность к другим фигурам. Заранее спасибо. Пример: Дана точка C(x,y), определить принадлежность к указанной области(фигуре).
Pascal ABC Найти сумму чисел от 1 до N Здравствуйте! Программированием занимаюсь не так давно, частенько бывало надо было найти сумму числе например от 1 до 1000. Составил 2 формулы на случай если последнее число четное и нечетное: четное - (a1+an)(an/2), нечетное - ((a1+an)(an/2))+(an/2). Получилась вот такая программа. Как ее исправить не приложу ума) Надеюсь не сильно раскритикуете и объясните что исправить var s:array of... https://www.cyberforum.ru/ pascalabc/ thread356144.html	Pascal ABC сколько чисел попадают в отрезок [a, c], https://www.cyberforum.ru/ pascalabc/ thread356099.html 1 Дано два действительных числа. Определить сколько среди них попадают в отрезок , задаваемый пользователем. 2 Вычислить значение функции Y= (Х + 3) в точках от 1 до 5 с шагом 0,5.(тремя способами). ---------------------- Спасибо заранее. Добавлено через 1 минуту я знаю это наглость но буду рад в помощи.
Волейбол Pascal ABC Доброго времени суток! Уважаемые программисты, требуется реализовать игру "Аркадный волейбол". Правила игры: два игрока находятся на противоположных сторонах экрана, между ними сетка. Игроки могут двигаться вправо и влево а так же прыгать. Мяч летает из стороны в сторону отталкиваясь от краёв экрана сетки и игроков. При падении мяча на сторону противника игроку засчитывается очко. Цель игры -...	Pascal ABC Цикл: Вычислить произведение ряда \frac{1}{2}\frac{3}{4}\frac{5}{6} https://www.cyberforum.ru/ pascalabc/ thread355964.html
Pascal ABC Написать ФИО https://www.cyberforum.ru/ pascalabc/ thread355917.html С использованием вспомогательных алгоритмов написать свое ФИО (две строки, в строке - 3 раза). ДАЛ ДАЛ ДАЛ ДАЛ ДАЛ ДАЛ	Pascal ABC Сведения о самом длинном рейсе Здравствуйте. Нам задали следующее задание: Ввести для нескольких автобусов время отправления и время прибытия. По каждому автобусу выдать АВТОБУС 999 ОТПРАВЛЕНИЕ 99:99 ПРИБЫТИЕ 99:99 ВРЕМЯ В ПУТИ 999:99 Ввод завершить, если время отправления равно 9999. В конце программы выдать сведения о самом длинном рейсе. Так вот,я не могу понять, какой нужно указать тип переменной, чтоб можно было...
Pascal ABC Определить в каком году день рожденья любого человека выпадет на тот же день недели, в который он родился Всем привет. Помогите чуть доделать программу. Вообще условие задачи такое: определить в каком году день рожденья любого человека выпадет на тот же день недели, в который он родился(извините если условие не особо понятное, преподаватель на словах продиктовал.) Вот эта часть программы отображает день рожденья(Например:08.04.1993 - четверг): Var VernaiaData: Boolean; Den,Mesac,GodStoletia:... https://www.cyberforum.ru/ pascalabc/ thread355830.html	Pascal ABC ошибка в проге помогите плиз люди помогите плиз у меня говорит типо нельзя перед елсе ставить точку с запятой ставить, а когда убираю говорит нужно поставить вот код помогите плиз. program kv; var n, k, v, i, c : integer; a: array of integer; begin v := 0; read(n); for i := 1 to n do read(a); for i:=1 to n do https://www.cyberforum.ru/ pascalabc/ thread355828.html
Напишите программу «калькулятор» на четыре основных арифметических операции Pascal ABC Напишите программу «калькулятор», позволяющую вычислять по выбору одну из четырех основных арифметических операций. Снабдите программу запросом об окончании работы. 1)используя оператор GOTO и метки; 2)не используя оператор GOTO. Помогите пажалуйста с решением такой задачи.	Pascal ABC Линейное уравнение Помогите пожалуйста решить систему методом гауса или хордом. См. прикрипленный файл https://www.cyberforum.ru/ pascalabc/ thread355800.html

Uinslou

Старичок :)

728 / 315 / 5

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

Сообщений: 1,430

Создать типизированный файл целых чисел - Pascal ABC - Ответ 2013218

25.09.2011, 19:05. Показов 7782. Ответов 1

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

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

Всем привет. Ребят, есть такое задание:

Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить вторые по значению минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля). Предусмотреть случай, когда таких чисел в файле нет. Удалить из файла все числа, находящиеся между ними.

Помогите пожалуйста.

Pascal

program s;
uses crt;
var f:file of integer;
i,max,min, max_p,min_p:integer;
begin clrscr;
assign(f,'C:\TP\wer.dat');
rewrite(f);
 
write('vvedite pervoe chislo ') ;
readln(i);
if (i=0) then
begin
writeln('file ne sozdan');
erase(f);
exit;
end
else
write(f,i);
 
repeat
write('sled chislo ');
readln(i);
if (i<>0) then
write(f,i)
else break
until(i=0);
 
reset(f);
read(f,i);
 
max:=i;
min:=i;
max_p:=0;
min_p:=0;
 
reset(f);
writeln;
 
while not(EOF(f)) do
begin
 
read(f,i);
write(i:5);
 
if (i>max) then
begin
max:=i;
max_p:=filepos(f);
end;
 
if (i<min) then
begin
min:=i;
min_p:=filepos(f);
end;
 
end;
 
writeln('max=',max:3);
 
writeln('max_p=',max_p:3);
writeln('min=',min:3);
writeln('min_p=',min_p:3); 
close(f);
readln;
end.

Что нужно сделать или что исправить, чтобы она ещё выполняла условие ? Определить вторые по значению минимальное и максимальное числа и их позиции в файле. Или свой вариант предложите

Вернуться к обсуждению:
Создать типизированный файл целых чисел Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

25.09.2011, 19:05

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

Создать типизированный файл и записать в него 5 одинаковых целых чисел
1. Дан текстовый файл, состоящий из первых десяти натуральных чисел. Вывести на экран первые пять. ...

Создать типизированный файл вещественных чисел
создать типизированный файл, вещественных чисел. записать в 5 поз, число 0, а в коце файла 100 ...

Создать типизированный файл из К случайных действительных чисел из диапазона от 0 до 100
Дано: натуральное число К. Требуется: создать типизированный файл из К случайных действительных...

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

	25.09.2011, 19:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

25.09.2011, 19:05

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

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

Создать файл целых чисел f1. Написать программу, заполняющую файл
Создать файл целых чисел f1. Написать программу, заполняющую файл f2 элементами файла f1,...

Создать файл целых чисел. Исключить из него указанную по номеру компоненту. Файл распечатать
Здравствуйте.Дано задание: Создать файл целых чисел. Исключить из него указанную по номеру...

Создать файл целых чисел и записать в него N первых положительных четных чисел
вот задача: Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и...

Наверх