Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal В заданном предложении найти слово, которое является обращением другого слова задание:в заданном предложении найти слово,которое является обращением другого слова.например:кот-ток. помогите разобраться с программой я не поняла.надо учительнице всё подробно объяснить. uses crt; var s,s1,strok,strok1:string; a,st2:array of string; ch:char; j,i,l,k,n,d,p,indicator:integer; begin clrscr; https://www.cyberforum.ru/ turbo-pascal/ thread219246.html Turbo Pascal Вычислить наибольшее значение функции
Для заданного с клавиатуры значения натурального числа m вычислить наибольшее значение функции F(x) в равностоящих значениях X из интервала : ...........m ............n F(x)= сумма sin(1/x) ...........n=1 С операторами for,if Помогите пожалуйста,заранее благодарю..... Добавлено через 33 минуты
Turbo Pascal Линейные списки Простой вопрос. Каким образом при заполнении линейного списка записать в первый и последний элемент nil. https://www.cyberforum.ru/ turbo-pascal/ thread219238.html Turbo Pascal Двойной вложенный цикл Для заданного с клавиатуры значения натурального числа m вычислить наибольшее значение функции F(x) в равностоящих значениях X из интервала : ...........m ............n F(x)= сумма sin(1/x) ...........n=1 С операторами for,if Помогите пожалуйста,заранее благодарю..... Добавлено через 33 минуты https://www.cyberforum.ru/ turbo-pascal/ thread219234.html
Одномерный массив Turbo Pascal
Посчитать число компонентов целого массива из0 10 элементовблежащих на отрезке Желательно с операторами for do Заранее спасибо.Помогите чем сможите.
Turbo Pascal нахождение порядкового номера цифры в числе program vtoraya; var i,n :integer; begin writeln('vvedite chislo'); readln (n); i:=0; while (n mod 10) <>3 and n<>0 do begin n:=n div 10; i:=i+1; https://www.cyberforum.ru/ turbo-pascal/ thread219220.html
Turbo Pascal Блок -схема uses crt; const n = 16; m = 5; Var a:array of integer; i,j:byte; kol_less_ten,kol_more_ten:byte; sum_less_ten,sum_more_ten:integer; max_j:byte; max:integer; obm:integer; https://www.cyberforum.ru/ turbo-pascal/ thread219214.html Turbo Pascal Программы для допуска. Нужно ваше внимание.
Помогите пожалуйста. Мне завтра 3 задачи надо сдать. Одну я уже написала, но не могу исправить ошибку... А две за ночь, боюсь, что не успею! Помогите мне, если есть какие мысли, напишите мне. Вот задачи: 1>Дан файл, содержащий матрицу символов (количество строк равно их длинам). Если на главной диагонали этой матрицы содержатся пробелы, то в новый файл записать транспонированную матрицу данной...
Turbo Pascal Определить слово максимальной длины, в котором все символы различны https://www.cyberforum.ru/ turbo-pascal/ thread219181.html
задача: определить слово максимальной длины, в котором все символы различны. как написать код?
Turbo Pascal Матрица. Числа Фибоначчи https://www.cyberforum.ru/ turbo-pascal/ thread219169.html
помогите пожалуйста составит код. вот задача: если среди элементов матрицы есть хотя бы одно число Фибоначчи, повернуть все её элементы на 90 градусов по часовой стрелке.
Turbo Pascal Можете мне кто нибудь помочь сделать прогу со схемой
у меня зачет помощь нужна срочная дано задание : Аргумент x Xn-начальный элемент,Xk-конечный,Dx-шаг Функция a*b*(sin во 2-й степени(x))\ корень из x b- 2ln(x)- 1\x во второй степени погрешность E= на интервале заранее спасибо
Turbo Pascal Файлы https://www.cyberforum.ru/ turbo-pascal/ thread219141.html
у меня задачка: нужно записать название, изготовителя и цену в файл, потом вывести информацию о самом дорогом телевизоре...... вот половина myfile=file of tv; var f1:myfile; i,n,k:integer; a:arrayof integer; c1:tv; begin writeln('ввести количество'); readln(n);
1 / 1 / 0
Регистрация: 08.12.2010
Сообщений: 15
0

Нужно найти ошибку - Turbo Pascal - Ответ 1233675

24.12.2010, 02:31. Показов 485. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Написал модуль для выявления правильности введенных данных, при его использовании результат становится равным нулю. Что не правильно??


unit ByKonon;
interface
procedure oread (s:integer);
implementation
procedure oread (s:integer);
var n:integer;
begin
{$I-}
read (s);
repeat
n:=ioresult;
if n<>0 then begin
writeln ('Vi vveli ne pravilnie dannie, vvedite ix snova');
read (a);
end;
until n=0;
{$I+};
end;

Вернуться к обсуждению:
Нужно найти ошибку Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2010, 02:31
Готовые ответы и решения:

Нужно найти ошибку
Разработать алгоритм и составить программу, выполняющей ввод элементов массива А(4х4) вещественных...

Нужно найти ошибку
Компилятор ошибок не выдает, при запуске после ввода переменной Х в нужном диапазоне строка...

дана программа нужно найти и объяснить ошибку...
case x of 0...9:write ('введена цифра'); 10...99:('введено двухзначное число'); end.

Нужно найти ошибку!
Помогите Пожайлуста Найти ошибку в программе Там когда запускаешь программу выдаёт ошибку Invalid...

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

Нужно найти ошибку
Вычислить F=A(3,4)*PT(4,5)*R(5,2),если y&gt;6 если y=&lt;6 F=P(4,5)*T(5,3)*Q(3,3); program z42;...

Нужно найти ошибку в выражении
1) Переменная F определена как файловая с базовым типом Integer. Переменная N относится к типу...

программа нужно найти ошибку
помогите найти ошибку должно получится по сторонам матрицы верхняя строка убывающая начиная с 1 а...

Нужно найти ошибку в коде
program zada4a; uses crt; type stroenie=record tip, firma: string; cena, proc, vklad, nevip:...

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