30.05.2009, 02:09 | #52 (permalink) |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
Vladimir_S, не могли бы Вы помочь еще с заданиями 4, 5, 6, 7 из поста #29.
И в задании: В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.Номер минимального элемента массива. 2.Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а потом — все остальные. (Ваш пост №30), паскаль также не хочет компилировать, ругается на выражение: "IF ABS(B[i])>1 THEN" |
30.05.2009, 08:33 | #53 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
IF ABS(B[i])>1 THEN строкой IF SQRT(SQR(B[i]))>1 THEN или даже еще проще IF SQR(B[i])>1 THEN поскольку если абсолютная величина числа <>1, то и его квадрат тоже <>1. Что касается остальных заданий - давайте-ка сами. Я могу помочь с составлением программы, с нахождением алгоритма, но учить за Вас записи, процедуры и функции считаю бессмысленным, ибо я это всё и так знаю. |
|
30.05.2009, 11:37 | #54 (permalink) |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
Кроме помощи с программой я от Вас ничего и не прошу .. Теорию я возьму на себя
В задании он говорит: Error 79: Integer or real expression expected. |
30.05.2009, 14:44 | #55 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
30.05.2009, 23:21 | #57 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну так естественно ругается! У меня-то после 1 никакой скобки нет - а у Вас она откуда взялась? На нее, родимую, и показывает!
И вообще - зачем Вы вручную набиваете? Если проблемы с переносом блока в турбосреду, то я уже писал о том, как это преодолевается, здесь: http://www.tehnari.ru/f43/t21869/index3.html#post177358 |
31.05.2009, 02:11 | #58 (permalink) |
Специалист
Регистрация: 17.07.2007
Адрес: Мордовия
Сообщений: 875
Сказал(а) спасибо: 17
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 4825
|
ууупс !! Спасибо огромное ая сижу, нбиваю когда время есть.. не знал.
Сейчас все работает отлично, СПАСИБО ВАМ огромное.. Так Вы мне поможете с остальными программами? |
31.05.2009, 09:38 | #59 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ох, ну и настырный же Вы товарищ!
Цитата:
Personal_Data=Record SurName:STRING; Name:STRING; TelNumber:LongInt; BD_Date:BYTE; BD_Month:BYTE; BD_Year:WORD; END; CONST N=10; VAR Dossier:ARRAY[1..N] of Personal_Data; i,j,Lng_Max:INTEGER; S:ARRAY[1..N] of STRING; BEGIN FOR i:=1 TO N DO WITH Dossier[i] DO BEGIN WriteLn('Enter SurName: '); ReadLn(SurName); WriteLn('Enter Name: '); ReadLn(Name); WriteLn('Enter Telephone Number (without hyphens, e.g. 222335577): '); ReadLn(TelNumber); WriteLn('Enter BirthDay Date (1-31): '); ReadLn(BD_Date); WriteLn('Enter BirthDay Month (1-12): '); ReadLn(BD_Month); WriteLn('Enter BirthDay Year (e.g. 1998): '); ReadLn(BD_Year); END; WriteLn; Lng_Max:=0; FOR i:=1 TO N DO WITH Dossier[i] DO BEGIN S[i]:=SurName+' '+Name+' '; IF Length(S[i])>Lng_Max THEN Lng_Max:=Length(S[i]); END; FOR i:=1 TO N DO WITH Dossier[i] DO BEGIN Write(i:2,' ',S[i]); FOR j:=1 TO Lng_Max-Length(S[i]) DO Write(' '); Write(TelNumber:12,' '); IF BD_Date<10 THEN Write('0',BD_Date:1,'.') ELSE Write(BD_Date:2,'.'); IF BD_Month<10 THEN Write('0',BD_Month:1,'.') ELSE Write(BD_Month:2,'.'); WriteLn(BD_Year); END; ReadLn; END. |
|
31.05.2009, 10:12 | #60 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
|
|