day & night

try-except Диалоговые окна ввода/вывода сообщений Типизированны, В помощь учащимся
Дата обновления: , перейти к новому сообщению
#1
kos1993



Новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 23.11.2010
Пользователь №: 1.826.146


Респектов: 0
----------


Предупреждений:


Помогите сделать несколько задачек! В DELPHI !!!

1)Вывести на экран 1 или 0 в зависимости от того, есть ли среди первых трех цифр дробной части заданного положительного вещественного числа цифра ноль.

Пока что то такое придумывается помогите доделать

Code
procedure TForm1.btn1Click(Sender: TObject);
var
z:integer;
begin
z:=StrToint(Edt1.Text);
if (z mod 10)=0 then
ShowMessage('3Я цифра 0')
else
z:=int(z/10)
if (z mod 10)=0 then
ShowMessage('2Я цифра 0');
else int(z/10_=0 then
ShowMessage('1Я цифра 0');
else
ShowMessage('Нет нуля');
end;
end;
end.


2)Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Разбить исходную строку на две подстроки, причем первая длиной k-символов (если на k-ю позицию попадает слово, то его следует отнести ко второй строке, дополнив первую пробелами до k-позиций).

3)Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка.

Заранее всем благодарен за вниманее!!
User is offline
Go topGo end
 

Ответов(1 - 1)
icon1 16.03.2011 - 21:36
#2
kos1993



Новичок


Группа: Пользователи
Сообщений: 7
Регистрация: 23.11.2010
Пользователь №: 1.826.146


Респектов: 0
----------


Предупреждений:


Решите пожалуйста последнюю задачу для отчёта:

Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка.

Признателен за помощь!!!
User is offline
Go topGo end

Topic Options
Сейчас: 29.03.2024 - 14:55
Мобильная версия | Lite версия