Помогите с написанием задач на Free Pascal - Страница 2

desert · 21.03.2008, 00:03

2) Там формула с 8 класа ГЕОМЕТРИИ. Я уже не помню

Код:

var
 a,b,c:integer;
 ha,hb,hc:real;
begin
read(a,b,c);
ha:=форула№1
hb:=форула№2
hc:=форула№3
writeln(ha,' ',hb,' ',hc);

Если вспомню, то напишу

Призрак · 21.03.2008, 13:26

Цитата:

Найдите сумму m последних цифр числа n.

Код:

  sum:=sum*10+n mod 10;

Следует писать так:

Код:

  sum:=sum+n mod 10;

Призрак · 21.03.2008, 13:54

Код:

if stroka[i]='i' then res:=true;

Следует читать:

Код:

if stroka[i]=':' then res:=true;

Мой вариант пятого задания (ИМХО оптимальней немного):

Код:

var
 stroka, otvet:string;
 i:integer;
 res:boolean;
begin
res:=false;
read(stroka);
for i:=1 to length(stroka) do 
   if stroka[i]=':' then 
      if res then break
      else res=true
   else if res then otvet:=otvet+stroka[i];
writeln(otvet);
end.

desert · 21.03.2008, 21:02

Призрак спасибо что исправил мои ошибки. (просто работаю без компилятора (Винт форматирнул), поетому проверить не мог)

AlexZir · 22.03.2008, 10:19

desert
В топике #3 тип, пожалуйста, поменяйте на REAL, там по условию даны действительные числа.

xdonisimox · 18.10.2009, 14:45

Народ,а помогите и мне ришить задачку!ПЛИЗЗЗ! НАЙТИ ВСЕ ТРЁХЗНАЧНЫЕ ЧИСЛА, СУММА ЦИФР КОТОРЫХ РАВНА K.

imported_Feona · 07.11.2009, 23:15

Здравствуйте!

Очень рассчитываю на вашу помощь.

При загрузке винды появляется окошко с текстом "Lsass.exe системная ошибка. Не удалось выделить требуемый объем в журнале реестра".

После нажатия кнопки ОК - перезагрузка до того же экрана.

Поиск в интернете результатов не дал. Именно такую ошибку не встретила ни разу не где.

Заранее спасибо!

Endrew · 07.11.2009, 23:21

Проблемы с LSASS.EXE
В случае неполадки с LSASS.EXE Windows XP перезагрузит компьютер, отобразив окно об ошибке. Такое происходит при заражении вирусом. Если этот файл удалён, Windows XP отобразит чёрный экран с белым курсором

---------- Добавлено в 22:22 ---------- Предыдущее сообщение было написано в 22:21 ----------

проверьте антивирусом компьютер ,если ничего не найдете ,то сюда http://pchelpforum.ru/f26/t6442/#post37758

imported_Feona · 07.11.2009, 23:25

Так есть ли способы исправить положение? Или только переустановка?

Спасибо!!

01pump · 07.11.2009, 23:32

Цитата:

Сообщение от Feona

Так есть ли способы исправить положение? Или только переустановка?

1) Вы можете вспомнить когда эта проблема стала появляться?
2) Вы можете скачать образ LiveCD для попытки восстановления системы?
3) У вас есть CD диск с дистрибутивом Windows с которого ставили систему?

21.03.2008, 00:03	#11 (permalink)
desert Member Регистрация: 19.03.2008 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	2) Там формула с 8 класа ГЕОМЕТРИИ. Я уже не помню Код: var a,b,c:integer; ha,hb,hc:real; begin read(a,b,c); ha:=форула№1 hb:=форула№2 hc:=форула№3 writeln(ha,' ',hb,' ',hc); Если вспомню, то напишу

21.03.2008, 13:54	#13 (permalink)
Призрак Member Регистрация: 26.03.2007 Сообщений: 89 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 17	Код: if stroka[i]='i' then res:=true; Следует читать: Код: if stroka[i]=':' then res:=true; Мой вариант пятого задания (ИМХО оптимальней немного): Код: var stroka, otvet:string; i:integer; res:boolean; begin res:=false; read(stroka); for i:=1 to length(stroka) do if stroka[i]=':' then if res then break else res=true else if res then otvet:=otvet+stroka[i]; writeln(otvet); end.

22.03.2008, 10:19	#15 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	desert В топике #3 тип, пожалуйста, поменяйте на REAL, там по условию даны действительные числа. __________________ Убить всех человеков!

07.11.2009, 23:15	#17 (permalink)
imported_Feona Новичок Регистрация: 07.11.2009 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 0	Lsass.exe Здравствуйте! Очень рассчитываю на вашу помощь. При загрузке винды появляется окошко с текстом "Lsass.exe системная ошибка. Не удалось выделить требуемый объем в журнале реестра". После нажатия кнопки ОК - перезагрузка до того же экрана. Поиск в интернете результатов не дал. Именно такую ошибку не встретила ни разу не где. Заранее спасибо!

21.03.2008, 21:02	#14 (permalink)
desert Member Регистрация: 19.03.2008 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Призрак спасибо что исправил мои ошибки. (просто работаю без компилятора (Винт форматирнул), поетому проверить не мог)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

18.10.2009, 14:45	#16 (permalink)
xdonisimox Новичок Регистрация: 18.10.2009 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Народ,а помогите и мне ришить задачку!ПЛИЗЗЗ! НАЙТИ ВСЕ ТРЁХЗНАЧНЫЕ ЧИСЛА, СУММА ЦИФР КОТОРЫХ РАВНА K.

07.11.2009, 23:21	#18 (permalink)
Endrew Member Регистрация: 01.04.2009 Сообщений: 12,026 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 446	Проблемы с LSASS.EXE В случае неполадки с LSASS.EXE Windows XP перезагрузит компьютер, отобразив окно об ошибке. Такое происходит при заражении вирусом. Если этот файл удалён, Windows XP отобразит чёрный экран с белым курсором ---------- Добавлено в 22:22 ---------- Предыдущее сообщение было написано в 22:21 ---------- проверьте антивирусом компьютер ,если ничего не найдете ,то сюда http://pchelpforum.ru/f26/t6442/#post37758

07.11.2009, 23:25	#19 (permalink)
imported_Feona Новичок Регистрация: 07.11.2009 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 0	Так есть ли способы исправить положение? Или только переустановка? Спасибо!!