Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Множества в паскале Для трех человек известны группы примет: 1-ый:кареглазый,светловолосый,горбоносый,невысокий 2-ой:курносый,шатен,невысокий,голубоглазый 3-ий:прямоносый,невысокий,брюнет,голубоглазый Определить список примет,которые могут встретиться одновременно у двух любых человек https://www.cyberforum.ru/ pascalabc/ thread200560.html	Определить максимальную плотнось материала. Pascal ABC известны данные о массе (в кг) и объеме (в см3) 20 тел, изготовленных из различных материалов. Определить максимальную плотнось материала. Третий (вспомогательный)массив не использовать.
Pascal ABC Если число является простым, то вывести True https://www.cyberforum.ru/ pascalabc/ thread200547.html Дано целое число N(>1). Если оно является простым, то есть не имеет положительных делителей, кроме 1 и самого себя, то вывести True, иначе вывести False.	Pascal ABC Вывести наибольшее из целых чисел k, для которых сумма будет меньше или равна N https://www.cyberforum.ru/ pascalabc/ thread200545.html Дано целое число N(>1). Вывести наибольшее из целых чисел k, для которых сумма 1+2+...+k будет меньше или равна N, и саму эту сумму.
Pascal ABC Найти максимальную сумму двух соседних чисел из данного набора Дано целое число N(>1) и набор из N чисел. Найти максимальную сумму двух соседних чисел из данного набора.	Pascal ABC На отрезке длины A размещены максимально возможное количество отрезков длины B Даны положительные числа A и B (A>B). На отрезке длины A размещены максимально возможное количество отрезков длины B (без наложении). Не используя операции умножения и деление, найти количество отрезков B, размещенных на отрезке A. https://www.cyberforum.ru/ pascalabc/ thread200516.html
Pascal ABC Вывести значение целочисленного выражения, заданного в виде S https://www.cyberforum.ru/ pascalabc/ thread200483.html Вывести значение целочисленного выражения, заданного в виде S. Выражениe определяется следующим образом (функция M возвращает максимальный из своих параметров, а функция m-минимальный):<выражение > ::= <цифра> \| M(патаметры) \| m(<параметры>) < параметры> ::= <выражение> \|< выражене>,< параметры>	Pascal ABC Рекурсивная функция количества цифр в строке Описать рекурсивную функцию DigitCount(S) целого типа, которая находит количество цифр в строке S, не используя оператор цикла. С помощью этой функции найти количество цифр каждой из пяти данных строк.
Pascal ABC Функция двойного факториала https://www.cyberforum.ru/ pascalabc/ thread200481.html Описать функцию Fact 2 (N) вещественного типа, вычисляющую значение двойного факториала N!!=N(N-2)(N-4)... (N>0-параметр целого типа; последний сомножитель в произведении равен 2, если N-четное, и 1, если N-нечетное ). С помощью этой функции вычислить двойные факториалы пяти данных чисел.	Pascal ABC Составить программу для графического изображения делимости чисел составить программу для графического изображения делимости чисел от 1 до н (значение н вводиться с клавиатуры ). В каждой строке надо напечатать очередное число и столько символов"+", сколько делителей у этого числа. Например, если н-4, то на экране должно быть напечатано : 1+ 2++ 3++ 4+++ https://www.cyberforum.ru/ pascalabc/ thread200480.html
Телефонный справочник: программа не может найти указанный путь Pascal ABC помогите исправить ошибку - не может найти указанный путь program Phonebook; uses Crt; type Phone = record SurnameS : string; NameS : string; PhoneS : string; AddressS: string; end;	Pascal ABC надо найти ее математическую формулу https://www.cyberforum.ru/ pascalabc/ thread200379.html Дана программа написанная на языке Turbo Pascal надо найти ее математическую формулу. Program ss; Var:a,b,c,z:integer; Begin Read (a,b,c); If a>b then Z:=b If z<c then z:=c Write (z);

Puporev

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

64303 / 47600 / 32742

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

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

30.11.2010, 13:39

Переписать в файл F все компоненты массива D, которые больше 0,5 - Pascal ABC - Ответ 1155568

30.11.2010, 13:39. Показов 2167. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
const d:array[1..7] of real=(0.1, 0.2, 6.7, 0.6, 0.3, 2.8, 0.4);
var f,g:file of real;
    a:real;
    i:byte;
begin
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Массив D:');
for i:=1 to 7 do
 begin
  write(d[i]:4:1);
  write(g,d[i]);
 end;
close(g);
writeln;
writeln;
reset(g);
while not eof(g) do
 begin
  read(g,a);
  if a>0.5 then write(f,a);
 end;
close(f);
close(g);
writeln('Содержание файла F:');
reset(f);
if filesize(f)=0 then write('Файл пустой')
else
 while not eof(f) do
  begin
   read(f,a);
   write(a:4:1);
  end;
close(f);
end.

Вернуться к обсуждению:
Переписать в файл F все компоненты массива D, которые больше 0,5 Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.11.2010, 13:39

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

Переписать в новый файл все компоненты файла, расположенные после максимальной компоненты
Дан файл вещественных чисел. Переписать в новый файл все компоненты, расположенные после...

Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G
создать файл F,компонентами которого являются элементы массива M,переписать в файл G все компоненты...

Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
Помогите решить буду очень благодарен. Задание 1. Дано файл f, компоненты которого являются...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.
Добрый вечер. Есть такая вот задачка. Помогите пожалуйста... Дан текстовый файл Т1. Переписать...

	30.11.2010, 13:39

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.11.2010, 13:39

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

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

Переписать в файл G все компоненты файла F, меняя местами соседние элементы
Здравствуйте, помогите пожалуйста решить данную задачу. Дан файл F, компонентами которого...

Переписать в файл B из файла A те компоненты файла A, которые делятся без остатка на 2
Создать файл A, компонентами которого являются числа от 1 до 20.Переписать в файл B из файла A те...

Все элементы массива, которые больше девяти, заменить девятками, а все элементы, которые меньше пяти, – пятерками
Задан одномерный массив А. Все элементы массива, которые больше девяти, заменить девятками, а все...

Наверх