Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Paulsan
0 / 0 / 0
Регистрация: 19.10.2010
Сообщений: 14
0

использование функции IsNumber

19.10.2010, 09:09. Просмотров 1097. Ответов 9
Метки (Все метки)

в задаче необходимо сделать проверку на введеные данные (строка-число) с использованием функции IsNumber.
вот задача:

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
31
32
33
34
program n1;
uses crt;
var x,y,xt,yt,r,i,rast:real; //x,y - координаты центра окружности
                       //xt,yt - координаты точки
                       //r - радиус
begin
repeat
clrscr;
writeln('=> ввести координаты центра и радиус окружности: ');
readln(x,y,r);                                                                  //ввод координат центра окружности и радиус
writeln('=> окружность с центром (',x,';',y,') и радиусом (',r,')');
repeat
if r<=0 then begin
            write('радиус не может быть отрицательным');
            writeln('повторите ввод радиуса');
            readln(r);
            end;
until r>0;
Writeln('=> ввести координаты точки: ');
readln(xt,yt);                                                                  //ввод координат точки
writeln('=> координаты точки ','(',xt,';',yt,')');
rast:=sqrt(sqr(x-xt)+sqr(y-yt));
if r>rast then                                                                  //если радиус больше расстояния от центра окружности до
  writeln('=> точка внутри окружности')                                        //точки, то точка лежит внутри этой окружности
                              else
  if r=rast then                                                               //если радиус равен расстоянию от центра окружности до
                      writeln('=> точка лежит на окружности')                  //точки, то точка лежит на окружности
                               else
                      writeln('=> точка не принадлжеит окружности');           //в иных случаях точка не принадлежит окружности
writeln('=> прекратить? 1 - да, 2 нет');                                        //повторение или отмена повторения задачи
readln(i);
if i=1 then writeln('------программа завершена------');
until i=1;
end.


Вернуться к обсуждению:
использование функции IsNumber
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2010, 09:09
Готовые ответы и решения:

Использование функции Exclude
Вывести два столбика рандомных чисел от 1 до 8 без повторяющихся чисел. Чтобы...

Использование рекурсивной функции
Составить программу для вычисления значения с= n!/(m!(n-m)!) используя...

Процедуры, Функции. Организация и Использование
Помогите плиз решить 2 задачки для зачета... 1) Органицазия процедур....

Использование функции в циклических процессах.
Найти предел последовательности Аn, которая вычисляется по формуле An=...

Составление программ с использование функции
Описать рекурсивную функцию MinRec(A,N) вещества типа,которая находит...

9
Другие темы раздела
Turbo Pascal Определить k — количество "особых" элементов матрицы http://www.cyberforum.ru/turbo-pascal/thread178360.html
Дана вещественная матрица А размерности n х m. Определить k — количество "особых" элементов массива А, считая его элемент особым, если он больше суммы остальных элементов его столбца.Помогите решить...
Turbo Pascal Работа с записями Доброго всем времени суток. Очень нуждаюсь в помощи ршения 2х задач. 1.Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число... http://www.cyberforum.ru/turbo-pascal/thread178340.html
Turbo Pascal УДАЛИТЬ ВСЕ файлы кроме 1
Как удалить файлы, все кроме заданного через командную строку ( бат файл) sorry если не в том разделе больше подходящего не нашел. Например, удалить, все файлы с любим розширениям C:\NEW\ кроме...
Используя стек проверить, является ли данное слово перевертышем Turbo Pascal
Создать стек и найти сумму положительных элементов созданного стека.(паскаль) Добавлено через 1 минуту Используя стек проверить, является ли данное слово перевертышем (паскаль). Добавлено...
Turbo Pascal Вычислить сумму элементов, номер столбца которых нечетный http://www.cyberforum.ru/turbo-pascal/thread178267.html
21. Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный. Помогите :))
Turbo Pascal Напишите функцию min для вычисления значения Даны значения c, d, m, k. Напишите функцию min для вычисления значения следующего выражения: (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)). подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru