Turbo Pascal

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

Войти

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

Блоги

Сообщество

Поиск

2 из 2

Рейтинг 4.91/11:

ToHu|cTapk

2 / 2 / 1

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

Сообщений: 29

Напечатать все элементы файла, большие числа А

16.06.2011, 18:20. Показов 2456. Ответов 21

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

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

14.34. Имеется файл с числами. Напечатать все его элементы, большие числа А.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program n_1434;
uses crt;
Var f:text; s:string; A,i,x:integer;
begin
clrscr;
writeln('Число А');
readln(A);
assign(f,'C:\work\t.txt');
reset)f);
readln(f.s);
writeln(s);
I:=0;
While nor(eof(f)) do begin
Val (s,x,Pr);
inc(i);
writeln(x);
begin
If x>A then Writeln(x);
End;end;
close(f);
END.

Лучшие ответы (3)

Сообщение: #1766007 Сообщение: #1766128 Сообщение: #1766129

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

16.06.2011, 18:20

Ответы с готовыми решениями:

Если в массиве есть элементы, большие заданного числа N, то напечатать все элементы
Дан массив, упорядоченный, по возрастанию. Если в нем есть элементы, большие заданного числа N, то напечатать все элементы, следующие за...

Напечатать элементы файла: сначала – все числа, меньшие а, затем – все числа из отрезка
За один просмотр файла целых чисел напечатать элементы файла в следующем порядке: сначала – все числа, меньшие а, затем – все числа из...

Если в массиве есть элементы, большие числа n, то напечатать все элементы, следующие за первым
Дан массив, упорядоченный по возрастанию. Если в нем есть элементы, большие числа n, то напечатать все элементы, следующие за первым из...

@mr. Spock 20 / 20 / 22 Регистрация: 01.01.2011 Сообщений: 198
	16.06.2011, 19:07
	а ну да, так получше)) 0

@ToHu\|cTapk 2 / 2 / 1 Регистрация: 16.06.2011 Сообщений: 29
	16.06.2011, 19:10 [ТС]
	Всем огромное спасибо, выручили 0

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

16.06.2011, 19:10

Имеется типизированный файл с числами, напечатать все его элементы большие числа a с++
Имеется типизированный файл с числами. Напечатать все его элементы большие числа a.

Создать типизированный файл, содержащий 18 целых чисел и напечатать все его элементы, большие числа а
Создать типизированный файл, содержащий 18 целых чисел. Напечатать все его элементы, большие числа а. 2. Создать типизированный файл. В...

Напечатать элементы файла f в следующем порядке: сначала – все числа, меньшие a, затем – все числа из отрезка
Пмоогите пожалуйста написать программный код: Используя очередь, решить следующую задачу. TYPE FR = FILE OF REAL; За один просмотр...

Напечатать все элементы матрицы, большие по модулю 2
Условие задачи такое: Дана матрица С с элементами Сij, i=1.2.3...5 j=1.2.3....5 напечатать все Cij больше по модулю 2 DIM C(5,5) ...

Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа.
Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа.помоготе решить...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

2 из 2

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

Наверх