Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачки

Автор: -Даша- 23.06.2008 2:00

1)Ввести с клавиатуры две строки длинной не более 5 символов каждая (проверить это оператором условия) и вывести на экран те буквы строк, которые стоят на одинаковых местах и совпадают {например: для слов ‘мама’ и ‘папа’ нужно вывести буквы ‘а’ и 'а'
2)3Написать программу, которая позволяет пользователю ввести два загаданных числа, а после вывести на экран символ с ASCII-кодом равным сумме этих двух чисел.

Автор: dream-x 23.06.2008 12:40

Цитата(-Даша- @ 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 21:00

№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 23:26

_LeeRoy_

Опередил меня good.gif

Автор: Sozialist 24.06.2008 2:59

Цитата(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)) будет в самый раз, согласен? я к чему? Я к оптимизации.