четверг, 13 декабря 2012 г.

[Семестровая по информатике] Нулевой вариант разбор

Собственно сами задания можно глянуть тута http://slava191.blogspot.ru/2012/12/1580.html


а) 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  не у кого проблем с этим не возникнет)))