program produkt;
var a, b, p: integer;
begin
p:= 0;
writeln(‘Введите два множителя через пробел’);
readln(a, b);
//Если оба числа положительны или оба отрицательны,то операцию умножения
//можно заменить многократным добавлением модуля одного из чисел.
//Если одно число отрицательно, другое положительно,
//то умножение можно заменить многократным вычитанием модуля одного из чисел.
if ((a > 0) and (b > 0)) or ((a < 0) and (b < 0)) then
for i:integer:= 1 to abs(b) do p:= p + abs(a)
else for i:integer:= 1 to abs(b) do p:= p — abs(a);
writeln(‘Произведение: ‘, p)
end.
Как добавить хороший ответ?
Что необходимо делать:
- Написать правильный и достоверный ответ;
- Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
- Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.
Что делать не стоит:
Таблица умножения на Pascal
- Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
- Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
- Писать ответ ПРОПИСНЫМИ БУКВАМИ;
- Материться. Это невежливо и неэтично по отношению к другим пользователям.
Пример вопроса
Русский язык
7 минут назад
Какой синоним к слову «Мореплаватель»?
Пожаловаться
Хороший ответ
Вася Иванов
Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.
Источник: uchi.ru
Паскаль как писать программу для умножения
Если Вы не разобрались в коде и не понимаете, что означает термин «длинные» числа, то будьте добры, не давайте бесполезных советов!
SeRhy
1) нужны ли промежуточные результаты (я вижу, Вы пытаетесь по строчкам записать результаты умножения в двухмерный массив).
2) ОЧЕНЬ рекомендую Вам заполнить массивы нулями и записывать исходные числа начиная с конца массивов mas1 и mas2.
Типа так. Вот. попробуйте программку:
program fact; uses crt; var m1,m2:string; mas1,mas2:array[1..100] of string[5]; r:array[1..100] of integer; i,j,cod,perenos : integer; c1,c2 : integer; begin writeln(‘Vvedit 2 chusla z novogo ryadka’); readln(m1); readln(m2); for i:=1 to 100 do begin mas1[i] := ‘0’; mas2[i] := ‘0’; r[i] := 0; end; for i:=length(m1) downto 1 do mas1[100+i-length(m1)]:=copy(m1,i,1); for i:=length(m2) downto 1 do mas2[100+i-length(m2)]:=copy(m2,i,1); for i:=100 downto 100-Length(m2) do begin val(mas2[i],c2,cod); for j:=100 downto 100-Length(m1) do begin val(mas1[j],c1,cod); r[j+i-100]:=r[j+i-100]+(c1*c2); end; end; writeln; perenos := 0; for i:=100 downto 1 do begin r[i] := (r[i] + perenos); perenos := r[i] div 10; r[i] := r[i] mod 10; end; i:=1; while (i<100) and (r[i]=0) do inc(i); for j:=i to 100 do write(r[j]); readln; end.
Источник: www.programmersforum.ru
#6. Процедуры и Функции на PascalABC.net
Как на языке Паскаль умножить 2 любых числа? Напишите программу, пожалуйста.
Program pr1;Uses Crt;Vara,b,p:real;beginClrScr;write(‘a=’);readln(a);write(‘b=’);readln(b);p:=a*b;writeln(‘a*b=’,p);readln;end.
Добавить свой ответ Ответить на вопрос
Еще вопросы
А) «Горе от ума» А.С.Грибоедов
Б) «Евгений Онегин» А.С.Пушкин
В) «Мертвые души» Н.В.Гоголь
Г) «Матрёнин двор» А.И.Солженицын
2. Кто из авторов не относится к периоду романтизма.
Г) А.Н. Островский.
3. Лирическое отступление – это:
А) Выраженное художественными средствами эмоциональное восприятие действия повествователем или лирическим героем.
Б) Условный образ, в котором автор стремится передать свое отношение к изображаемому.
В) Не связанное с сюжетным повествованием размышление автора, включенное им в произведение литературы.
Г) Эпизод литературного произведения.
4. Правильно соотнесите литературные направления и характерные для них черты, проявившиеся в комедии «Горе от ума»
А) главный герой: одинок и не понят окружающими; противостоит обществу; речь насыщена трагическим пафосом; мотив изгнанничества;
Б) социальная и психологическая типизация; индивидуализация героев; отсутствие однозначности в образах героев комедии; «порок не показан, до-бродетель не торжествует»; в произведении присутствует более двадцати действующих лиц;
В) единство места, времени и действия произведения; амплуа; принцип говорящих фамилий.
5. Определите вид жанра: «Лирическое стихотворение, передающее глубоко личные переживания человека, проникнутые настроением грусти».
А) Баллада Б) Элегия В) Ода Г) Трагедия
6. Соседи прозвали Ленского «полурусским». В какой европейской стране он получил образование?
7. Сколько писем Онегин написал Татьяне?
8. Соотнесите данные ниже характеристики с действующими лицами романа «Евгений Онегин»:
1)Он застрелиться, слава богу, А. Ольга
Попробовать не захотел, Б. Онегин
Но к жизни вовсе охладел. В. Татьяна
2)Как поцелуй любви мила, Г. Ленский
Глаза как небо голубые; Д. Ларина
Улыбка, локоны льняные,
Движенья, голос, легкий стан…
3)Он верил, что друзья готовы,
За честь его принять оковы
И что не дрогнет их рука
Разбить сосуд клеветника.
4)Рвалась и плакала сначала,
С супругом чуть на развелась;
Потом хозяйством занялась,
Привыкла и довольна стала.
Ничтожный призрак, иль еще
Москвич в Гарольдовом плаще,
Чужих причуд истолкованье,
Слов модных полный лексикон?
Уж не пародия ли он?
6) Дика, печальна, молчалива,
Как лань лесная боязлива.
9. Какие повести составляют роман М.Ю.Лермонтова «Герой нашего времени»?
10. Н.В.Гоголь писал: «Один за другим следуют у меня герои, один пошлее другого». Восстановите последовательность в изображении деградации помещиков в поэме «Мертвые души».
А) Коробочка Б) Собакевич В) Ноздрев Г) Манилов Д) Плюшкин.
11. Среди художественных средств, используемых Н.В.Гоголем для индивидуализации характеров героев, выделяются детали-«лейтмотивы». Соотнесите такие детали с характерами помещиков.
1) мешочки, коробочки А) Манилов
2) сахар Б) Коробочка
3) куча, прореха В) Ноздрев
4) здоровье Г) Плюшкин
Источник: znanija.site