Собственно сами задания можно глянуть тута http://slava191.blogspot.ru/2012/12/1580.html
1
а) 100/10 +trunс(5.8) Тип: real Значение 15
б) odd(3) and (( 5 mod 10 ) > 17) Тип: boolean Значение false
Рекомендации:
Для правильного выполнения этого задания рекомендую повторить табличку "Стандартные функции и процедуры"
2
В этом задание следует помнить, что запись
пусть с=0
'c=', c:6:1;
На экране
c=_ _ _ 0.0 (точка тоже символ!)
6-- это кол-во отступов включая число!
короче говоря любых знакомест
3, 4, 5
Тут надо знать системы счисления и не более того
6
Весьма запаристая задачка, главное помнить формулу N=2^I где I - кол-во бит
Так же не мешало бы вспомнить Количество информации впринципе)
7
там и объяснять нечего простой алгоритм определяющий разряд числа
реализовывается с помощью div
8
Для успешного решения этого номера вот вам простые схемы на процедуры и функции
PROGRAM S;
VAR Y1,Y2: REAL;
PROCEDURE SQ (A,B,C : REAL; VAR X1,X2 : REAL);
VAR D: REAL;
BEGIN
D:=B*B-4*A*C;
X1:= (-B+SQRT(D))/(2*A);
X2:= (-B-SQRT(D))/(2*A);
END;
BEGIN (*PROGRAM*)
SQ(1,2,-3,Y1,Y2);
WRITELN('Y1=',Y1,'Y2=',Y2);
END.
_____________________________________
Function UpCaseStr(S : String) : String;
Var I : Integer;
Begin
For I:=1 To Length(S) Do
If (S[I]>='a') And (S[I]<='Z') Then Dec(S[I], 32);
UpCaseStr:=S;
End;
___________________________________
9
Простое руководство по файлам
Открыть для чтения reset(f); Если файла не существует, то будет выведена ошибка.
Создать или перезаписать rewrite(f); Если файла не существует, то он будет создан;
Создать или открыть и дописать в конец файла append(f); Если файла не существует, то он будет создан;
Сохранить и закрыть файл close(f);
read(f,a,b); — читать из файла f две переменные a и b. После выполнения этой процедуры указатель в файле передвинется за переменную b;
readln(f,a,b,c); — читать из файла f три переменные a, b и c, а затем перевести указатель (курсор) на начало следующей строки; если кроме уже считанных переменных в строке содержалось еще что-то, то оно будет проигнорировано.
write(f,a,b,c); — записать в файл f переменные a,b и c;
writeln(f,a,b); — записать в файл f переменные a и b, а затем записать туда же символ "конец строки".
....
думаю создать типизированный файл и записать в него while not eof не у кого проблем с этим не возникнет)))
1
а) 100/10 +trunс(5.8) Тип: real Значение 15
б) odd(3) and (( 5 mod 10 ) > 17) Тип: boolean Значение false
Рекомендации:
Для правильного выполнения этого задания рекомендую повторить табличку "Стандартные функции и процедуры"
2
В этом задание следует помнить, что запись
пусть с=0
'c=', c:6:1;
На экране
c=_ _ _ 0.0 (точка тоже символ!)
6-- это кол-во отступов включая число!
короче говоря любых знакомест
3, 4, 5
Тут надо знать системы счисления и не более того
6
Весьма запаристая задачка, главное помнить формулу N=2^I где I - кол-во бит
Так же не мешало бы вспомнить Количество информации впринципе)
7
там и объяснять нечего простой алгоритм определяющий разряд числа
реализовывается с помощью div
8
Для успешного решения этого номера вот вам простые схемы на процедуры и функции
PROGRAM S;
VAR Y1,Y2: REAL;
PROCEDURE SQ (A,B,C : REAL; VAR X1,X2 : REAL);
VAR D: REAL;
BEGIN
D:=B*B-4*A*C;
X1:= (-B+SQRT(D))/(2*A);
X2:= (-B-SQRT(D))/(2*A);
END;
BEGIN (*PROGRAM*)
SQ(1,2,-3,Y1,Y2);
WRITELN('Y1=',Y1,'Y2=',Y2);
END.
_____________________________________
Function UpCaseStr(S : String) : String;
Var I : Integer;
Begin
For I:=1 To Length(S) Do
If (S[I]>='a') And (S[I]<='Z') Then Dec(S[I], 32);
UpCaseStr:=S;
End;
___________________________________
9
Простое руководство по файлам
Открыть для чтения reset(f); Если файла не существует, то будет выведена ошибка.
Создать или перезаписать rewrite(f); Если файла не существует, то он будет создан;
Создать или открыть и дописать в конец файла append(f); Если файла не существует, то он будет создан;
Сохранить и закрыть файл close(f);
read(f,a,b); — читать из файла f две переменные a и b. После выполнения этой процедуры указатель в файле передвинется за переменную b;
readln(f,a,b,c); — читать из файла f три переменные a, b и c, а затем перевести указатель (курсор) на начало следующей строки; если кроме уже считанных переменных в строке содержалось еще что-то, то оно будет проигнорировано.
write(f,a,b,c); — записать в файл f переменные a,b и c;
writeln(f,a,b); — записать в файл f переменные a и b, а затем записать туда же символ "конец строки".
....
думаю создать типизированный файл и записать в него while not eof не у кого проблем с этим не возникнет)))
