 Задачки, строки |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| -Даша- |
 22.06.2008 22:00
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 12 Пол: Женский Репутация:  0   |
1)Ввести с клавиатуры две строки длинной не более 5 символов каждая (проверить это оператором условия) и вывести на экран те буквы строк, которые стоят на одинаковых местах и совпадают {например: для слов ‘мама’ и ‘папа’ нужно вывести буквы ‘а’ и 'а'
2)3Написать программу, которая позволяет пользователю ввести два загаданных числа, а после вывести на экран символ с ASCII-кодом равным сумме этих двух чисел. |
   |
 
|
| dream-x |
23.06.2008 8:40
Сообщение
#2
|
|
Пионер Группа: Пользователи Сообщений: 64 Пол: Мужской Реальное имя: Макс Репутация: 1 |
Цитата(-Даша- @ 22.06.2008 23:00)  Написать программу, которая позволяет пользователю ввести два загаданных числа, а после вывести на экран символ с ASCII-кодом равным сумме этих двух чисел.
Program pr;
Var
a,b,c:integer;
l:char;
Begin
write('a= ');
readln(a);
write('b= ');
readln(b);
c:=a+b;
l:=chr(c+ord(0));
writeln(l);
End.
Надеюсь ты читала о типе char... Удачи... |
|
|
|
| _LeeRoy_ |
23.06.2008 17:00
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Реальное имя: Артём Репутация: 0 |
№1
program stroki;
uses crt;
var a,b : string;
i: integer;
begin clrscr;
writeln('vvedite 1 stroku'); readln(a);
if length(a)>5 then begin writeln('oshibka, dlina stroki bolshe 5');readkey;halt end;
writeln('vvedite 2 stroku'); readln(b);
if length(a)>5 then begin writeln('oshibka, dlina stroki bolshe 5');readkey;halt end;
write('odinakovie simvoli : ');
for i:=1 to length(a) do
if a[i]=b[i] then write( a[i],', ');
readkey;
end.
|
|
|
|
| dream-x |
23.06.2008 19:26
Сообщение
#4
|
|
Пионер Группа: Пользователи Сообщений: 64 Пол: Мужской Реальное имя: Макс Репутация: 1 |
_LeeRoy_
Опередил меня  |
|
|
|
| Sozialist |
23.06.2008 22:59
Сообщение
#5
|
 Клавиатурный тиран Группа: Пользователи Сообщений: 79 Пол: Мужской Реальное имя: Дмитрий Репутация: -2 |
Цитата(dream-x @ 23.06.2008 8:40)
Program pr;
Var
a,b,c:integer;
l:char;
Begin
write('a= ');
readln(a);
write('b= ');
readln(b);
c:=a+b;
l:=chr(c+ord(0));
writeln(l);
End.
Задача решена, но как? Не стоит объявлять лишних переменных, а именно: c и l. ord(0)=0. write(chr(a+b)) будет в самый раз, согласен? я к чему? Я к оптимизации. |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 10:06 |