Turbo Pascal. Тема "Двумерные массивы". Написать программу, где нужно ввести Имя и Фамилию, а потом сделать так, чтобы они поменялись местами. Заранее спасибо!
program SwapNames; var firstName, lastName, temp: string; begin writeln('Enter your first name: '); readln(firstName); writeln('Enter your last name: '); readln(lastName); writeln('Before swap:'); writeln('First name: ', firstName); writeln('Last name: ', lastName); // Swap names temp := firstName; firstName := lastName; lastName := temp; writeln('After swap:'); writeln('First name: ', firstName); writeln('Last name: ', lastName); end.
Программа работает следующим образом: она сначала запрашивает у пользователя ввод имени и фамилии, затем выводит их на экран. После этого происходит обмен значений переменных для имени и фамилии, и программа выводит измененные значения на экране.
var
firstName, lastName, temp: string;
begin
writeln('Enter your first name: ');
readln(firstName);
writeln('Enter your last name: ');
readln(lastName);
writeln('Before swap:');
writeln('First name: ', firstName);
writeln('Last name: ', lastName);
// Swap names
temp := firstName;
firstName := lastName;
lastName := temp;
writeln('After swap:');
writeln('First name: ', firstName);
writeln('Last name: ', lastName);
end.
Программа работает следующим образом: она сначала запрашивает у пользователя ввод имени и фамилии, затем выводит их на экран. После этого происходит обмен значений переменных для имени и фамилии, и программа выводит измененные значения на экране.