Ненавижу паскаль...
№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<br>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<br>begin
s := s + i;
Inc(i);
end;
write(s)
end.
Далее мои познания в столь "великолепном" языке как паскаль заканчиваются и начинается что-то более понятное, то есть C++:
№5
#include
#include
#include
using namespace std;
int main()
{
int n;
cout << "Введите число элементов ";<br> cin >> n;
int le[n];
srand(time(0));
for(int i=0;i<18;i++){<br> le[i] = rand()%5 - 5;
}
int max = le[0];
for(int i=0;i if(max < le[i]){max = le[i];}
}
cout << "Максимальное число равно " << max << endl;<br>
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;<br>
return 0;
}
б)
string a;
char n;
int m=0;
cout << "Введите строку ";<br> cin >> a;
cout << "Введите символ ";<br> cin >> n;
int size = a.size();
for(int i=0;i < size; i++){
if(a[i] == n){
m++;
}
}
cout << m << endl;<br>
return 0;
}
40 минут
40 минут я писал это.
Кто там говорил, что нынче не существует рабов?