Вопрос № 122804: В веденной с клавиатуры строке найти наиболее длинное и наиболее короткое слово. Вывести найденные слова и их длину в текстовой файл. Если найденно несколько слов с одной длиной, вывести их все....Вопрос № 122805: По данной формуле y=(квадратный корень из x) +12 , вычеслить все значения у если х предналежыт числовому промежутку [4;16] и меняется с шагом 1 Результат вывести на экран и текстовый фаил.
Заранее большое спосибо....Вопрос № 122842: Уважаемые эксперты, помогите с решением четырех задач:
1. Напишите программу, которая подсчитывает стоимость телеграммы, текст которой вводится с клавиатуры.
2. Напишите программу, определяющую, какая из букв первая или последняя встречаются ...Вопрос № 122847: Здравствуйте! У меня возник вопрос по поводуя, как доделать следующую программу.
Информация про читателей библиотеки:
регистрационный номер, имя, фамилия, серия и номер паспорта, количество взятых книг, дата сдачи книги(дата в формате: Деня.М...
Вопрос № 122.804
В веденной с клавиатуры строке найти наиболее длинное и наиболее короткое слово. Вывести найденные слова и их длину в текстовой файл. Если найденно несколько слов с одной длиной, вывести их все.
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Наусов Вячеслав Сергеевич!
Такой вопрос уже задавался.
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 12.02.2008, 13:54
Вопрос № 122.805
По данной формуле y=(квадратный корень из x) +12 , вычеслить все значения у если х предналежыт числовому промежутку [4;16] и меняется с шагом 1 Результат вывести на экран и текстовый фаил.
Заранее большое спосибо.
Отправлен: 12.02.2008, 13:48
Вопрос задал: Потеренный (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Потеренный!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 12.02.2008, 14:01
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Потеренный! Var y,x:integer; f:text; begin assign(df,'D:Dat.txt'); rewrite(f); for x:=4 to 16 do begin y:=x*x+12; Writeln(y); Writeln(f,y); end; close(f); readln; end.
--------- Любовь может все.
Уважаемые эксперты, помогите с решением четырех задач:
1. Напишите программу, которая подсчитывает стоимость телеграммы, текст которой вводится с клавиатуры.
2. Напишите программу, определяющую, какая из букв первая или последняя встречаются в заданном слове чаще.
3. Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах.
4. Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах
Отправлен: 12.02.2008, 17:12
Вопрос задал: GurikXII (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, GurikXII!
Вторая и третья программы в приложении.
Уточните, пожалуйста, условия первой и четвертой задачи.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 12.02.2008, 17:51
Отвечает: Шемет Станіслав Васильович
Здравствуйте, GurikXII!
const
n=0.001(*стоимость одной буквы в телеграммы*)
var
s:string;
i,j:integer;
Procedure One;
begin
readln(s);
Writeln('стоимость одной буквы в телеграммы ',length(s)*n);
end;
procedure Two(ss:string)
begin
i:=0;
if length(ss)>1 then
for j:=2 to length(ss)-1 do
begin
if ss[1]=ss[j] then
inc(i);
if ss[length(ss)]=ss[j] then
dec(i);
end;
else
writeln('Очень маленькое слово');
If i <0 then
Writeln('Первая буква встречаеться часще второй')
else
if i=0 then
Writeln('Букві встречаються одинаково')
else
Writeln('Вторая буква встречаеться больше чем первая ');
end;
Procedure Three(ss:string);
begin
i:=0;
for j:=1 to length(ss) do
if (ss[j]='о')and(j mod 2 =0 ) then
inc(i);
Writeln('Количество букв «о»',i)
end;
begin
One;
Two;
Three;
end.
--------- Любовь может все.
Здравствуйте! У меня возник вопрос по поводуя, как доделать следующую программу.
Информация про читателей библиотеки:
регистрационный номер, имя, фамилия, серия и номер паспорта, количество взятых книг, дата сдачи книги(дата в формате: Деня.Месяц.Год, пример 12.02.2008). В программе нужно взять сегоднейшее число и на экран вывести, всех тех читателей кому надо было сдать книги до этого числа (сегоднейшего). Все это еще надо записать в файл. P.S. Тема: типизированные файл.
Я уже сделал часть программы(в приложении). По большому счету остались условия для вывода читателей кому надо было сдать книги до сегоднейшего числа. С чем у меня и проблема.
Пожалуйста помогите мне доделать эту программу. Заранее спасибо.
Приложение:
Отправлен: 12.02.2008, 18:30
Вопрос задал: bellick (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Sanek
Здравствуйте, bellick!!!
Впринципе я все сделал только вот я не очень сильно дружу с типизироваными файлами так что я не знаю как в файл дописывать, а так все работает!!! если будут вопросы задавайте в ICQ 391581583
Приложение:
Ответ отправил: Sanek (статус: 1-ый класс)
Ответ отправлен: 13.02.2008, 00:42
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.