0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 6
1

Построить блок-схему

05.05.2011, 05:50. Показов 484. Ответов 0
Метки нет (Все метки)

uses crt;
var sl2,sl1,s,sl:string;
n,i,m:byte;
begin
repeat
clrscr;
write('vvedite pervoe slovo: ');
readln(sl1);
write('vvedite vtoroe slovo: ');
readln(sl2);
n:=length(sl2);
m:=length(sl1);
until(m>n);
for i:=(n+1) to m do
s:=s+sl1[i];
sl:=sl2+s;
writeln(sl);
readln;
end.

Добавлено через 57 минут
Помогите пожалуйста построить блок-схему
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2011, 05:50
Ответы с готовыми решениями:

Построить блок-схему
1)Написать программу, которая вычисляет площадь равностороннего треугольника, периметр которого...

построить блок-схему
Помогите построить блок-схему по одномерным массивам: program lab5_1; uses crt; var a,b: array...

построить блок-схему
Помогите пжл построить блок-схемы var f,x: real; begin ReadLn(x); if x < 3 then f := 4;...

Построить блок-схему
for i:=a to b do if (i mod 2 =0) and (i mod 3 =0) then writeln(i) Добавлено через 2 часа 29...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2011, 05:50
Помогаю со студенческими работами здесь

Построить блок-схему
uses crt; var x:integer; begin writeln('ввод года->'); read(x); case x of...

Построить блок-схему
Линейный алгоритм Написать Блок -схему Program e1; Var b,c,d:real; Begin Read (b,c);...

Построить блок-схему
Решение задачи такое: Var f,x,y,z:real; Begin write('Введите x,y,z: ');readln(x,y,z); ...

Построить блок схему
Очень прошу, помогите пожалуйста построить блок схему type printer=record name:string; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru