Program work1;
uses crt;
var x,y,z: real;
begin
clrscr ;
writeln('введите число x');
readln(x);
writeln('введите число y');
readln(y);
writeln('введите число z');
readln(z);
if (x<=5) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');
if (y<=5) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');
if (z<=5) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln ('z не принадлежит и интервалу');
readln;
for (int i = 0; i < fabs(N); i++) {
// выводим символ в консоль
cout << sym;
}
// отступаем строчку и говорим, что программа закончилась
cout << endl << "Finish draw" << endl;
}
void printColumn(int N) {
// конвертируем число N в строку
std::string s = std::to_string(N);
// делаем цикл по всей строке. s.length вернет ее длинну.
// любая строка это массив символов, а с массивами мы работаем циклами.
for (int i = 0; i < s.length(); i++) {
// выводим символ i в строке s
cout << s[i] << endl;
}
}
int main()
{
cout << "Task 30241034!" << endl; // just for fun
// вызываем первое. Передаю один аргумент т. к. второй уже стоит по умолчанию
drawLine(-3);
// вызываем второе
printColumn(12);
return 0;
}
Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150%
Font.Color:=clBlack; // цвет шрифта
Window.Clear(clWhite); // залить окно цветом
Brush.Color:=clWhite; // фон текста
Font.Name:='Arial'; // имя шрифта
Writeln('Arial font');
Font.Name:='Times'; // имя шрифта
Writeln('Times font');
Font.Name:='Verdana'; // имя шрифта
Writeln('Verdana font');
Font.Name:='Broadway'; // имя шрифта
Writeln('Broadway font');
end.