Вопрос № 72035: Привожу кусок кода. Здесь от пользователя требуется ввести числа типа word. Как проверять что пользователь ввел правильное число( от 0 до 65535) а не текст, или число другого типа?
uses crt;
type zap=record
pole1:byte;
pole2:w...Вопрос № 72040: Здраствуйте товарищи программисты!Помогите с решением задачи!Вот условие:
Работа с текстовыми файлами:
Список городов с указанием континента.
Input.txt:
Лондон - Европа; Токио - Азия; Париж - Европа; Сидней - Австралия; Москва - Европ...Вопрос № 72041: Здраствуйте товарищи программисты!Напишите пожалуйста программу! Вот условие:
Построить график функции y=sin(10/x), Xmin=-5 Xmax=5;
Координаты графического окна(где будет размещён график): x1=0 y1=0 x2=400 y2=300!График построить на координа...
Вопрос № 72.035
Привожу кусок кода. Здесь от пользователя требуется ввести числа типа word. Как проверять что пользователь ввел правильное число( от 0 до 65535) а не текст, или число другого типа?
uses crt;
type zap=record
pole1:byte;
pole2:word;
end;
mas=array[1..15] of zap;
var matr:^mas;
i:byte;
begin
clrscr;
randomize;
new(matr);
writeln('Введите 15 числових значений от 0 до 65535');
writeln;
writeln(' ');
for i:=1 to 15 do
begin
write('Значение № ',tform(i),': ');
matr^[i].pole1:=random(255);
read(matr^[i].pole2);
end;
writeln;
Отправлен: 22.01.2007, 09:07
Вопрос задал: Snik (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)
Отвечает: Маренич Владимир
Здравствуйте, Snik!
uses crt;
type zap=record
pole1:byte;
pole2:word;
end;
mas=array[1..15] of zap;
var matr:^mas;
i:byte;
//---------------------
s: string;
n: integer;
//---------------------
begin
clrscr;
randomize;
new(matr);
writeln('Введите 15 числових значений от 0 до 65535');
writeln;
writeln(' ');
for i:=1 to 15 do
repeat
write('Значение № ',tform(i),': ');
matr^[i].pole1:=random(255);
read(s);
Val(s, matr^[i].pole2, n);
until n=0;
writeln;
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 22.01.2007, 11:47
Вопрос № 72.040
Здраствуйте товарищи программисты!Помогите с решением задачи!Вот условие:
Работа с текстовыми файлами:
Список городов с указанием континента.
Input.txt:
Лондон - Европа; Токио - Азия; Париж - Европа; Сидней - Австралия; Москва - Европа; Пекин - Азия; +
Output.txt:
Австралия: Сидней;
Азия: Пекин, Токио;
Европа: Лондон, Москва, Париж;
Напишите пожалуйста полностью программу, а то мне уже писали основную функцию этой программы, а доделать мне ни как!P.S.Если не понятно как я сформулировал условие, то пишите в ICQ 491292319!
Отправлен: 22.01.2007, 09:37
Вопрос задал: SHTEP (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Verena
Здравствуйте, SHTEP!
Что-то в этом роде, но я не компилировала. Расчитано, чтобы в файле входных данных была одна строка указанного Вами формата. Если что не так, пишите. Удачи)
Приложение:
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: 3-ий класс)
Ответ отправлен: 22.01.2007, 18:09 Оценка за ответ: 5
Вопрос № 72.041
Здраствуйте товарищи программисты!Напишите пожалуйста программу! Вот условие:
Построить график функции y=sin(10/x), Xmin=-5 Xmax=5;
Координаты графического окна(где будет размещён график): x1=0 y1=0 x2=400 y2=300!График построить на координатной оси!Заранее спасибо!
Отправлен: 22.01.2007, 09:41
Вопрос задал: SHTEP (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Bingo
Здравствуйте, SHTEP!
Скопируйте код из приложения, а затем запустите его и посмотрите, какой получился график.
Если что не понятно, пишите в мини-форум.
Приложение:
--------- Все получится!
Ответ отправил: Bingo (статус: 1-ый класс)
Ответ отправлен: 22.01.2007, 21:51 Оценка за ответ: 5
