Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.08.2015 09:06
- Информатика
- remove_red_eye 14185
- thumb_up 29
Ответы и объяснения 1
№1
integer - целые переменные, например 1 5 -8
real - вещественные или дробные переменные 7,15 48,1 7,0
string - строки, в которые можно писать все подряд 'adadawd' '2', причем '2' строковое и 2 численное - это НЕ одно и тоже.
№2
program Something;
var y, x: real;
begin
writeln('Введите x ' );
readln(x);
y := (3*x*x + 18)*x + 12*x*x*x - 5;
writeln(y:2:3);
end.
№3
а)
program Sommething;
var a, b: integer;
begin
writeln('Введите числа ' );
readln(a, b);
if a > b then begin
writeln(a); end
else begin
writeln(b); end;
end.
б)
var a, b, c: integer;
begin
writeln('Введите числа ' );
readln(a, b, c);
if (a > b) and (a > c) then begin
writeln(a); end;
if (b > a) and (b > c) then begin
writeln(b); end;
if (c > a) and (c > b) then begin
writeln(c); end;
end.
в)
var a, b, c, D, x1, x2: real;
begin
writeln('Введите коэффициенты ' );
readln(a, b, c);
D := (b*b)-4*a*c;
if D >= 0 then begin
x1 := (-b + sqrt(D))/(2*a);
x2 := (-b - sqrt(D))/(2*a);
if D > 0 then begin
write(x1:2:3, ' ', x2:2:3);
end
else begin
write(x1:2:3);
end;
end
else begin
writeln('D < 0 Решений нет')
end;
end.
№4
а)
var i : integer;
begin
i := 5;
while i <= 60 do
begin
if i mod 2 = 0 then begin
write(i, ' ');
end;
Inc(i);
end;
end.
б)
var i, s : integer;
begin
s := 0;
i := 10;
while i <= 20 do
begin
s := s + i;
Inc(i);
end;
write(s)
end.
Далее мои познания в столь "великолепном" языке как паскаль заканчиваются и начинается что-то более понятное, то есть C++:
№5
#include
#include
#include
using namespace std;
int main()
{
int n;
cout << "Введите число элементов ";
cin >> n;
int le[n];
srand(time(0));
for(int i=0;i<18;i++){
le[i] = rand()%5 - 5;
}
int max = le[0];
for(int i=0;i
}
cout << "Максимальное число равно " << max << endl;
return 0;
}
№6
а)
#include
#include
using namespace std;
int main()
{
string a;
cin >> a;
int size = a.size();
for(int i=0;i < size; i++){
if(a[i] == 'A'){
a[i] = 'Y';
}
}
cout << a << endl;
return 0;
}
б)
string a;
char n;
int m=0;
cout << "Введите строку ";
cin >> a;
cout << "Введите символ ";
cin >> n;
int size = a.size();
for(int i=0;i < size; i++){
if(a[i] == n){
m++;
}
}
cout << m << endl;
return 0;
}
40 минут
40 минут я писал это.
Кто там говорил, что нынче не существует рабов?
- 07.08.2015 15:34
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.