Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
int main() { int n; std::cin >> n; int k; switch(n) { case 1: k = 5; // 5 - кол-во уроков в понедельник; break; case 2: k = 6; // во вторник break; case 3: k = 6; // в среду и т.д. break; case 4: k = 5; break; case 5: k = 6; break; case 6: k = 4; // в субботу break; default: k = 0; } std::cout << "Количество уроков: " << k << std::endl; }
Program z18; Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 2; min:=a[1].Length; while (a[i] <> '') do begin l:=a[i].Length; if (l < min) then h:= i; i:= i + 1; end; writeln(a[h]);End.
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.
Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
writeln(y);
readkey;
end.