Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Записи.Составить программу обработки сведений о студентах своей группы https://www.cyberforum.ru/ pascalabc/ thread825525.html
:gsorry: 1 пункт- uses crt; const nmax=25; type TStud=record fio:string; mtm:byte; fiz:byte; inf:byte;
Pascal ABC Составить программу обработки сведений о студентах своей группы
Составить программу обработки сведений о студентах своей группы. Сведения представляются в виде таблицы, содержащей фамилии студентов и определенные характеристики: Выполните задание из пункта 1, считывая данные из файла и записывая результат в файл.
Pascal ABC Вывести все положительные элементы матрицы и найти их сумму https://www.cyberforum.ru/ pascalabc/ thread825513.html
В задании данные считываются из файла (ов) и результат выводится в файл. Дана матрица А(6,5). Вывести все положительные элементы этой матрицы. Найти их сумму.
Pascal ABC Сортировка матриц Извините, но не найдется ли у кого примеров сортирования двухмерных массивов быстрым и-или пирамидальным методами? Надеюсь на вашу отзывчивость https://www.cyberforum.ru/ pascalabc/ thread825468.html
Строка: Подсчитайте наибольшее количество идущих подряд букв кириллицы Pascal ABC
Подсчитайте наибольшее количество идущих подряд букв кириллицы: uses crt; const kr=; var s:string; i,j,n,k,mx,imx:byte; begin clrscr; writeln('Введите строку, содержащую последовательности букв кирилицы:'); read(s); n:=length(s);
Pascal ABC Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы. помогите сделать пожалуйста(((((((( Дан двумерный массив размером n × m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы. Добавлено через 7 минут ray of integer; i,j:integer; s:string; begin for i:=1 to 5 do begin for j:=1 to 5 do begin a:=random(20); if a<10 then write(' ',a,' ') else https://www.cyberforum.ru/ pascalabc/ thread825416.html
Pascal ABC Сформировать одномерный массив, каждый элемент которого равен количеству элементов соот-ветствующей строки, больших данного числа. помогите пожалуйста.очень очень надо.завтра сдавать.Дан двумерный массив размерностью 4 × 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству элементов соот-ветствующей строки, больших данного числа. https://www.cyberforum.ru/ pascalabc/ thread825412.html Pascal ABC Дан двухмерный массив .Вставить в него две строки с заданными значениями элементов первую после строки с номером s,вторую перед ней.
4.Дан двухмерный массив .Вставить в него две строки с заданными значениями элементов первую после строки с номером s,вторую перед ней.
Pascal ABC Дан двухмерный массив .Удалить из него первую из строк ,количество нулей в которой равно заданному числу n. 3.Дан двухмерный массив .Удалить из него первую из строк ,количество нулей в которой равно заданному числу n. https://www.cyberforum.ru/ pascalabc/ thread825400.html Pascal ABC Найти число пар одинаковых "соседних"элементов.В качестве "соседних" рассматриваются элементы,расположенные в одной строке или в одном столбце. 2.Дан двухмерный массив .Найти число пар одинаковых "соседних"элементов.В качестве "соседних" рассматриваются элементы,расположенные в одной строке или в одном столбце. https://www.cyberforum.ru/ pascalabc/ thread825396.html
Pascal ABC Найти количество элементов массива, значения которых больше заданного числа B и при этом кратны 5
помогите решить...... Дан одномерный массив C целых чисел, состоящий из 10 элементов, заполнить его с кла-виатуры:найти количество элементов массива, значения которых больше заданного числа B и при этом кратны 5;
Pascal ABC Определить среднее арифметическое четных элементов массива 1.Дан двухмерный массив целых чисел.Определить среднее арифметическое четных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread825350.html
0 / 0 / 0
Регистрация: 02.04.2013
Сообщений: 4
0

Записать все отрицательные числа из файла F в файл N, а все положительные в G. - Pascal ABC - Ответ 4346247

02.04.2013, 01:57. Показов 1655. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет! Условие задачи:
Дан файл F с числами от -20 до 20. Записать все отрицательные числа из файла F в файл N, а все положительные в G. Затем вывести результаты чисел на экран (отдельно положительных и отдельно отрицательных).
Заранее спасибо!

Вот что у меня получилось. Но кроме чисел записанных в файле не выводит ни чего.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Program F86;
Var f,g,n:text;
     s,:string;
     x,t:integer;
Const
     a='c:\file\F86.txt';
     b='c:\file\G56.txt';
     c='c:\file\N93.txt';
Begin
Assign(f,a);
Reset(f);
Readln(f,s);
Writeln('Числа файла F86:');
Write(s);
While not eof(f) do
Begin
Val(s,x,t);
If x>0 then
Begin
Assign(g,b);
Rewrite(g);
Write(g,x);
End
Else
Assign(n,c);
Rewrite(n);
Write(n,x);
End;
Close(f);
End.


Вернуться к обсуждению:
Записать все отрицательные числа из файла F в файл N, а все положительные в G. Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2013, 01:57
Готовые ответы и решения:

Записать в таблицу сначала все положительные числа и нули, а потом все отрицательные
Дано линейную таблицу, которая содержит 25 действительных, записать в эту же таблицу сначала все...

Записать в массив сначала все положительные, затем все отрицательные числа и нули
Пожалуйста докажите код выделенный в комментарии. Задание:&quot;Дан массив вещественных чисел ,...

Переписать в пустой файл g сначала все положительные числа, а потом все отрицательные
Здравствуйте, не могли бы кто нибудь помочь с двумя задачами. P.S. прошу прощения что нарушил...

Переписать все положительные числа в пустой файл f, все отрицательные в пустой файл h
Вот задача:type rad = file of integer; Описать процедуру p(g,f,h) от трех файлов типа rаd, которая...

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

Типизированные файлы. Записать в файл C все четные числа файла F, а в файл N - все нечетные
еще одна задачка!!код есть,но что то не работает она помогите! вот задание: Сформировать файл F,...

Записать в текстовый файл t2 все положительные числа из t1
В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Записать в...

Переписать в файл f2 все положительные числа из файла f1
Помогите решить. 5. Создать файл f1, состоящий из целых чисел по 6 в строке. Переписать в файл...

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

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